Bei mir klappt die Iterative berechnung der Fakultät irgendwie nicht.
Delphi-Quellcode:
function fak_it (n : Integer):int64 ;
Var index: Integer;
Begin
If (n = 0)
or (n = 1)
then
fak_it := 1
Else
begin
For Index := n
downto 1
do
result := result *
Index;
end;
{repeat
Result := Result * n;
Dec(n);
until n <= 1;
}
End;
Bei mir liefert der bei n>1 immer 0 als ergebnis. Wenn ich die
Version von Sakura nehme ( ist das in den klammrn), kommt bei n>1 auch 0 raus
), aber nicht der richtige Wert.
Hab ich irgendeinen denkfehler gemacht?