CaseпереключательOf

Список констант1: оператор1;

Список констант2:оператор2;

…

Список константN:операторN;

ElseоператорN+1;

Оператор работает следующим образом: значение переключателя определяет, какой из операторов должен быть выполнен.

Рассмотрим программу, демонстрирующую работу оператора case. Пусть программа запрашивает у пользователя номер месяца и выводит на экран сообщение о времени года.

program month1;{определение времени года}

uses crt;

var month : integer;

Begin

clrscr;

write('Введи номер месяца ');

write('->');

readln(month);

case month of

1,2,12 : Writeln('Это зима');

3..5 : Writeln('Это весна');

6..8 : Writeln('Это лето');

9..11 : Writeln('Это осень');

Else Writeln('Номер месяца введен неверно');

end;

readkey;

end.

Ниже представлен вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Введи номер месяца (число от 1 до 12)->5

Это весна