n! Fakultät

[johannes]

gibt es bei delphi eine Funktion die die Fakultät(1*2*3*..*n) einer Zahl direkt ausrechent? oder muss ich die selber schreiben? (ich hab in der math unit nix gefunden ;( )

[sakura]

Gibt es nicht, aber ist doch ganz leicht :D

Delphi-Quellcode:

function NFak(Val: Integer): Int64;
begin
  if Val < 0 then
    raise Exception.Create('Val muss größer/gleich 0 sein.');
  Result := 1;
  repeat
    Result := Result * Val;
    Dec(Val);
  until Val <= 1;
end;

[johannes]

habmich ja nur gefragt ob ich das rad nicht neu erfinden muss ;)
Danke für die schnelle Antwort

[nailor]

als eingabe braucht man nicht wirklich einen Integer. Die Funktionswerte steigen ein wenig zu schnell an, als dass das noch in einen int64 reinginge...

[sakura]

Zitat:

Zitat von Nailor

als eingabe braucht man nicht wirklich einen Integer. Die Funktionswerte steigen ein wenig zu schnell an, als dass das noch in einen int64 reinginge...

Dass stimmt schon, Integer rechnet sich aber besser auf 32-Bit CPUs als Integer, vor allem, wenn man auf Int64 rausgeht ;)