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

Question

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

взяв 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.

Comments

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

---

Это паскаль)) ПаскальАВС. Тебе Турбо нужен?

---

да

---

тогда жди

---

program rd;