Ich verstehe die Rekursion noch nicht richtig

[Seniman]

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