** каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько ** двух...

Question

На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пяточка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.
Только это надо решить в Delphi.

Answer 1

Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100; 
dn:=100; k:=2;
while dn<=m do<br> begin
 dn:=d1+d2;
 d1:=d2;
 d2:=dn;
 k:=k+1;
 end;
writeln('k = ',k,' dn = ',dn);
end.

Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300

Comments

а как связать это всё через Edit, Button and Memo?

---

Вес Винни-Пуха ввести в компонент Edit и переменную m определять так: m:=StrToInt(Edit1.Text). Необходимые вычисления делать в обработчике события Click кнопки Button. Результат лучше вывести в компонент Label.

Answer 2

Можно знаками и таблицами,ибо инным способом. Просто я работаю в Коралле;)

Comments

таблицами, эт типо массива?

---

Да типо этого) я таблицей эту задачу решала