Програмирование рекурентных зависимотей

[Loperamide]

Помогите написать программу к
S=1+1/x +1/(2!*x^2)+1/(3!*x^3)+...=exp(1/x)
ABS(x)<=1
Условие достижения необходимой точности
ABS(S(k+1)-S(k))<=epsilon
k+1 и k в индексах

Пожалуйста раздуплите
Заранее спасибо

[Loperamide]

Ну кто-нибудь,обьясните.
Плиз

[Naeel Maqsudov]

Здесь нет никаких "рекурентных зависимостей" это просто сумма ряда.

Сначала запрашивается X с клавиатуры. Затем

Код: Выделить всё

i=1:ifactorial=1:Xpoweri=X:s=1

Потом в цикле вычисляем S

Код: Выделить всё

Do
   Sprev=S
   S=S+1/(iFactorial*Xpoweri)
   i=i+1
   iFactorial=iFactorial*i
   Xpoweri=Xpoweri*x
Loop until Abs(S-Sprev)<=epsilon

При достаточно малых epsilon полученное S должно быть приблизительно равно exp(1/x)