.


- 3


, M(X) = 0.
, 0.4 . , , .. X
, (5).

50 50

P(|X| < 0.7).

 

Program Normal2;

uses WinCrt;

var

e, c : real;

n : integer;

{----------------------------------------------------------------------------------------}

{ - }

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;

{----------------------------------------------------------------------------------------}

begin

writeln(' X ');

write(' '); readln(e);

write(' '); readln(c);

write(' '); readln(n);

n := Round(FF(e/c)*n);

writeln(' ', n)

end.

3. X

= 5 . , M(X), 0.990 X .

,

= 5 , P(|X - a| <
) = 0.990.
.
- .


- -  - -  - -