Вычислить сумму ряда

[Олеся Хусаинова]

e^x=1+(x/1!)+(x^2/2!)+(x^3/3!)+(x^4/4!)+.. 0<x<1
Только вроде начала понимать и вот тут дали эту лабу ,на которой засела очень прочно!

[TinMan]

Сообщение от Олеся Хусаинова

Только вроде начала понимать и вот тут дали эту лабу ,на которой засела очень прочно!

Олеся, а в чем пробема-то? Тут всего несколько строк.. Ты покажи, что сделала, мы поправим.

[Олеся Хусаинова]

program ex;
var x,stx,ex,e: real;
    i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e)
 stx:=x;  
 fakt:=1;  
 ex:=1;  
 i:=1;  
while stx/fakt>=e do begin 
                     ex:=ex+stx/fakt;
                     inc(i);
                     stx:=stx*x;
                     fakt:=fakt*i;
                     end;

Что-то подобное...сейчас сижу туплю незнаю как закончить и не уверена в том что код правильный(((Помогите ,пожалуйста!

[Stilet]

Если нигде не провтыкал (TinMan, поправь коли опшибаюсь) то вот как-то так:

var x,e:double;i,fac:integer;
begin e:=1; x:=0.12;  fac:=1;
 for i:=1 to 10 do begin
  e:=e+x/fac;
  x:=x*x;
  fac:=fac*i;
 end;write(e:15:8);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[BDA]

Stilet, сумму ряда положено искать по точности, а не только 10 первых

s:=1;
an:=x;
n:=1;
while an>eps do
begin
	s:=s+an;
	inc(n);
	an:=an*x/n;
end;

[Stilet]

BDA

Не спорю. Мои преподы не жаловались