Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-29T14:51:30+04:00
№76(1)
var
   pi:real;
   k,n:integer;
begin
for k:=1 to 500 do
  begin
  if (k mod 2=0) then n:=-1 else n:=1;
  pi:=pi+n/(2*k-1)
  end;
writeln('Число пи равно ',pi*4)
end.

№76(2)
var
   pi,x:real;
   k,n:integer;
begin
k:=1;
repeat
  if (k mod 2=0) then n:=-1 else n:=1;
  x:=4*n/(2*k-1);
  if abs(x)>=0.5E-3 then pi:=pi+x;
  k:=k+1
  until abs(x)<0.5E-3;
writeln('Число пи равно ',pi)
end.

№77
var
   pi,e,x:real;
   i:integer;
begin
write('Введите число е');
readln(e);
i:=1;
pi:=1;
repeat
  x:=sqr(2*i)/(2*i-1)/(2*i+1);
  if (x-1)>=e then pi:=pi*x;
  i:=i+1
  until abs(x-1)<e;
writeln('Число пи пополам равно ',pi)
end.