Einzelnen Beitrag anzeigen

Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#2

Re: Auch größere Fakultäten ausrechnen?

  Alt 10. Okt 2004, 18:21
Komisch 34 (z.B.) geht wieder, ich kann auch keinen Fehler erkennen. Probiers mal mit
Delphi-Quellcode:
function NFak(Val: Integer): Int64;
var i:Integer;
begin
  if Val < 0 then
    raise Exception.Create('Val muss größer/gleich 0 sein.');
  Result := 1;
  for i:= Val downto 1 do Result := Result * i;
end;
Was ist an deinem Code bitte rekursiv???

Ratte
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat