ЦИКЛЫ С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ

[alex-y]

Помогите, пожалуйста, написать программу
Задание. "Нахождение суммы бесконечно убывающего ряда."
Написать программу суммирования ряда, приведенного в таблице, при одном и том же значении аргумента и 2-х значениях точности, отличающихся друг от друга более чем на порядок. Сравнить полученные результаты с точным значением и сделать вывод о схождении ряда. Вычисления заканчивать при достижении заданной степени точности (т.е. когда очередной член ряда становится по модулю меньше введенного значения точности е ).

[ViktorR]

Примерно так:

ai := -sqr(x)/2;
y := 1 + ai;
n := 1;
repeat   {или while abs(ai) > eps do begin}
   k := -sqr(x)/((2*n+1)*(2*n+2));
   ai := ai *k;
   y := y + ai;
   n := n + 1;
until abs(ai) <= eps; {end - в случае while}

PS: Следует учесть, что формула для элемента ряда an = x^(2n)/(2n)!;
Предлагаю прочитать решение подобной задачи у Т.А. Павловская, ЯВУ. Паскаль (имеется в списке литературы).

Как-то так, ...