вычислить сумму ряда, вычислить сумму ряда Опции

[Лось]

Народ, помогите сделать лабу!!! Ни чего не рублю ато...

С точностью ξ (eps) вычислить сумму ряда у(х);

у(1) (х) – вычислить по формуле
ех=1+х/1!+х^2/2!+х^3/3!+…+
IxI <1

Большой Спасиб!

[volvo]

А в чем собственно была проблема?

const
  eps = 0.0001;

var
  x, sum, next: real;
  count: integer;

begin
  write('x = '); readln(x);

  sum := 0;
  next := 1; count := 1;
  repeat
    next := next * x / count;
    inc(count);
    sum := sum + next;
  until next < eps;

  writeln('f(x) = ', sum:10:7)
end.