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

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

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

Автор: wero4ka1991 27.11.2011 16:24

Помогите, пожалуйста, решить задачку с помощью рекурсии. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб будет через 3, 6, 9, 12, 24 часа.

Автор: Lapp 30.11.2011 13:37

Цитата(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 30.11.2011 13:59

спасибо) ну как бы, неплохой бизнес должен получиться)