Rekursion - Berechnung von Fakultäten

[Ari]

Hey ihr,

hab grad nen Problem mit der Rekursion. Sollten Fakultäten auf zwei Wegen berechnen - iterativ (Button1) und rekursiv (Button2):

Delphi-Quellcode:

function fakultaet (a: integer) : integer;
begin
         if a>0 then
         result := a * fakultaet(a-1)
         else result:=1;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var text, i, ergebnis : integer;
begin
        text:=StrToInt(Edit1.Text);
        ergebnis:=1;
        for i:=1 to text do begin
             ergebnis:=ergebnis*i;
             Label1.Caption:=IntToStr(ergebnis);
        end;
        if text=0 then Label1.Caption:=IntToStr(1);         //(0!=1)
        if text<0 then Label1.Caption:='Bitte geben Sie eine natürliche Zahl ein!'; //text\in N
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var k : integer;
begin
       k:=fakultaet(StrToInt(Edit1.Text));
       Label1.Caption:=IntToStr(k);
end;

Mein Problem bezieht sich auf die Funktion fakultaet. Und zwar habe ich durch Recherche die Variable "result" gefunden und versuchsweise eingefügt - mysteriöserweise funktioniert es auch, obwohl ich result nirgends bewusst definiert habe (vordefiniert???) und es sonst auch nicht in dieser *.pas-Datei auftaucht.
Nehme ich als Variable irgendetwas anderes, meckert er wieder wegen einer undefinierten Variable - wo soll ich die denn definieren? Definiere ich es so

Delphi-Quellcode:

function fakultaet (a: integer) : integer;
var zwsp : integer;
begin
         if a>0 then
         zwsp := a * fakultaet(a-1)
         else zwsp:=1;
end;

komme ich auch nicht weiter, ich erhalte immer dasselbe Ergebnis 43tausend und ein paar zerquetschte (auch wenn ich zwsp als integer definiere).

Woher kommt nu die vordefinierte "result"-Variable und wie bastel ich das Programm ohne eben diese zusammen`?

Bitte helft mir ^^

[Matze]

Hallo,

richtig erkannt, result ist im Endeffekt vordefiniert und gibt ein Funktionsergebnis zurück. Anstelle von result kann man auch den Funktionsnamen verwenden, wenn ich das recht in Erinnerung habe.

Ohne Rückgabewert würde dir eine (rekursive) Funktion nichts bringen, da eine Funktion unter anderem dafür da ist, etwas zurückzugeben. Ich würde die Fakultät so berechnen (ungetestet):

Delphi-Quellcode:

function fakultaet(a: Integer): Integer;
begin
  if (a = 0) or (a = 1) then           // 0! = 1! = 1
    result := 1
  else
    result := fakultaet(a - 1) * a;
end;

Das, worauf es ankommt bzw. das, was ein wenig Überlegung erfordert, ist der rekursive Aufruf, den du genau richtig erkannt hast:

Delphi-Quellcode:

zwsp := a * fakultaet(a-1)

Das "Drumherum" mit dem Rückgabewert wirst du vermutlich gleich verstehen, sobald du den obigen Code verinnerlichst.

[mkinzler]

Das result entspricht dem return in anderen Sprachen. Unter klassischem Pascal verwendete man, wie matze schon angedeutet hat den Namen der Funktion

Delphi-Quellcode:

result := fakultaet(a - 1) * a;

ist also gleichbedeutend wie

Delphi-Quellcode:

fakultaet := fakultaet(a - 1) * a;

[Corpsman]

@MAtze

dir ist klar das der Aufruf mit Negativen Zahlen einen Stack overflow erzeugt ?

[Matze]

Zitat:

Zitat von Corpsman

dir ist klar das der Aufruf mit Negativen Zahlen einen Stack overflow erzeugt ?

Jupp, das ist mir klar. Natürlich hätte ich beispielsweise die negativen Zahlen negieren oder "-1" zurückgeben können. Ich wollte Ari lediglich zeigen, wie eine Rekursion funktioniert, den Rest darf er selbst machen. ;)

[Ari]

Hi nochmal,

sorry für die späte Antwort - funzt jetzt^^. Dankeschön :)