Здесь нет никаких "рекурентных зависимостей" это просто сумма ряда.
Сначала запрашивается X с клавиатуры. Затем
Потом в цикле вычисляем 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)
Здесь нет никаких "рекурентных зависимостей" это просто сумма ряда.
Сначала запрашивается X с клавиатуры. Затем
[code]i=1:ifactorial=1:Xpoweri=X:s=1[/code]
Потом в цикле вычисляем S
[code]
Do
Sprev=S
S=S+1/(iFactorial*Xpoweri)
i=i+1
iFactorial=iFactorial*i
Xpoweri=Xpoweri*x
Loop until Abs(S-Sprev)<=epsilon
[/code]
При достаточно малых [b]epsilon[/b] полученное [b]S[/b] должно быть приблизительно равно [i]exp(1/x)[/i]