Вправа 42. Складання циклічних алгоритмів опрацювання величин HD

8 клас. Практичні завдання з інформатики за підручником О.О.Бондаренко 2016 року. Вправа 42. Складання циклічних алгоритмів опрацювання величин. Завдання. Скласти програму для розв’язання старовинної задачі. Плата за одного бика — 20 карбованців, за корову — 10 карбованців, за теля — 1 карбованець. скільки можна купити биків, корів і телят, якщо на 200 карбованців треба купити 100 голів худоби? 1) Створіть новий проект. Змініть заголовок форми на «Старовинна задача». 2) Розмістіть на формі компонент ListBox згідно з рисунком. 3) Додайте на форму кнопку Button1. Змініть заголовок доданої кнопки на «Виконати». 4) Розв’язання задачі. Позначимо літерою b кількість биків; k — кількість корів; t — кількість телят. Загальна кількість голів дорівнює 100: b + k + t = 100. За биків заплатили 20b карбованців, за корів — 10k карбованців, за телят — t карбованців, отже, 20b + 10k + t = 200. На 200 карбованців можна купити: не більше 10 биків; не більше 20 корів; не більше 200 телят. Таким чином, необхідно перебрати всі можливі значення змінних b, k, t і вивести в поле ListBox той набір значень, для яких виконується умова (20 * b + 10 * k + t = 200) аnd (b + k + t = 100). 5) Створіть процедуру обробки події OnClick для кнопки Старовинна задача. У програмному коді створеної процедури запишіть такі оператори: var b, k, t: Integer; begin For b := 0 to 10 do For k := 0 to 20 do For t := 0 to 200 do If (20 * b + 10 * k + t = 200) аnd (b + k + t = 100) Then begin ListBox1.Items.Add(‘Биків ‘ + IntToStr(b)); ListBox1.Items.Add(‘корiв ‘ + IntToStr(k)); ListBox1.Items.Add(‘телят ‘ + IntToStr(t)); end; end; 6) Запустіть проект на виконання. Перевірте роботу програми. 7) Збережіть проект у папці Вправа 42. Завантажити текст практичного завдання у форматі docx: