Вычислить число пи через разложение в ряд [latex]\pi/4 = 1-1/3+1/5-1/7+... = \sum_{k=1}^{\infty}{(-1)^{k+1}*\frac{1}{2*k-1}[/latex] взяв 500 слагаемых
Вычислить число пи через разложение в ряд [latex]\pi/4 = 1-1/3+1/5-1/7+... = \sum_{k=1}^{\infty}{(-1)^{k+1}*\frac{1}{2*k-1}[/latex] взяв 500 слагаемых
Гость
Ответ(ы) на вопрос:
ГостьЕсли 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.
Не нашли ответ?
Похожие вопросы