Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Подскажите, пожалуста, что конкретно необходимо найти в данной задаче
с использованием рекурсивной подпрограммы:
"Даны целые неотрицательные числа m, n. Вычислить так называемую "Функцию Аккермана"

|m+1, n=0;
|
A(n,m)= |A(n-1,m), "n" не равно 0, m=0
|
|A(n-1; A(n,m-1)), n>0, m>0

Использовать рекурсивную подпрограмму.
+Вывести таблицу значений размера (m(max)+1)*(n(max)+1)."

Как найти Функцию Аккермана, и как вывести таблицу значений размера?
Хотя-бы приблизительно. Язык - Delphi7 Object pascal

Вопрос задал: Upgr3id (статус: Посетитель) Вопрос отправлен: 3 марта 2008, 21:10 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Upgr3id!
вот вам эта функция, только записаная языком паскаль

function accerman(n, m:longint):longint;
begin
  if n = 0 then
    accerman := m+1
  else if m = 0 then 
    accerman :=accerman(n-1,m) 
  else 
    accerman := accerman(n-1, accerman(n,m-1))
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 3 марта 2008, 23:19 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.