Практична робота № 8

«Складання програм з розгалуженнями»

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

1. Відкрийте середовищерозробки Turbo Delphi 2006 і створіть новий проект.

2. Розмістіть на формі елементи керування для розв’язання задачі: Відомо довжини сторін двох прямокутників. Обчислити площі прямокутників та порівняти їх. Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься один прямокутник у середину другого. Повідомити визначені результати. У проекті:

а) складіть обробник події OnClick першої кнопки для обчислення площ прямокутників та виведення повідомлення про те, у якого прямокутника більша площа;

б) складіть обробник події OnClick другої кнопки, виконання якого залежно від встановлених прапорців приведе до визначення того, чи є відповідний прямокутник квадратом;

в) складіть обробник події OnClick третьої кнопки, виконання якого приведе до визначення, чи вміститься перший прямокутник у середину другого або другий прямокутник у середину першого залежно від вибраного перемикача;

г) виконайте складені процедури і переконайтеся, що результати їх роботи правильні.

3. Створіть у власній папці папку Практична 8 і збережіть у ній проект.