Guten Morgen,
ich habe ein Programm für Arithmetische Berechnungen geschrieben, welches unter anderem die Fakultät einer beliebigen positiven Zahl berechnet.
Es läuft bis ca. zahl=20 auch gut. Nur ab dann kommt es in unregelmäßigen Abständen dazu, dass die Ergebnisse mit negativen Vorzeichen ausgegeben werden.
Hier noch der Code:
Delphi-Quellcode:
implementation
Function Fakultaet(Zahl : Int64): Int64;
begin
If Zahl = 0 then
result := 1
else
result := Zahl * Fakultaet(Zahl - 1);
end;
Delphi-Quellcode:
procedure TfrmFak.btnCalculateClick(Sender: TObject);
begin
frmFak.Label1.Caption := IntToStr(Fakultaet(StrToInt(frmFak.edtZahl.text)));
end;
Wo ist mein Fehler?
Gruß
New