Рекурсия: вычислить значение функции Аккермана

@CharCharismos · Регистрация: 31.03.2016

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

Даны неотрицательные целые числа n,m; используя рекурсивную подпрограмму, вычислить значение функции Аккермана A(n,m), где A(n,m)={m=1, если n=0;A(n-1, 1), если n<>0, m=0; A(n-1,A(n,m-1)), если n>0, m>0}

@JokeR.BY · 02.06.2016, 13:00

внизу странички есть волшебный редактор формул. потрудитесь привести своё безобразие в читабельный вид.

@CharCharismos · 02.06.2016, 14:07 **[ТС]**

$https://www.cyberforum.ru/cgi-bin/latex.cgi?A\left(n,m \right)=\left{m=1,$ если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n=0; A\left(n-1, 1 \right)$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n\neq 0, m=0; A\left(n-1,A\left(n,m-1 \right) \right)$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n>0,m>0}$

переписал один в один, со сборника задач

@JokeR.BY · 02.06.2016, 14:50

$https://www.cyberforum.ru/cgi-bin/latex.cgi?A\left(n,m \right)=\begin{cases} & m=1\text{ if } n=0 \\ & A\left(n-1,1 \right)\text{ if } n\neq0,m=0 \\ & A\left(n-1,A\left(n,m-1 \right) \right)\text{ if } n>0,m>0 \end{cases}$
при чём в первом "if'е" какой-то бред получается.

Добавлено через 1 минуту
код то написать не проблема, но логики в нём нет. разве что в условии что-то не так.

Pascal

function A(n, m: Word): Word;
var
    Result: Word;
begin
    if (n = 0)
    then
        m := 1
    else
        if (m = 0)
        then
            Result := A(n - 1, 1)
        else
            Result := A(n - 1, A(n, m - 1));
    A := Result;
end;
var
    n, m: Word;
begin
    Write('Input n, m: '); ReadLn(n, m);
    WriteLn('A(', n, ',', m, ')=', A(n, m));
end.

@volvo · 02.06.2016, 14:53

А еще внизу страницы есть "Похожие темы", где как минимум 2 темы точно совпадают с озвученной.

@JokeR.BY · 02.06.2016, 14:56

о чём я и говорил. итоговая рекурсия вот так выглядит.

Pascal

function A(const n, m: Extended): Extended;
var
    Result: Extended;
begin
    if (n = 0)
    then
        Result := m + 1
    else
        if (m = 0)
        then
            Result := A(n - 1, 1)
        else
            Result := A(n - 1, A(n, m - 1));
    A := Result;
end;
var
    n, m: Byte;
begin
    Write('Input n, m: '); ReadLn(n, m);
    WriteLn('A(', n, ',', m, ')=', A(n, m):0:0);
end.

Рекурсия: вычислить значение функции Аккермана

Решение

Решение

@CharCharismos 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 26
		1
	Рекурсия: вычислить значение функции Аккермана 02.06.2016, 11:12. Показов 2444. Ответов 5 Метки нет (Все метки) Даны неотрицательные целые числа n,m; используя рекурсивную подпрограмму, вычислить значение функции Аккермана A(n,m), где A(n,m)={m=1, если n=0;A(n-1, 1), если n<>0, m=0; A(n-1,A(n,m-1)), если n>0, m>0} 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	02.06.2016, 13:00	2
	внизу странички есть волшебный редактор формул. потрудитесь привести своё безобразие в читабельный вид. 0

@CharCharismos 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 26
	02.06.2016, 14:07 [ТС]	3
	$https://www.cyberforum.ru/cgi-bin/latex.cgi?A\left(n,m \right)=\left{m=1,$ если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n=0; A\left(n-1, 1 \right)$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n\neq 0, m=0; A\left(n-1,A\left(n,m-1 \right) \right)$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?n>0,m>0}$ переписал один в один, со сборника задач 0

@volvo Супер-модератор 32764 / 21109 / 8139 Регистрация: 22.10.2011 Сообщений: 36,363 Записей в блоге: 8
	02.06.2016, 14:53	5
	А еще внизу страницы есть "Похожие темы", где как минимум 2 темы точно совпадают с озвученной. 0

Опции темы