вычислить с точностью eps

[ангелочик]

с помощью делфи вычислить с точностью eps>0 y=e^x=1+x/1!+x^2/2!+...+x^n/n!......

[Sam Gold]

На каком языке надо писать?

[ангелочик]

с помощью делфи не могу понять

[Sam Gold]

Создаем фунуцию, вычисляющую сумму ряда с точностью eps

function TEYLOR(x,eps:real):real;
var sum,q:real;  
     n:integer;
begin
   sum:=0;
   q:=1;
   n:=1;
   while ( abs(q)>=eps) do
      begin
         sum:=sum+q;
         q:=q*x/n;
         n:=n+1;
       end;
TEYLOR:=sum;

end;

А потом вызываем ее например в процедуре нажатия кнопки, в Edit1 вводится х в Edit2 выводится ответ

procedure TForm1.Button1Click(Sender: TObject);

begin
Edit2.Text:=FloatToStr(TEYLOR(StrToFloat(Edit1.Text),0.001));  {0.001 это точность}
end;

end.

Можно создать поле ввода Edit3 и оттуда считывать значение eps

[ангелочик]

большое спасибо, непредставляешь как выручил, осталось только как следует рабобраться.