1) Її можна розв’язати іншим способом, не вводячи змінних m, n, k, а написавши просто
ShowMessage(FloatToStr(StrToFloat(Edit2.Text)* StrToFloat(Edit3.text)/
StrToFloat(Edit1.Text)));
2) Можна «красиво» вивести результат, наприклад так:
ShowMessage(‘Флінт отримав число ’+FloatToStr(n*k/m));
Задача 2. У іноземного диверсанта було завдання: темною ніччю підірвати N загальноосвітніх шкіл (при розв’язанні вважати, що N націло ділиться на 3). Диверсант перевиконав завдання на 1/3 його частини. Скільки щасливих діточок зможуть відпочити від загальної освіти, якщо відомо, що у кожній підірваній школі мучилися M учнів?
Вхідні дані. Число шкіл N та число учнів кожної школи M вводяться з клавіатури.
Вихідні дані. Число відпочиваючих учнів виводиться на монітор.
Розв’язання. Треба було підірвати N шкіл, але диверсант підірвав на третину більше, тобто N+N/3 школи. Якщо в кожній школі було M учнів, то всього їх було M*(N+N/3). За цією формулою й будемо розв’язувати задачу.
Розмістіть на формі необхідні компоненти:
За смислом задачі M та N – цілі числа, тому змінні m і n будемо об’являти типу integer (додайте в процедуру написане червним):
procedure TForm1.Button1Click(Sender: TObject);
var
m,n:integer;
begin
end;
Потім присвоюємо нашим змінним необхідні значення (додайте у процедуру):
| Використовуємо StrToInt, тому що m, n, типу integer
| |
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
Обчислюємо та виводимо результат за формулою:
| Використовуємо FloatToStr, тому що m*(n+n/3) - вираз типу real: в ньому присутнє ділення
| |
ShowMessage(FloatToStr(m*(n+n/3)));
Запустіть програму на виконання.
6. Розв’яжіть наступні задачі.
Задача 3. Сумний дядя Боря запропонував задумливій тьоті Олі вийти за нього заміж. Тьотя Оля обіцяла подумати, думала N років і відмовилась. Сумний дядя Боря запропонував їй іще подумати. Задумлива тьотя Оля думала на M років довше, ніж першого разу, і погодилася. Скільки років сумний дядя Боря не втрачав надії, що задумлива тьотя Оля вийде за нього заміж?
Вхідні дані. Числа років M, N вводяться з клавіатури.
Вихідні дані. Результат виводиться на монітор.
Задача 4. Колі та Толі купили по M пиріжків. Коля з’їв свої пиріжки за X хвилин і став з’їжджати з глузду від заздрощів, глядячи, як Толя їсть кожний пиріжок по Y хвилин. Як довго буде з’їжджати з глузду Коля?
Вхідні дані. Число пиріжків М і числа хвилин X, Y вводяться з клавіатури. (X,Y не обов’язково цілі).
Вихідні дані. Час з’їжджання з глузду Колі виводиться на монітор.
Лабораторна робота №5. Розв’язування математичних задач за допомогою Delphi
