Fakultät

[Delphi Freak]

Hallo, ich habe ein Problem, ich möchte ein Programm schreiben, mit dem man die Fakultät von beliebigen Zahlen ausrechnen kann. Ich dachte eigetlich, dass ich es habe, aber irgendwas stimmt noch nicht, bis 12! tut alles, aber ab 13! kommt ein falsches Ergebnis raus. Hier mein Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x, z: Integer;
begin
  x := StrToInt(Edit1.Text);
  z := x;
if x = 0 then
begin
  Edit1.Text := '1';
end
else if x < 0 then
begin
  Edit1.Text := 'Ungültige Funktionseingabe!';
end
else if x = 1 then
begin
  Edit1.Text := '1';
end
else
begin
repeat
  z := z * (x-1);
  x := x-1;
until x = 1;
Edit1.Text := IntToStr(z);
end;
end;

Ich weiß einfach nicht, wo mein Fehler ist :(
Ich danke euch schon im voraus für eure Hilfe!

MfG
Florian

[Luckie]

Dann überleg doch mal, wie groß der Datentyp Integer ist und wie groß das Ergebnis von 13!.

[Wolfgang Mix]

Vielleicht hilft das hier

[Delphi Freak]

hihi, dummer Fehler!
Danke!

Mit Real kann ich am weitesten rechnen, oder? Weil Real macht dann ja auch noch mit E...

[Klaus01]

.. mit Float Werten bekommst Du ungenauigkeiten hinein, die könnten bei Fakultät
auch sichtbar werden.
Ich würde es mal mit Int64 versuchen.

Grüße
Klaus

[Wolfgang Mix]

Siehe Post #3

[Matze]

Und wenn's noch großer sein soll, erkundige dich mal nach TBigInt. Das sind spezielle Units wie beispielsweise diese, die dir eine Art Datentyp zu Verfügung stellen.

Edit: Die Unit funktioniert ab Delphi 2006 / TurboDelphi. Für dein Delphi 7 müsstest du dich nach einer anderen Unit umsehen.