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

[Studentka_iz_ZP]

насколько я поняла рез-тат записывантся в текстовый файл out.txt..
но я его что-то не нахожу..
и я для начала не понимаю что это за массивы b ,d
и что это за значение с-?

[Studentka_iz_ZP]

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

Нате вам аццкой быстроты вариант с деревьями, без рекурсии

program Ack;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TItem = record
      m_b, m_ak: integer;
     end;

var arr: array of TItem;
    i,m,n:integer;

begin
  m:=strtoint(paramstr(1));
  n:=strtoint(paramstr(2));

  SetLength(arr,m+1);

  for i:=0 to m-1 do
  begin
    arr[i+1].m_b := -1;
    arr[i+1].m_ak := 1;
  end;

  arr[0].m_b := -1;
  arr[0].m_ak := 0;

  while arr[m].m_b <> n do
  begin
    inc(arr[0].m_b);
    inc(arr[0].m_ak);
    i := 0;
    While ((i <> m) and (arr[i].m_b = arr[i+1].m_ak)) do
      begin
        inc(arr[i+1].m_b);
        arr[i+1].m_ak := arr[i].m_ak;
        inc(i);
      end

  end;
  Writeln(arr[m].m_ak);
end.

спасибо, но мне нужно именно с рекурсией!