Помощь - Поиск - Пользователи - Календарь
Полная версия: Рекурсия
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
wero4ka1991
Помогите, пожалуйста, решить задачку с помощью рекурсии. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб будет через 3, 6, 9, 12, 24 часа.
Lapp
Цитата(wero4ka1991 @ 27.11.2011 13:24) *
Помогите, пожалуйста, решить задачку с помощью рекурсии. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб будет через 3, 6, 9, 12, 24 часа.

Нет проблем.
{ amoeba fission using recursion
by Lapp, forum.pascal.net.ru
for wero4ka1991 }

function Fission(t: integer): integer;
begin
if t>=3 then Fission:= Fission(t-3) + Fission(t-3) else Fission:= 1
end;

var
time: integer;

begin
write('time = ');
readln(time);
writeln('after ',time,' hours there will be ',Fission(time),' amoebas');
readln
end.

Собираешься разводить амеб на продажу? Боюсь, через пару дней тебе придется резко активизировать рекламу.. lol.gif
wero4ka1991
спасибо) ну как бы, неплохой бизнес должен получиться)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.