Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Функция Аккермана

Автор: Mika 16.04.2006 20:51

Нужны два варианта решения: рекурсивный и итерационный.

1. Рекусия уже написана но очень быстро переполняется стек. Подкиньте идею оптимизации.

2. Нужно решение итерационное с помощью имитации стека массивом записей. smile

Код

    
function Acc(n,m : word): word;
begin
if (n=0) then Acc:=m+1 else
    begin
    if (n<>0)and(m=0) then Acc:=Acc(n-1,1);
    if (n<>0)and(m<>0) then Acc:=Acc(n-1,Acc(n,m-1));
end;


Автор: volvo 16.04.2006 20:55

Ну, я же дал тебе идею оптимизации рекурсии:

Function FAcc(n, m: LongInt): Longint;
begin
While n <> 0 Do Begin
Dec(n);
If m = 0 Then m := 1 Else m := FAcc(n + 1, m - 1);
End;
FAcc := m + 1;
end;


Насчет итерации - где-то видел, сейчас гляну...

Автор: the difference between viagra an 18.12.2021 20:36

cialis and high blood pressure