Question

вычислить число пи через разложение в ряд

$pi/4 = 1-1/3+1/5-1/7+... = sum_{k=1}^{infty}{(-1)^{k+1}*frac{1}{2*k-1}$

взяв 500 слагаемых

Answer 1

Если power изучали, то можно так:
var
   k:integer;
   p:real;
begin
for k:=1 to 500 do
  p:=p+power(-1,k+1)/(2*k-1);
writeln('Pi/4 = ',p)
end.
 Если не изучали, пиши, сделаю по-другому.

Версия для Турбо:

program rd;
var 
   k,z:integer;
   p:real;
begin
z:=1;
for k:=1 to 500 do
  begin
  p:=p+z/(2*k-1);
  z:=-z
  end;
writeln('Pi/4 = ',p)
end.

Answer 2

мне нужно в паскале, если не трудно)