Процедура для кнопки «Розрахувати»

procedure TForm1.Button1Click(Sender: TObject);

var kilk: integer;

suma, znizhka: real;

begin

if ComboBox1.Text=' ' then ShowMessage('Оберіть профіль');

if ComboBox1.Text='Salamander'

then if ComboBox2.Text='Однокамерний'

then suma:=1859

else if ComboBox2.Text='Двокамерний'

then suma:=2104

else ShowMessage('Оберіть склопакет');

if ComboBox1.Text='Rehau'

then if ComboBox2.Text='Однокамерний'

then suma:=1718

else if ComboBox2.Text='Двокамерний'

then suma:=1944

else ShowMessage('Оберіть склопакет');

if Edit1.Text=' '

then kilk:=0

else kilk:=StrToInt(Edit1.Text);

if kilk=0 then ShowMessage('Вкажіть кількість');

suma:=suma*kilk;

if (suma>2000)and(CheckBox1.Checked)

then begin

znizhka:=suma*0.05;

suma:=suma-znizhka;

end;

Label4.Caption:='Сума до сплати '+FloatToStr(suma)+' грн.';

Label5.Caption:='Знижка становить '+FloatToStr(znizhka)+' грн.';

end;

11. Збережіть проект у папці Проект4_3.

12. Запустіть проект та перевірте правильність його виконання. Приклад виконання програми зображено на рисунку 15.

Рис. 15

Додаткове завдання

Передбачити в програмі можливість обчислення для ще одного профілю за такими цінами:

Профіль	Однокамерні склопакети	Двокамерні склопакети
ALM Plast	1399,15 грн.	1521,99 грн.

13. Закрийте проект.

Контрольні запитання

1. Які значення можуть бути результатом виконання команди перевірки умови (обчислення значення логічного виразу)?

2. Як позначається команда перевірки умови в блок-схемі алгоритму?

3. Зобразіть блок-схеми повного і неповного розгалуження. Опишіть особливості їх виконання.

4. Поясніть відмінності повного і неповного розгалуження.

5. Наведіть загальний вигляд команд повного і неповного розгалуження в Delphi.

6. Поясніть виконання команд повного і неповного розгалуження в Delphi.

7. Які операції використовують для утворення складених логічних виразів у Delphi?

8. Для чого використовують прапорці, перемикачі та списки?

9. Що визначає властивість Checked для перемикачів і прапорців?

10. Поясніть відмінності використання команд розгалуження при складанні проектів з прапорцями та перемикачами.

Література

1. Забарна А. Візуальне програмування у Delphi: Практикум/ А. Забарна, О. Войченко – К.: Вид.дім «Шкіл.світ»: Вид. Л.Галіцина, 2006 – 128 с.

2. Кащеєв Л.Б. Інформатика. Основи візуального програмування: Навч. Посібник/ Л.Б. Кащеєв, С.В. Коваленко, С.М. Коваленко. – Х.: Веста, 2011. – 192 с.

3. Ривкінд Й.А., Лисенко Т.І., Чернікова Л.А., Шакотько В.В.; за аг. Ред.. М.З. Згуровського. Інформатика: 11 кл.– К.: Генеза, 2011. – 304 с.

12