Табулирование

[BaronVik]

В общем такая задача дана

Сумма: 1 + x/1! + x*x/2! + x*x*x/3.....
Диапазон измерения x [1;2]
n=15
Функция Y e в степени х (e^x)

Я сделал такую программу на паскале

Program Rabota;
const n=2;
        h=0.1;
var i:byte;
     x,y,s,slag:real;
Begin
 writeln;
 writeln('...........x.......x^2.............x^n ');
 writeln('s=1 + ----- + ----- + .... + -----');
 writeln('...........1!........2!................n!  ');
 writeln(На отрезке [1;2] c шагом 0.1');
 writeln;
 writeln('!     x    !     y     !     z   ! ');
 x:=1;
 while x<0.1+n do
 begin
  y:=x*x;
  s:=1;
  slag:=1;
  for i:=1 to n do
  begin
   slag:=x+y;
   s:=s+slag;
  end;
  writeln('!',x:7:2,'!',y:11:3,'!',s:11:3,'!');
  x:=x+h;
  end;
  readln;
 end.

Программа работет неправильно,тут и дураку понятно что 1+1 никак не будет =5. Пршшу помогите,доведите задачу до ума,ибо колупался я над ней 3 часа а толку практически никакого. Заранее выражаю благодарность помогающим

[Stilet]

for i:=1 to n do
begin
slag:=x+y;
s:=s+slag;
end;

Это фтопку.
Что ты этим хотел сделать?

[BaronVik]

for i:=1 to n do
slag:=x+y;
(это видно лишнее,неудалил после переделки программы,я её несколько раз с начала делал)

s:=x+y;
(Наверное тут лучше так сделать-найти сумму x,y)

[BaronVik]

Всё,помучался ещё полтора часика и довёл до ума

Program lab4;
const n=2;
h=0.1;
var i:integer;
x,y,s1,s2:real;
Begin
writeln;
writeln(' x x^2 x^n ');
writeln('s=1 + ----- + ----- + .... + -----');
writeln(' 1! 2! n! ');
writeln;
writeln('! x ! y ! sum ! ');
x:=1;
while x<0.1+n do
begin
y:=exp(x*ln(2.7));
begin
i :=i+1;
s1:=x*x/i*x;
s2:=s2+s1;
end;
writeln('!',x:7:2,' !',y:9:3,' !',s2:9:3,' !');
x:=x+h;
end;
readln;
end.

практически никакого совпадения с преведущими попытками.
Вроде эта программа работает без сбоев,и х пошагово правилно выводит,и е в степени х правильно выводит,но вот сумму он вроде как бы с ошибкой считает,если ошибку увидите напишите где а то я невижу

[Stilet]

Я бы твою задачу решал так:

var i:integer;
 x,y:double;fac:integer;
Begin
 y:=1;x:=1.5;fac:=1;
 for i:=2 to 5 do begin
  writeln(x:10:2,y:10:2,fac:10);
  x:=x*x;
  fac:=fac*i;
  y:=y+x/fac;
 end;
 readln;
end.