| Оператор вибору (варіанту) складається з виразу-перемикача і списку операторів. Перед кожним з операторів записують список констант, які називаються константами вибору, або ключове слово else. У кожному списку має бути хоча б одна константа. Перемикач повинен мати порядковий тип. Всі константи вибору повинні бути унікальними (зустрічатись лише один раз в даному операторі) і мати тип, сумісний із типом перемикача. Case перемикач оf
K11,...,K1M : оператор1;
..................
KN1,...,KNL : операторN;
else операторN1;
end Вибір перемикач із
K11,...,K1M : оператор1;
..................
KN1,...,KNL : операторN;
інакше операторN1;
кінець У кожному варіанті записують лише один оператор, який може бути складеним. Частина оператора, яка починається словом else, може бути відсутня.
Оператор вибору (варіанту) приводить до виконання оператора, перед яким є константа вибору, що дорівнює значенню перемикача в момент виконання оператора. Якщо такої константи вибору нема і присутнє слово else, то виконується оператор, що йде за ключовим словом else. Коли ж гілка else відсутня і константи вибору нема, то ніякий оператор не виконується.
Для прикладу розглянемо таку програму. Нехай при тестуванні учень отримав N балів з 20 можливих. Треба вивести суму балів з коротким коментарем. Зробимо це за допомогою оператора case. Програма оцінка;
Змінна N : ціла;
Початок
Ввести( N );
Вибір N із
20: ВивестиРяд('Краще не буває!');
19,18,17 : ВивестиРяд('Відмінно!');
16,15,14,13:ВивестиРяд('Добре.');
12,11,10,9 :ВивестиРяд('Задовільно.');
8,7:ВивестиРяд('Ще трохи, і все було б в порядку.');
інакше
ВивестиРяд('Як нічого не знаєте, то хоч би щось вгадали!')
кінець;
ВивестиРяд('Сума балів - ',N:2,' з 20 можливих');
кінець.
|