Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2 + ...

Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте, насколько сумма приблизилась к значению pi^2/6.

Question

Информатика

Рудольф

9 октября, 19:30

Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2 + ...

Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте, насколько сумма приблизилась к значению pi^2/6.

+5

Ответы (1)

Знаете ответ?

Антонка · Answer 1

var

s, x, i:real;

begin

x:=1;

i:=2;

while x>0.001 do begin

s:=s+x;

x:=sqr (1/i) ;

i:=i+1;

end;

writeln ('s=', s, ' pi^2/6=', sqr (pi) / 6) ;

end.