Определить, сколько будет амеб

Мвнюня · 12.04.2013, 16:58

Помогите, пожалуйста, решить задачку с помощью рекурсии на делфи. Амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб через n часов, если первоначально была одна амеба.

Мвнюня · 12.04.2013, 21:19

воть примерный код..но как сделать через рекурсию???? помогите пожалуйста!!
. procedure TForm2.Button1Click(Sender: TObject);
var amebs:integer;
i:integer;
begin amebs:=1;
for i:=1 to 24 do begin if i mod 3 = 0 then begin showmessage('Время:' +IntToStr(i)); amebs:=amebs*2;
showmessage('Амебы:' +IntToStr(amebs));
end;
end;
end;

interacia · 12.04.2013, 22:37

Функция возвращающая количество амеб.

Код:

function amebs(has:integer):integer;
 begin
if has<3 then amebs:=1
else amebs:=amebs(has-3)*2;
 end;

Подаете в неё количество часов
Для примера

Код:

Write('ameb:=',amebs(10));

12.04.2013, 16:58	#1 (permalink)
Мвнюня Member Регистрация: 03.03.2013 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Определить, сколько будет амеб Помогите, пожалуйста, решить задачку с помощью рекурсии на делфи. Амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб через n часов, если первоначально была одна амеба.

12.04.2013, 22:37	#3 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	Функция возвращающая количество амеб. Код: function amebs(has:integer):integer; begin if has<3 then amebs:=1 else amebs:=amebs(has-3)*2; end; Подаете в неё количество часов Для примера Код: Write('ameb:=',amebs(10));

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

12.04.2013, 16:58
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Как вы уже поняли - это темы которые имеют сходства с вашей Как определить, на сколько ватт загружен БП? Видеокарта 3.0 и мать 2.0. Сколько мощности будет выдавать видеокарта? Сколько будет стоит сайт?

12.04.2013, 21:19	#2 (permalink)
Мвнюня Member Регистрация: 03.03.2013 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	воть примерный код..но как сделать через рекурсию???? помогите пожалуйста!! . procedure TForm2.Button1Click(Sender: TObject); var amebs:integer; i:integer; begin amebs:=1; for i:=1 to 24 do begin if i mod 3 = 0 then begin showmessage('Время:' +IntToStr(i)); amebs:=amebs*2; showmessage('Амебы:' +IntToStr(amebs)); end; end; end;

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070