Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 2
Регистрация: 16.10.2013
Сообщений: 21
1

Вычислить несколько значений функции Аккермана для неотрицательных чисел m и n через рекурсию

22.12.2019, 20:24. Показов 976. Ответов 2
Метки нет (Все метки)

Здравствуйте. такое дело нужно решить программу на паскаль ABC
Вычислить несколько значений функции Аккермана для неотрицательных чисел m и n через рекурсию


Вычислить несколько значений функции Аккермана для неотрицательных чисел m и n через рекурсию

Так вот не могу запустить программу в Pascal ABC в обычном паскале вроде как работает, помогите переделать под Паскаль Abc
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2019, 20:24
Ответы с готовыми решениями:

Вычислить несколько значений функции для неотрицательных чисел m и n
Вычислить несколько значений функции для неотрицательных чисел m и n через рекурсию Система...

Разработать рекурсивную функцию для вычисления значения функции Аккермана для неотрицательных чисел n и m
Разработать рекурсивную функцию:для вычисления значения функции Аккермана для неотрицательных чисел...

Исправить код (Рекурсивные функции вычислить неск. значений Аккермана)
Всем добрый вечер. Есть задача: 4. Вычислить несколько значений функции Аккермана для...

Вычислить несколько значений функции Аккермана для неотрицательных чисел m и n
Вычислить несколько значений функции Аккермана для неотрицательных чисел m и n: Помогите...

2
0 / 0 / 2
Регистрация: 16.10.2013
Сообщений: 21
22.12.2019, 23:56  [ТС] 2
нашел проблему, не принимал Extended причину не нашел,пришлось переделать
Ловите исправленный вариант может кому пригодится

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function A(const n, m: integer): integer;
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));
end.
Проблемк будет при больших числах из за переполнения, кто подскажет как исправить проблему с Extended буду благодарен

Добавлено через 11 минут
P.S при цифрах более 3 и 3 происходит переполнение Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека

Как исправить
0
Status 418
1705 / 889 / 317
Регистрация: 26.11.2017
Сообщений: 2,461
23.12.2019, 06:54 3
Мемоизация
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2019, 06:54

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Разработать рекурсивный метод, возвращающий значение функции Аккермана для неотрицательных чисел n и m
Разработать рекурсивный метод, возвращающий значение функции Аккермана для неотрицательных чисел n...

Вычислить среднее арифметическое всех неотрицательных значений функции в заданном интервале
#include <math.h> #include <stdio.h> #define A -5 #define B 5 #define H 0.2 int main ( ) {...

Разработать программу для определения и вывода на экран неотрицательных значений функции
Помогите понять и растолковать условие. Все бы хорошо, но меня путает это словосочетание -...

Сделать сумму двух чисел в двоичной системе через рекурсию и функции
Задано два положительных числа в двоичной системе счисления.Составить программу вычисления суммы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.