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

@Vlad9599 · Регистрация: 09.10.2017

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

Даны неотрицательные целые числа n и m. Вычислить функцию A(n, m) вида:

Код

          {m+1, если n=0;
A(n, m) = {A(n-1, 1), если n<>0, m=0;
          {A(n-1, A(n, m-1)), если n>0, m>0.

@Cyborg Drone · 19.10.2017, 01:16

Pascal

function a(n, m: longint): longint;
begin
  if n = 0
    then a := m + 1
    else if m = 0
      then a := a(n - 1, 1)
      else a := a(n - 1, a(n, m - 1))
end;
 
var n, m: longint;
begin
  repeat
    write('n >= 0;  n = ');
    readln(n)
  until n >=0;
  repeat
    write('m >= 0;  m = ');
    readln(m)
  until m >=0;
  write('A(', n, ', ', m, ') = ', a(n, m));
  readln
end.

Не вводите слишком большие числа, функция Аккермана растёт очень быстро.
Навскидку, чтобы не было целочисленного переполнения и переполнения стека,
для n < 3 значение m не должно превышать 1000000,
для n = 3 значение m не должно превышать 24,
для n = 4 значение m не должно превышать 0.

@Vlad9599 0 / 0 / 0 Регистрация: 09.10.2017 Сообщений: 7
		1
	Функция Аккермана 16.10.2017, 18:05. Показов 2303. Ответов 1 Метки нет (Все метки) Даны неотрицательные целые числа n и m. Вычислить функцию A(n, m) вида: Код {m+1, если n=0; A(n, m) = {A(n-1, 1), если n<>0, m=0; {A(n-1, A(n, m-1)), если n>0, m>0. 0

	19.10.2017, 01:16

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

Решение