Вычислить сумму ряда с точностью Опции

[pre-dawn-haze]

Помогите пожалуйста, как это сделать?
(условие в изображении)
осталось решить одну задачу, а тут тупик полнейший
уже платно готова.

[Rian]

"Если ряд знакочередующийся (и сходящийся, конечно), то суммируем до тех пор, пока текущее слагаемое по модулю не станет меньше эпсилон"

[pre-dawn-haze]

"Если ряд знакочередующийся (и сходящийся, конечно), то суммируем до тех пор, пока текущее слагаемое по модулю не станет меньше эпсилон"

тогда, где тут ошибка

program sin;
const e=0.000001;
      pi=3.14;
var x, s: real;
    i: longint;
Begin
Write('Введите x: ');
Readln(x);
i:=1;
s:=0;
while ((1-x*x)/(i*i*pi*pi))<e do
begin
i:=i+1;
s:=s+((1-x*x)/(i*i*pi*pi));
end;
write('S=',s:0:3);
end.

если ввести модуль, то нулит сумму ><
а так вычисляет "бесконечно", если пошагаво проверять

Сообщение отредактировано: pre-dawn-haze - 3.11.2011 22:50

[Rian]

тогда, где тут ошибка

while ((1-x*x)/(i*i*pi*pi))<e do
begin
i:=i+1;
s:=s+((1-x*x)/(i*i*pi*pi));

мне кажется что формула немного не так задана 1- должен быть по ней за скобками сумирование начинается со второго элемента...
баг какой-то... кто знает формула правильная?

1-(x*x)/(i*i*pi*pi);