Помогите решить

[sergey653]

Помогите решить

Здравствуйте, пожалуйста помогите решить задание. Разработать алгоритм программы, вычисления выражения. Использовать структуру итерационного цикла
y = ex = 1 + x / 1! + x2 / 2! + ... ε = 0,0001
В Паскале

 

[Vladimir_S]

Здравствуйте, пожалуйста помогите решить задание. Разработать алгоритм программы, вычисления выражения. Использовать структуру итерационного цикла
y = ex = 1 + x / 1! + x2 / 2! + ... ε = 0,0001
В Паскале

Да пожалуйста:

Const
 Eps=0.0001;

Var
 N:Integer;
 S,x,a:Real;

Begin
 Write('x= ');
 Readln(x);
 a:=1;
 S:=a;
 N:=0;
 Repeat
  Inc(N);
  a:=a*x/N;
  S:=S+a;
 Until Abs(a)<Eps;
 WriteLn('Result: ',S:0:6,'  N= ',N,'  Accurate value: ',Exp(x):0:6);
 Readln
End.

 

[sergey653]

Огромное вам спасибо