Рекурсивное решение уравнения - Turbo Pascal

Формулировка задачи:

надо решить уравнение 1+x/1!+x^2/2!+...+x^n/n! через рекурсию. Смог пока только так
program Denchik;
uses crt;
var x, S, P: real;
var i, n: integer;
begin
  ClrScr;
  write('Введите' n ='); readln(n);
  write('Введите' x ='); readln(x);
  S:=1;  P:=1;
  while i<n do
  begin
  i:=i+1;
  P:=P*x/i;
  S:=S+P;
  end;
  writeln('результат S=', S:7:3); Readln;
  end.

Код к задаче: «Рекурсивное решение уравнения - Turbo Pascal»

textual
 P:=P*x/i;

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ