n! Fakultät

[sakura]

Gibt es nicht, aber ist doch ganz leicht

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;