Урок 57-58. Елементи для введення даних: прапорці, випадаючий список, перемикачі

Перегляньте презентацію

Запам'ятайте

Прапорці використовують, щоб вибрати або один, або кілька варіантів з набору можливих, або не вибрати жодного. З кількох прапорців може бути вибрано або один, або кілька, або всі, або жодний.

Тому прапорці використовують у тих випадках, коли під час виконання проєкту потрібно вибрати або один з можливих варіантів, або кілька, або всі, або не вибрати жодного. Для опрацювання стану прапорців (вибраний або невибраний) у проєкт включають для кожного з них послідовно записані команди розгалуження, які незалежні одна від іншої.

Для тих, хто вивчає Pascal

Для розміщення на формі прапорця потрібно двічі клацнути на кнопці TCheckBox на вкладці Standard з компонентами.

Вибрано прапорець чи не вибрано визначається значенням його властивості Checked (англ. сhecked – перевірено): вибраний – true, невибраний – false. За замовчуванням ця властивість має значення false.

Для розміщення на формі перемикача потрібно двічі клацнути на кнопці TRadioButton на вкладці Standard з компонентами.

Вибрано перемикач чи не вибрано визначається значенням його властивості Checked аналогічно до прапорця.

На формі можна також розмістити кілька незалежних одна від одної груп перемикачів. Для цього потрібно двічі клацнути на кнопці TRadioGroup на вкладці з компонентами Standard. Тоді в кожній групі можна вибрати по одному перемикачу.

Виконайте інтерактивні завдання

Практичне завдання

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

Повторіть правила безпечної роботи за комп’ютером.

Завдання. У класі створюється рейтинг дітей за підсумками семестру. Якщо середній бал семестрових оцінок учня/учениці більше за 10, то він/вона отримує 10 рейтингових балів, якщо більше за 7 і не більше за 10, – 7 балів, якщо більше за 4 і не більше за 7, – 4 бали, якщо не більше за 4, – 1 бал. Крім того, учень/учениця отримує по 5 додаткових балів, якщо він/вона відвідує шкільні предметні гуртки, шкільні спортивні секції, шкільну театральну студію. Створіть проєкт для визначення рейтингового балу учня/учениці.

Побудуємо математичну модель для цієї задачі:

- вхідні дані: середній бал учня/учениці, відомості, чи відвідує він шкільні предметні гуртки, шкільні спортивні секції, шкільну театральну студію;
- кінцеві результати: рейтинговий бал учня/учениці;
- формули: якщо середній бал більше за 10, рейтинг = 10
  інакше, якщо середній бал більше за 7, рейтинг = 7
  інакше, якщо середній бал більше за 4, рейтинг = 4
  інакше, рейтинг = 1;
  якщо відвідує шкільні предметні гуртки, збільшити рейтинг на 5;
  якщо відвідує шкільні спортивні секції, збільшити рейтинг на 5;
  якщо відвідує шкільну театральну студію, збільшити рейтинг на 5.

Відкрийте вікно середовища Lazarus.
Розмістіть на формі 4 перемикачі, які визначатимуть, який середній бал має учень/учениця. Для цього:
1. Двічі клацніть на кнопці TRadioButton на вкладці з компонентами Standard.
2. Розмістіть перший перемикач на формі як наведено на малюнку.
3. Змініть значення властивості Caption цього перемикача на Більше за 10.
4. Розмістіть на формі ще три перемикачі, як наведено на малюнку.
5. Змініть значення властивості Caption цих перемикачів, як наведено на малюнку.
Розмістіть на формі 3 прапорці, які визначатимуть, чи відвідує учень/учениця шкільні предметні гуртки, шкільні спортивні секції, шкільну театральну студію. Для цього:
1. Двічі клацніть на кнопці TCheckBox на вкладці з компонентами Standard.
2. Розмістіть перший прапорець на формі, як наведено на малюнку.
3. Змініть значення властивості Caption цього прапорця на Предметні гуртки.
4. Розмістіть на формі ще два прапорці, як наведено на малюнку.
5. Змініть значення властивості Caption цих прапорців, як наведено на малюнку.
Розмістіть на формі напис для виведення сумарного рейтингу, напис для пояснювального тексту та кнопку. Установіть значення їх властивостей, як це наведено на малюнку.

5. Створіть процедуру – обробник події Click для кнопки та додайте до неї такі команди (обираєте один з варіантів):

var s: integer;
begin
if RadioButton1.Checked then s := 10
else if RadioButton2.Checked then s := 7
else if RadioButton3.Checked then s := 4
else s := 1;
if CheckBox1.Checked then s := s + 5;
if CheckBox2.Checked then s := s + 5;
if CheckBox3.Checked then s := s + 5;
Label1.Caption := IntToStr(s);
end;

var s: integer;
begin
if RadioButton1.Checked then s := 10;
if RadioButton2.Checked then s := 7;
if RadioButton3.Checked then s := 4;
if RadioButton4.Checked then s := 1;
if CheckBox1.Checked then s := s + 5;
if CheckBox2.Checked then s := s + 5;
if CheckBox3.Checked then s := s + 5;
Label1.Caption := IntToStr(s);
end;

6. Додайте до процедури між рядком заголовка і словом begin рядок var s: integer;

7. Запустіть проєкт на виконання. Виберіть перший перемикач, перший і третій прапорці. Натисніть кнопку. Проаналізуйте правильність отриманого результату.

8. Виберіть інший перемикач та інші прапорці. Натисніть кнопку. Проаналізуйте правильність отриманого результату.

9. Закрийте вікно виконання проєкту. Закрийте вікно середовища Lazarus.

За підручником

"Інформатика, 8 клас" (Й.Я. Ривкінд та їнші):

Прочитайте та розберіть теоретичний матеріал пункту 6.9 (стор. 225-232).
Дайте усні відповіді на питання 1-7 (стор. 233).
Виконайте вправу 2 (стор. 234)

Для моніторингу засвоєння знань пройдіть тестування

Елементи для введення даних: текстове поле, прапорець, випадаючий список

Дайте відповіді на запитання форми

Page updated

Google Sites

Report abuse