Приближения числа e

Программа позволяет последовательно получать приближения транcцендентного числа е. Вычисления будут продолжаться пока вы не нажмете esc. На каждой новой итерации точность числа е будет повышаться. Понятно, что есть предел вычислений точности и здесь он ограничен 13 знаками после запятой.

program predel_chislo_eilera;
 uses crt;
 const x:boolean=true;
 var
 e,a:extended; i,n: longint;
Begin
repeat
 clrscr;
 n:=1000000;
 e:=1;
 a:=1+1/n;
 i:=0;
 repeat
 e:=e*a;
 inc(i);
 until i=n;
 writeln ('n=', n:8, ' e=',e:15:13);
 writeln('Для выхода нажмите на Esc');
 until readkey=#27
End.

Но, можно и задать точность с которой будет вычислено число Эйлера. Это показано в следующем примере.

{Приближения числа e=2,7182818284590...}
program predel_chislo_eilera;
 uses crt;
 var
 e,a,e1,epsilon:extended; i,n: longint;
Begin
 clrscr;
 epsilon:=1e-3;
 e1:=exp(1);n:=1000;
 repeat
 e:=1;a:=1+1/n;
 i:=1;
 repeat
 e:=e*a;
 inc(i)
 until i=n;
 n:=n+1;
 until abs(exp(1)-e) < epsilon;
 writeln ('n=', n:8, ' e=',e:15:13);
 readln;
End.