.


           


write('.. '); readln(a);

write(' '); readln(d);

writeln(' ');

write(' '); readln(PP);

Argument(PP, x);

c := sqrt(d);

e := c*x;

writeln(' ', e:2:6)

end.

3

) 0.9986; ) 0.7823.

Program Exercise_Normal13a;

uses WinCrt;

var

e, c, d, pp, p1, sum : real;

n, m, i : 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;

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

{ }

Procedure Extent(a : real; n : integer; var e : real);

var

i : integer;

begin

e := 1;

if n = 0 then e := 1 else for i := 1 to n do

e := e*a

end;

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

{ }