Народ, помогите сделать лабу!!! Ни чего не рублю ато...
С точностью ξ (eps) вычислить сумму ряда у(х);
у(1) (х) – вычислить по формуле
ех=1+х/1!+х^2/2!+х^3/3!+…+
IxI <1
Большой Спасиб!
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.