Var I:integer;

p,s:real;

begin

p:=1;

for i:=1 to 2 do

begin

p:=1/i;

s:=s+p;

end;

writeln(s:6:3);

end.

71. Келесі қосындыны берілген дәлдікпен (ε = 0.0001) Паскаль программасының көмегімен табу керек:

PROGRAM eSeP71;

USeS CRT;

const eps=0.0001;

VAR i,p:integer; y,s:real;

BeGIN clrscr;

i:=1; p:=1; y:=1;

repeat

inc(i);

p:=p*i;

y:=y*(-2);

s:=s+y/p;

until s<=eps;

writeln('s=',s:8:7);

enD.

72.Төбелерінің координаталары берілген үшбұрыштың периметрін табу керек.

var a,b,c,d,e,f,p: real;

begin

write ('x1,y1,x2,y2,x3,y3');

read (a,b,c,d,e,f);

p:=sqrt(sqr(c-a)+sqr(d-b))+sqrt(sqr(e-a)+sqr(f-b))+sqrt(sqr(e-c)+sqr(f-d));

write(p:4:2);

end.

УНИВЕРСАЛ ПРОГРАММА

label m1;

var a,b,c:real;

function f(x:real):real;

begin

f:=3*X*X*X+5*X*X-2*X-7;

end;

begin

a:=-10; b:=10;

while abs(f(a)-f(b))>0.001 do begin

c:=(a+b)/2;

if f(c)*f(a)>0 then a:=c else b:=c;

if f(c)=0 then goto m1;

end;

m1: write (c:4:2);

end.