.


           


k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

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

begin

write(' x '); readln(x);

write(' '); readln(eps);

Integral(x, eps, I);

writeln(' ', I:6:t(eps))

end.

6



 

5.1. 2-

1-


2-


k (0 < k < 1). , 1-

(1)

:


,




, , :



,

, (2)





(1) (2)










Procedure Elliptic2(k, eps : real; var

Ek : real);

var

n : integer;

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;



Program Problem3;

uses WinCrt;

var

Ek, k, eps : real;

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

Procedure

Elliptic2(k, eps : real; var Ek : real);

var

n : integer;