.


           


1-



:

, (0 < k < 1).

K(k)





Procedure

Elliptic(k, eps : real; var Kk : real);

var

Kk1 : real;

begin

Kk1 := k;

repeat

k := (1 - sqrt(1 - sqr(k)))/(1 + sqrt(1 - sqr(k)));

Kk1 := Kk1*(1 + k);

k := (1 - sqrt(1 - sqr(k)))/(1 + sqrt(1 - sqr(k)));

Kk := Kk1*(1 + k);

until abs(Kk1 - Kk) < eps;

Kk := Kk*Pi/2

end;



 

Program Problem3;

uses WinCrt;

var

Kk, k, eps : real;

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

{ - - }

Function

t(eps : real) : integer;

var

k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

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

Procedure Elliptic(k, eps : real; var

Kk : real);

var

Kk1 : real;

begin

Kk1 := k;

repeat

k := (1 - sqrt(1 - sqr(k)))/(1 + sqrt(1 - sqr(k)));

Kk1 := Kk1*(1 + k);

k := (1 - sqrt(1 - sqr(k)))/(1 + sqrt(1 - sqr(k)));

Kk := Kk1*(1 + k);

until abs(Kk1 - Kk) < eps;

Kk := Kk*Pi/2

end;

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

begin

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