Процедура для кнопки «Сума до сплати»
procedure TForm1.Button1Click(Sender: TObject);
var kilk, suma: real;
begin
if (Edit1.Text='')
then ShowMessage('Вкажіть кількість літрів')
else begin
kilk:= StrToFloat(Edit1.Text);
if RadioButton1.Checked
then suma:=kilk*8.82
else if RadioButton2.Checked
then suma:=kilk*8.43
else if RadioButton3.Checked
then suma:=kilk*7.95
else suma:=kilk*8.23;
end;
Label3.Caption:='Ви замовили '+ FloatToStr(kilk) +
' л бензину на суму ' + FloatToStr(suma)+' грн.';
end;
Збережіть проект у папці Проект4_2.
Запустіть проект та перевірте правильність його виконання. Приклад виконання програми зображено на рисунку 12.
Рис. 12
Додаткове завдання
Передбачити в програмі можливість обчислення прибутку від продажу газу (пропан) за ціною 5,55 грн.
Закрийте проект.
Завдання 3
Товариство «Металопласт» виготовляє для продажу металопластикові балконні блоки двох профілів. Ціни подано в таблиці 4 .
Таблиця 4
Профіль |
Однокамерні склопакети |
Двокамерні склопакети |
Salamander |
1859,00 грн. |
2104,00 грн. |
Rehau |
1718,00 грн. |
1944,00 грн. |
Для заохочення клієнтів було запропоновано дисконтну систему знижок (у випадку наявності дисконтної картки знижка становить 5%, якщо сума витрат складає понад 2000 грн.). Скласти програму для автоматизації розрахунку за проданий товар ( рис. 13).
Рис. 13 Рис.14
Порядок виконання
У папці ЛР-Delphi створіть папку Проект4_3.
Відкрийте Delphi 7.
На заготовку форми, що з’явилася на екрані після запуску Delphi 7, помістіть п’ять написів (Label), два списки (ComboBox), прапорець (CheckBox), поле редагування (Edit), одну стандартну кнопку (Button) відповідно до рисунка 14.
Встановіть значення властивостей компонентів згідно даних таблиці 5.
Таблиця 5
Компонент |
Вкладка вікна «Інспектор об’єктів» (Object Inspector) |
Властивість (Properties) /Подія (Events) |
Значення властивості/ обробка події (тіло процедури обробки події) |
Form1 |
Properties |
Caption |
МЕТАЛОПЛАСТ |
Color |
clSilvert |
||
Height |
300 |
||
Width |
425 |
||
Label1 |
Properties |
Caption |
Профіль |
Font |
<Шрифт, розмір, колір за вибором> |
||
Label2 |
Properties |
Caption |
Склопакет |
Font |
<Шрифт, розмір, колір за вибором> |
||
Label3 |
Properties |
Caption |
Кількість (шт.) |
Font |
<Шрифт, розмір, колір за вибором> |
||
Label4 |
Properties |
Caption |
_____ |
Font |
<Шрифт, розмір, колір за вибором> |
||
Label5 |
Properties |
Caption |
_____ |
Font |
<Шрифт, розмір, колір за вибором> |
||
ComboBox1 |
Properties |
Items |
Salamander |
|
Rehau |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
ComboBox2 |
Properties |
Items |
Однокамерний |
|
Двокамерний |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
CheckBox1 |
Properties |
Caption |
Дисконтна картка |
Checked |
False |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
Edit1 |
Properties |
Text |
<Чисте поле> |
Enabled |
True |
||
Font |
<Шрифт, розмір, колір за вибором> |
||
Button1 |
Properties |
Caption |
Розрахувати |
Font |
<Шрифт, розмір, колір за вибором> |
||
Events |
OnClick |
<Процедура> |