Die Zahl e, aber wie in Pascal? [Erledigt!!]

[Binärbaum]

Also so ginge es:

Delphi-Quellcode:

function GetEuler(n: Cardinal): Extended;
begin
  Result:= IntPower(1+1/n, n);//= (1+1/n)^n
end;

Allerdings kann es dabei ggf. zu einem Overflow kommen. Deshalb gibt es noch eine andere (allerdings langsamere) Methode:

Delphi-Quellcode:

function GetEuler(n: Cardinal): Extended;
  function Fakultaet(x: Cardinal): Int64;
  var c: Cardinal;
  begin
    Result:=2;
    for c:= 3 to x do
      Result:= Result*c;
  end;
var i: Integer;
begin
  Resuult:= 2;
  for i:= 2 to n do
    Result:= Result + 1/Fakultaet(i);
end;

Je höher dort n angegeben wird, umso genauer ist das Ergebnis.

MfG
Binärbaum