Оператор выбора Case
| Полная форма
| Сокращенная форма
|
| CASE Выражение OF
Список1 : Оператор1;
Список2 : Оператор2;
…
СписокN : ОператорN
ELSE Оператор
END:
| CASE Выражение OF
Список1 : Оператор1;
Список2 : Оператор2;
…
СписокN : ОператорN
END:
|
Между служебными словами CASE и OF должна стоять переменная (выражение) типа Char, Boolean, Integer или других целочисленных типов. Список – это конкретные значения управляющей переменой или выражения, при которых необходимо выполнить соответствующий оператор (в т.ч. и составной). Если в наборе несколько значений, то они разделяются между собой запятыми. Можно указать диапазон значений.
| Программа
| Блок-схема
|
| program lec3_3;
var ch:char;
BEGIN
write('Введите букву а..я: '); readln(ch);
case ch of
'а': writeln('Аз');
'б': writeln('Буки');
'в': writeln('Веди');
'г': writeln('Глаголь')
else writeln('Извините, не помню.')
end;
readln
END.
|                
|
| Программа
| Блок-схема
|
| program lec3_4;
var m:integer;
BEGIN
write('Введите номер месяца 1..12: '); readln(m);
case m of
1,2,12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень')
end;
readln
END.
| 
|