Вычислить экспоненту суммой ряда

[Mat_t]

Буду очень признателен кто решит эту задачу
Вариант 7
Составьте программу, которая содержит вычисления экспоненты в виде бесконечного ряда с точностью 10 в степени -7.
exp(x)=1+x(в первой степени)/1!+x(во сторой степени)/2!+...+х(в N-ной степени)/N!
Сравнить получ. значение суммы со значением функции для заданного значения x.

[mss]

Ты разве не в курсе что любой труд дожен быть оплачен ?

[Stilet]

С потолка, не проверял.

var i,fac:integer;ax,x,expp:double;
begin expp:=1;ax:=0.2;fac:=1;x:=ax;
 for i:=2 to 10 do begin
  x:=ax*x;  fac:=fac*i;
  expp:=expp+x/fac;
 end;
 write(expp,'=',exp(ax));readln;
end;

[Mat_t]

Не совсем то, но спасибо Вам большое, попробую разобраться!