.


           


u : real;

begin

u := k*k/4; n := 1; Ek := 0;

repeat

Ek := Ek + u;

n := n + 1;

u := (u*k*k*(2*n - 1)*(2*n - 3))/(4*n*n);

until abs(u) < eps;

Ek := Pi*(1 - Ek)/2

end;

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

{ - - }

Function

t(eps : real) : integer;

var

k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

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

begin

write(' 0 < k < 1 '); readln(k);

write(' '); readln(eps);

Elliptic2(k, eps, Ek);

writeln(' ', Ek:6:t(eps));

writeln(' ', eps:1:t(eps))

end.

7

1- , .