Вказівка варіанта (вибору)

У випадку, коли необхідно використовувати декілька вказівок розгалуження, вкладених одна в одну, то краще замінити їх вказівкою варіанта.

Вказівка варіанта записується у вигляді:

Case <селектор> of

мітка 1 :<вказівка 1 >;

мітктка2:<вказівка2>;

.......................................

міткаМ:<вказівкаМ> ;

end;

Вираз, який записується між службовим словом case і of, називається селектором.

Селектор повинен належати до одного з цілого, булевого, символьного типів або типу користувача. Дійсні і рядкові типи в селекторах використовувати не можна.

Мітки варіантів — константи, типи яких повинні співпадати з типом селектора. Всі мітки варіантів повинні бути різними.

Якщо одній вказівці у вказівці варіанта відповідає декілька міток, то вони перераховуються через кому.

Виконується вказівка варіанта так.

Спочатку обчислюється значення виразу селектора, а тоді виконується та вказівка варіанта, перед якою стоїть мітка, значення якої співпадає зі значенням селектора. Якщо ні одна з міток не співпадає зі значенням селектора, то виконується вказівка, яка знаходиться після вказівки варіанта, тобто після службового слова end.

Примітка.

Мітки варіанта не потрібно описувати в розділі міток Label і їх не можна використовувати у вказівці безумовного переходу Goto.

Наприклад.

Скласти програму, яка визначає пору року за порядковим номером місяця.

Program PORA;

Var MONTH:integer;

begin

Wгіteln('Введіть порядковий номер місяця:');

readln(MONTH);

If (MONTH<1) or(month>12)

then writeln('Taкoro місяця немає')

else

case MONTH of

3,4,5:writeln('Becнa');

6,7,8:wrіІеln('Літо');

9,10,11:writeln('Ociнь');

12,1,2:writeln('3имa')

end;

end.

Порядок виконання роботи і опрацювання результатів.

1. Ввімкнути ПК і дочекатись повноuj pfdfynf;tyyz.

2. Запустити програму Pascal ABC. 3. Виконати вміщені завдання. 4. PЗакрити програму Pascal ABC. 5. Вимкнути ПК.

6. Дати відповіді на контрольніі запитання.

7. Оформити звіт в зошиті, в якому має міститися запис програми, пояснення щодо типів даних, операторів введення та виведення, ідентифікаторів, операторів стандартних функцій використаних у ній.

8. Дати відповіді на контрольні запитання.