.


           


until FF(x) >= PP

end;

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

begin

write(' '); readln(c);

write(' , . M(X) ');

readln(PP);

Argument(PP, x);

l := 2*c*x;

writeln(' ', L:4:6)

end.

2



(6)
.



0.06.

Program Exercise_Normal2;

uses WinCrt;

var

PP, x, a, d, e, c : real;

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

{ - }

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;

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

{ x }

Procedure Argument(PP : real; var

x : real);

begin

x := 0;

repeat

x := x + 0.0001

until FF(x) >= PP

end;

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

begin

write(' ');

writeln(' a = M(X) ');