Алгоритм вычисления суммы ряда

[cmcm1]

Помогите написать алгоритм нахождения суммы ряда

[ViktorR]

Следующий член ряда можно определить по рекурентной формуле: an+1 = an * mnog;
mnog = sqr(x)/(2*n+2); - определяется из пред. формулы.
Алгоритм:
1. Получить x;
2. Начальное значение элемента - an = 1;
3. Значение суммы - 1;
4. Номер элемента n = 0;
5. В цикле с постусловием (repeat):
5a. Вычисляем mnog;
5b. an := an *mnog;
5c. Новое значение суммы;
5d. Увеличиваем номер для вычисления следующего элемента;
6. Если an стало меньше заданного eps, завершим цикл, иначе повторим вычисления с 5а: (until <условие> ).

При этом следует учесть, что для x < 1 вычисление сходится быстро, а при больших х может возникнуть переполнение.

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