Отправлено: 02.12.20 17:54. Заголовок: 16 задание 2236

Задача:Алгоритм вычисления функций F(n) и G(n) задан следующими соотношениями:

F(n) = G(n) = 1 при n = 1

F(n) = F(n–1) – 2 · G(n–1), при n > 1

G(n) = F(n–1) + G(n–1) + n, при n > 1

Чему равна сумма цифр значения функции G(36)?
Моя программа:

function f(n: integer): integer; forward;
function g(n: integer): integer; forward;

function f(n:integer):integer;
begin
if n=1 then f:=1;
if n>1 then F:= F(n-1)-2* G(n-1);
end;

function g(n: integer): integer;
begin
if n=1 then g:=1;
if n>1 then g:=F(n-1)+G(n-1)+n;
end;
begin
writeln(g(36));




end.



Вопрос Программа работает, но значение не выводится, что может быть?

 Отправлено: 02.12.20 18:14. Заголовок: Огромный массив вычи..

Огромный массив вычислений (2^36 подвызовов функции).
Необходима мемоизация (запись значений рекурсии в кэш).
Как вариант использование динамического программирования.

 Отправлено: 02.12.20 18:50. Заголовок: А как это сделать?

А как это сделать?

 Отправлено: 02.12.20 20:24. Заголовок: Кэйт пишет: А как эт..

Кэйт пишет:

цитата:

А как это сделать?

Посмотрите разбор 16-й задачи на канале Alex Danov.

 Отправлено: 02.12.20 19:14. Заголовок: var k,s: integer; fu..

var k,s: integer;
function f(n: integer): integer; forward;
function g(n: integer): integer; forward;

function f(n:integer):integer;
begin
if n=1 then f:=1;
if n>1 then F:= F(n-1)-2* G(n-1);
end;

function g(n: integer): integer;
begin
if n=1 then g:=1;
if n>1 then g:=F(n-1)+G(n-1)+n;
end;
begin
S:=G(36);
k:=0;
while s<>0 do
begin
k:=k+s mod 10;
s:= s div 10;

end;
writeln (k);
end.