.



X ,

(1)

:

(2)

F(x)

:

{ 頠 }

{ 0 x. - }

Function FF(x : real) : real;

var

n : integer;

u, I : real;

begin

if

x > 5

then FF := 1

else if x < -5

then

FF := -1

else

begin

u := x; n := 0; I := 0;

repeat

I := I + u; n := n + 1;

u := -u*(x*x*(2*n - 1)/(2*n*(2*n + 1)))

until

abs(u) < 0.00001;

FF := 2*I/sqrt(2*Pi)

end

end;

(3)

X

- (4)

, X

;

- (5)

X a

,

;

- (6)

" ".

1. . X, ( ), 50 . , 3.6 .


- -  - -  - -