Ackermann-Problem Stacküberlauf

[Niels]

Moin!

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
result := ... ein. Dann könnte man evtl sagen woran der Fehler noch liegt.

MfG Niels