задачи в Delphi в визуалейшене

[Salomon9393]

1)Покупатель должен заплатить в кассу S руб.У него имеются купюры по 1,5,10,50,100,500,1000 и 10 000 руб.Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр?

2)В водоеме 100 т рыбы.каждый год рыболовецкая бригада вылавливает 15 т. Воспроизводство рыбы 5% в год. Для сохранения воспроизводства необходимо прекращать лов ,когда в водоеме ее остается менее 5 т.Через сколько лет лов рыбы должен быть прекращен?

[TinMan]

Сообщение от Salomon9393

Покупатель должен заплатить в кассу S руб.У него имеются купюры по 1,5,10,50,100,500,1000 и 10 000 руб.

Круто. Я думаю, он отдаст все, что есть, а потом еще выложит свой Роллекс и выплюнет золотые зубы. Не иначе, как к нему в этой кассе с пистолетом пристают..

[Mad_Cat]

в визуалейшене

а это что такое?

[Salomon9393]

В Делфе когда заходишь выбераешь форму визуал аплекейшен. Тепереь понятно? Сможете решить?

[Salomon9393]

а если без меха серьезно помочь?

[isqoff]

я думаю что это простые задачи
и вы должны сами начать их решать,а если что-то не получается готов помочь
P.S
про купюры не ясно какое количество каждой?

[Serge_Bliznykov]

а если без смеха - Вы сами что сделали уже? Что не получается?
Где вы на вашей форме собираетесь вводить исходные данные и куда выводить результаты вычислений?!

по первой задаче подход такой - см. тему программа на Паскале: выдать сумму наименьшим количеством купюр.

по второй. решение такое:

  r := 100;
  y := 0;
  while r>=5 do begin
     Inc(y); {наступил следующий год}
     r := r - 15; {выловили 15 тонн}
     r := r + r*0.05; {воспроизводство рыбы}
     if y>1000 then begin  {перестраховка от расходящегося ряда - когда рыбы больше, чем её вылавливают!}
         ShowMessage('Этой рыбы больше чем на тысячу лет хватит!!');
         Break;
     end;
  end;
  ShowMessage('Через '+IntToStr(y)+' лет рыбы останется '+FloatToStr(r));

[Salomon9393]

Спасибо большое

[TinMan]

Я извиняюсь.. На маленьком мониторе S выглядело практически как 5. Вот я и подумал - зачем ему все эти громадные купюры, если сумма копеечная? ))
Sorry, постараюсь больше не путать..

[Salomon9393]

Народ вот эти 2 задачи оформите пожалуйста в Delphi на форме VCL Forms Application-Delphi а то у меня не получается выручайте сюда если что фото в архиве добавите все жду надуюсь поможите!!!