Ackermann-Problem Stacküberlauf

[MisterNiceGuy]

Hi,
mal wieder die Ackermannfunktion, die mir Sorgen macht.
Ich weiß, dass es das Thema schon einmal gab, aber das hat mir nicht wirklich geholfen!
Der Stack läuft über, obwohl das inner Schule nich passiert und ich bin mir eigentlich
sehr sicher alles richtig gemacht zu haben!!

Code:

function TForm1.acker(m,n : integer) : integer;
begin
if m=0 then n := n+1
    else
       if n=0 then
           acker(m-1,1)
              else acker(m-1,acker(m,n-1));
end;

Kann mir mal jemand nen Tip geben?? :stupid:

[kiar]

deine funktion ruft sich immer wieder selbst auf . das muss zum überlauf führen.


raik

[Niels]

Moin!

Zitat:

Zitat von MisterNiceGuy

Code:

function TForm1.acker(m,n : integer) : integer;
begin
if m=0 then n := n+1
    else
       if n=0 then
           acker(m-1,1)
              else acker(m-1,acker(m,n-1));
end;

Also zuerst mal zu deiner ersten IF-Bedingung (m=0) ...da hier ja keine Rekursion statt findet, brauchste auf n auch nix mehr zuzuweisen.
BTW deine Funktion hat (wenn ich das richtig sehe) überhaupt keinen rückgabewert. Der Compiler müsste doch eigentlich meckern.

Bau erstmal überall wo's hin soll

Delphi-Quellcode:

result := ...

ein. Dann könnte man evtl sagen woran der Fehler noch liegt.

MfG Niels