Case Селектор of

Список_констант_1: Оператор_1;

Список_констант_2: Оператор_2;

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

Список_констант_N: Оператор_N;

else Оператор_Х

end;

где Case, of, else, end – ключевые слова;

Селектор – переменная или выражение порядкового типа;

Список_констант – перечень констант, разделенных запятыми, или диапазоны констант, типы которых совпадают с типом селектора;

оператор – любой оператор.

Важно.

Селектор (управляющее выражение) может быть лишь порядкового типа, т.е. символьного, целого, логического, перечисляемого и интервального типов. Нельзя использовать выражения, которые возвращают значения действительных, строчных или структурированных типов.

Ключевое слово end обозначает конец оператора

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

1, 2, 3, 4

можно записать как

1.. 4.

Действие оператора. Сначала вычисляется значение управляющего выражения (Селектора). Полученное значение сравнивается со списками констант. Если Селектор принимает одно из значений какого-нибудь Списка_констант, то выполняется соответствующий этому списку Оператор, а остальные операторы пропускаются. Оператор_Х будет выполняться в том случае, если значение Селектора не совпало ни с одним из значений Списков_констант от 1-го до N-гo (т.е. выполнится оператор, следующий за словом else).

В неполной форме оператора Case альтернативное всем предыдущим вариантам выбора разветвления else отсутствует. Таким образом, если значение Селектора не совпадает ни с одним из значений констант выбора, не выполняется ни один из операторов, описанных в Case, и управления передается оператору, следующему за ключевым словом end, которое замыкает оператор Case.

Блок-схема алгоритма инструкции Case выглядит как

	Рис. 4.3. Блок-схема оператора поліваріантного вибору

Задача. Составить программу, которая выводит на экран дисплея название времени года, в зависимости от введенного номера месяца.

Если пользователь укажет недопустимое число, программа должна вывести сообщение "Ошибка введения данных"

Program Primer2;

Var month: Integer;

Дата добавления: 2014-01-05