Bei mir klappt irgendwie die Iterative berechnung der Fakultät nicht. Ich will jetzt aber nicht hören, dass ich dass auch rekursiv lösen kann^^, die Funktion klappt, brauchs aber auch Iterativ).
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;
wenn n>1 ist, dann gibt der Immer 0 als ergebnis. Wenn ich
Sakuras version nehme(in den klammern, ist es das gleiche, bei n>1 kommt auch 0 raus, aber nich tdas richtige ergebnis
Hab ich da irgend einen Denkfehler drin?
PS: Kann es sein dass die
DP-Irgendwie schwächelt??, ich habs in 10 min nicht hingekriegt, diesen beitrag in sonstiges zu posten^^
