.


- - 5


end;

34. -.

{ . . . - }

Procedure Local_Laplace(n, m : longint; p : real; var pp : real);

var

x : real;

begin

x := (m - n*p)/sqrt(n*p*(1 - p));

pp := G(x)/sqrt(n*p*(1 - p))

end;

35. -.

 

{ 頠 }

{ 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;

 

36. [m1; m2].

 

{ . . . . . [m1; m2] }

Procedure Interval(n, m1, m2 : longint; p : real; var PP : real);

var

x1, x2 : real;

begin

x1 := (m1 - n*p)/sqrt(n*p*(1 - p));

x2 := (m2 - n*p)/sqrt(n*p*(1 - p));

PP := (FF(x2) - FF(x1))/2

end;

 

37. m np.

 

{ }

{ e - np }

Procedure

Probability(n : longint; p, e : real; var PP : real);

var

x : real;

begin

x := e/sqrt(n*p*(1 - p));




- -  - -  - -