aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Turbo Pascal Programm rechnet für Sie die irrationale Eulersche Zahl aus.

Die folgende Formel wird benutzt:

e = lim _{(n ¥)} (1 + 1/n )ⁿ

Programm

program eulersche_Zahl;
{$N+}
uses crt,dos;
var  e:extended; n:extended;

begin
writeln('Bitte fortlaufend Enter_Taste druecken');
n:=1;
repeat
n:=n*2;
e:=exp((n)*ln((1+1/n)));
writeln(e:2:25);
readln;
until n=exp(60*ln(2));  {wenn n= 2 hoch 60, dann ist eulersche Zahl auf 18 Stellen genau }
readln;
end.

---

--Gastarbeiter 15:26, 13. Mär 2006 (CET)

---