Einzelnen Beitrag anzeigen

Benutzerbild von Seniman
Seniman

Registriert seit: 15. Sep 2003
Ort: Münster
98 Beiträge
 
#8

Re: Ich verstehe die Rekursion noch nicht richtig

  Alt 17. Jan 2004, 18:02
Hallo Matze,

ich habe es mit der folgenden Funktion hinbekommen und die Unterscheidet sich ja nicht wirklich von deiner. Vielleicht liegt der Fehler woander.

Delphi-Quellcode:
function Rekursiv(n,x: Integer): Integer;
begin
  if n=1 then
    Result:= x
  else
    Result:=Rekursiv(n-1,x)*x;
end;
Grüße
Seniman
  Mit Zitat antworten Zitat