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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 391

Раздел: Delphi » Прочее
/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Подскажите, пожалуста, что конкретно необходимо найти в данной задаче
с использованием рекурсивной подпрограммы:
"Даны целые неотрицательные числа 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

Примечание #1 (3 марта 2008, 21:24):
A(m,n)= {m+1, n=0;
A(n-1,m), "n" не равно 0, m=0
A(n-1; A(n,m-1)), n>0, m>0

Upgr3id Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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


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

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

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 23 октября 2017, 03:23
Выполнено за 0.07 сек.
Рейтинг@Mail.ru