Калькулятор. Рекурсия. Разбор кода.

[kcah]

У исполнителя Калькулятор две команды, которым присвоены номера:
a. прибавь 1
b. умножь на 2
Сколько есть программ, которые число 1 преобразуют в число 16?

function F(k:integer):integer;
begin
if k=1 then F:=1
else
if k mod 2=0 then
F:=F(k-1)+F(k div 2)
else
F:=F(k-1);
end;
begin 
write(F(16));
end.

Это программа работает правильно, но объясните, как? Как она вообще работает пошагово?

[Arigato]

Все калькуляторами балуетесь: http://programmersforum.ru/showthread.php?t=249119

[Stilet]

Капец, какая хитрая программа...

//Описываем функцию с параметром числа и номера команды
function F(k,cmd:integer):integer;
begin
//Если команда такая-то 
 case cmd of
  1:f:=k+1; // Возвращаем результат на единице больше
  2:f:=k*2; // Возвращаем удвоенное число
 end;
end;
begin 
write(F(16,1));
write(F(16,2));
end.

[kcah]

Закрепляю =)

[kcah]

Сообщение от Stilet

Капец, какая хитрая программа...

//Описываем функцию с параметром числа и номера команды
function F(k,cmd:integer):integer;
begin
//Если команда такая-то 
 case cmd of
  1:f:=k+1; // Возвращаем результат на единице больше
  2:f:=k*2; // Возвращаем удвоенное число
 end;
end;
begin 
write(F(16,1));
write(F(16,2));
end.

Это что вообще?

[Stilet]

Это исполнитель - калькулятор.
Или тебе не это нужно?

[kcah]

Сообщение от Stilet

Это исполнитель - калькулятор.
Или тебе не это нужно?

Он выдаёт просто 17, т.е. 16+1 и 32, т.е. 16*2.
А мне надо, чтоб он выдавал 36