Программирование циклических процессов в Паскале

[KAPICH55]

program expon;
const e=0.001; x=1.3;
var x, n,: integer;
begin
for n:=0 to n-1 do
begin
 
Как правильно построить этот цикл???
 
end.

Заранее Спасибо.

[zhan313]

Сразу скажу, что при n=0 происходит деление на "0"

program expon;
const e=0.001; x=1.3;
var
n:integer;
r,r1:real;

function fakt(i:integer):longint;
var f:longint;
begin
  f:=1;
  while i>1 do begin f:=f*i; dec(i); end;
  fakt:=f;
end;

function step(i:integer):real;
var f:real;
begin
  f:=1;
  while i>0 do begin f:=f*x; dec(i); end;
  step:=f;
end;

begin
  r:=0;
  n:=0;
  repeat
    inc(n);
    r1:=r;
    r:=r+step(n)/fakt(n);
  until r-r1<=0.001;
  writeln(r:10:4);
end.

[whatever]

Ну вообще с точки зрения математики 0!=1.

function fakt(i:integer):longint;
var f:longint;
begin
  if i=0 then result:=1
  else
  begin
  f:=1;
  while i>1 do begin f:=f*i; dec(i); end;
  fakt:=f;
  end;
end;

[zhan313]

Да, подзабыл математику, но результаты функции выдают правильные.
Единственно inc(n) нужно переместить в конец цикла вычисления .

[Mad_Cat]

var x,stx,ex,e: real;
    i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
 stx:=x;  {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;
Writeln('Количество элементов в разложении = ',i+1);
Writeln('Значение e^',x:6:6,'= ',ex:6:6);
Writeln('Значение компьютера: ',exp(x):6:6);
Readln;
End.

[KAPICH55]

Большое спасибо за помощь=)

[Zer0]

Небольшое замечание, не лучше ли считать сумму через рекуррентные соотношения?
т.к. даже факториал 20 уже довольно большое число, а если считать как (пред элемент)*x/(текущее n), то считать можно хоть до миллиона