12.04.2013, 16:58 | #1 (permalink) |
Member
Регистрация: 03.03.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 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; |
12.04.2013, 22:37 | #3 (permalink) |
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)); |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|