задача на цикл с параметром

[xSanchox]

Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 + X2/(2!) + ... + Xn/(N!)
Полученное число является приближенным значением функции exp в точке X0

к сожалению даже мыслей на сей счет нет... можете помочь?

[ArtGrek]

var
  i: integer;
...

for i:1 to StrToInt(Edit1.text) do
begin
 //здесь твоя формула в которои вместо N пишеш i
end;

[stck]

var
N,i:integer;
x:real;
fact:longint;
begin
fact:=1;
x:=1;
write('Введите число:');
readln(n);
if n<=0 then
writeln('Недопустимое значение');
for i:=1 to n do
begin
fact:=fact*i;
if i=1 then
x:=x*i/fact
else
x:=x+x*i/fact;
end;
writeln(' x=',x);
end.

[ArtGrek]

Delphi ili Pascal?

[xSanchox]

stck спасибо большое! спас!

извините что забыл сказать что это паскаль%)

[stck]

да не за что по сути