Функция Аккермана.

[lexus_ilia]

Разработать рекурсивную функцию нахождения значения функции Аккермана, которая определяется для всех неотрицательных целых аргументов m и n следующим образом:
А(0,n)=n+1;
A(m,0)=A(m-1,1), если (m>0);
A(m,n)=A(m-1,A(m,n-1)), если (m, n >0).
я решил написать так:

Program laba11a;
uses
 crt;
Var
 k,l,F:extended;
function akker(m,n:extended):extended;
begin
 if m=0 then
  akker:=n+1;
 if (m>0) and (n=0) then
  akker:=akker(m-1,1);
 if (m>0) and (n>0) then
  akker:=akker(m-1,akker(m,n-1));
end;
begin
 clrscr;
 Writeln('BBedute m u n');
 Write('m=');
 Readln(k);
 Write('n=');
 Readln(l);
 F:=akker(k,l);
 Writeln('FyHkcu9 =' ,F);
 readkey;
end.

Теперь появился вопрос как переделать её, что-бы не было переполнения стека, например при значении m=4 и n=4? я понимаю что надо делать как-то ссылки на значения, а не сами значения использовать, но просто интересно стало а как это реализовать?

[Serge_Bliznykov]

Вы будете смеяться, но Вы всё сделали правильно!
Это функция такая "плохая"... :-(((


http://www.mgopu.ru/PVU/2.1/Recurs/B...2/fun_akkr.htm

Функция Аккермана — Википедия

Функция Аккермана - Программирование Форум на SQL_RU

[lexus_ilia]

Да дело не в этом, я это всё уже читал, прежде чем делать лабу, вопрос у меня прост, можно ли как-нибудь при помощи Паскаля реализовать подсчёт функции Аккремана для 4,4 избежав переполнения стека?

[Rusl92]

Моңет попробовать У К А З А Т Е Л И?

[Studentka_iz_ZP]

Подскажите, а как в этой программе добавить ещё и вывод значений функции?

[Google2010]

вывод значений функции

Writeln('FyHkcu9 =' ,F);

-а это что?

[Studentka_iz_ZP]

вот так

[ROMA2PVT]

http://forum.sources.ru/index.php?sh...1&view=showall

[Studentka_iz_ZP]

спасибо я это уже видела.
там другой текст программы.
а как для этого кода сделать вывод значений?

[ROMA2PVT]

Прога неверно считает значения.

function akker(m,n:extended):extended;
begin
 if m=0 then
  akker:=n+1;
 if (m>0) and (n=0) then
  akker:=akker(m-1,1);
 if (m>0) and (n>0) then
  akker:=akker(m-1,akker(m,n-1));
write(' ',m,n); {Вот здесь добавил}
end;