Вычисление функции Аккермана итерационно

@kungi · Регистрация: 26.12.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу для вычисления функции акермана, не рекурсивным путём.
Прокопал интернет, ничего не нашёл. Сам понять не могу, как выполнить это итерационно. Буду благодарен, если кто поможет, сроки поджимают

@volvo · 26.12.2013, 16:49

С использованием стека. Вот тут: http://home.versatel.nl/vspick... kerman.htm есть 5 методов вычисления функции Аккермана (на Бейсике, но основное - идея, на Паскаль перевести - дело техники), третий и четвертый из этих методов - итеративны...

@kungi · 26.12.2013, 19:13 **[ТС]**

Сообщение от UI

С использованием стека. Вот тут: http://home.versatel.nl/vspick... kerman.htm есть 5 методов вычисления функции Аккермана (на Бейсике, но основное - идея, на Паскаль перевести - дело техники), третий и четвертый из этих методов - итеративны...

К сожалению, синтаксис бейсика мне не знаком. Может кто помочь с "переводом" на паскаль, пожалуйста?

@volvo · 26.12.2013, 19:27

Вот это, скажем, отработало в TP7 только что:

Pascal

const
  tsize = maxint div 2 div sizeof(integer);
var
  s : array[1 .. tsize] of integer;
  d : integer;
 
function IterAckermann(m, n : integer) : longint;
var t : integer;
begin
  t := 1;
  s[t] := m;
  repeat
    m := s[t]; dec(t);
    if m = 0 then
      inc(n)
    else if n = 0 then
    begin
      inc(t); s[t] := m - 1;
      n := 1
    end
    else
    begin
      inc(t); s[t] := m - 1;
      inc(t); s[t] := m;
      dec(n);
    end;
 
    if t > d then
    begin
      d := t;
      if d > tsize then
        writeln('failure');
    end;
  until t = 0;
  IterAckermann := n;
end;
 
begin
  d := 1;
  writeln(IterAckermann(3, 7));
end.

@kungi · 26.12.2013, 19:54 **[ТС]**

Спасибо большое, очень выручил!

@kungi 0 / 0 / 0 Регистрация: 26.12.2013 Сообщений: 3
		1
	Вычисление функции Аккермана итерационно 26.12.2013, 16:13. Показов 1846. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программу для вычисления функции акермана, не рекурсивным путём. Прокопал интернет, ничего не нашёл. Сам понять не могу, как выполнить это итерационно. Буду благодарен, если кто поможет, сроки поджимают 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	26.12.2013, 16:49	2
	С использованием стека. Вот тут: http://home.versatel.nl/vspick... kerman.htm есть 5 методов вычисления функции Аккермана (на Бейсике, но основное - идея, на Паскаль перевести - дело техники), третий и четвертый из этих методов - итеративны... 0

@kungi 0 / 0 / 0 Регистрация: 26.12.2013 Сообщений: 3
	26.12.2013, 19:13 [ТС]	3
	Сообщение от UI С использованием стека. Вот тут: http://home.versatel.nl/vspick... kerman.htm есть 5 методов вычисления функции Аккермана (на Бейсике, но основное - идея, на Паскаль перевести - дело техники), третий и четвертый из этих методов - итеративны... К сожалению, синтаксис бейсика мне не знаком. Может кто помочь с "переводом" на паскаль, пожалуйста? 0

@kungi 0 / 0 / 0 Регистрация: 26.12.2013 Сообщений: 3
	26.12.2013, 19:54 [ТС]	5
	Спасибо большое, очень выручил! 0

Вычисление функции Аккермана итерационно

Решение