Вправа Оцінки

Скачать проект (if - then)

Скачать проект (case of)

У вибраному самостійно середовищі програмування розробіть проект Оцінки, за яким у текстове поле виводиться опис досягнутого рівня на основі шкільної оцінки, яка обирається з елемента управління (оберіть самостійно — прапорці, перемикачі, список, що розкривається):
1) 1,2, 3 — початковий рівень; 3) 7, 8, 9 — достатній рівень;
2) 4, 5, 6 — середній рівень; 4) 10, 11, 12 — високий рівень.

Створюємо інтерфейс програми

Вибір балу здійснюється в комбінованому списку ComboBox1. Виведення результату на Label3. Я вважаю, що використовувати у проекті кнопку недоцільно, оскільки після вибору оцінки в ComboBox1 виникає подія ComboBox1Change, до якої і впишем програмний код.

Поясню, як опрацювати саме подію ComboBox1Change об’єкту ComboBox1. 

Виділяємо ComboBox1, переходимо на вкладку Події Інспектора об’єктів. Біля події OnChange тиснемо кнопку, в редакторі коду з’являється відповідна процедура опрацювання події.

Програмний код (з використанням конструкції неповного розгалуження if - then):

procedure TForm1.ComboBox1Change(Sender: TObject);

var

  Bal:Integer; - змінна для введення балу

begin

  Bal:=strtoint(combobox1.Text);

  if (Bal>0) and (Bal<4) then label3.caption:=' початковий';

якщо введене значення більне 0 і менше 4, то на label3 виводимо початковий

  if (Bal>3) and (Bal<7) then label3.caption:=' середній';

  if (Bal>6) and (Bal<10) then label3.caption:=' достатній';

  if (Bal>9) and (Bal<13) then label3.caption:=' високий';

end;  

Робота програми

Програмний код (з використанням конструкції розгалуження case of)

Значно простішим буде використання конструкції розгалуження case of, яка має такий вигляд:

case <змінна> of

   <значення1> :  <дія>;

   <значення2> :  <дія>;

   <значення3> :  <дія>;

…

   <значенняN> :  <дія>;

end

Діапазон значень виражають через дві крапки. Наприклад з 1 по 10 буде 1..10.

А тепер сам код з case of:

procedure TForm1.ComboBox1Change(Sender: TObject);

var

  Bal:Integer;

begin

  Bal:=strtoint(combobox1.Text);

 case Bal of

    1..3:  label3.caption:=' початковий';

    4..6:  label3.caption:=' середній';

    7..9:  label3.caption:=' достатній';

    10..12:label3.caption:=' високий';

 end

end;

Як бачите, з case of код компактніший і зрозуміліший