Примечание

1. Тип константы должен совпадать с типом выражения.

2. Ветвь Else заключена в квадратные скобки, что гово­рит о том, что эта часть оператора выбора необязательна.

3. В конструкции выбора, в отличие от условного опера­тора, перед Else ставится точка с запятой.

4. В качестве операторов могут использоваться и состав­ные операторы.

5. Можно задавать не только одну константу, но и спи­сок и диапазон констант. Соответствующие примеры приве­дены далее.

Пример 1

Составьте программу, в которой определяется, какой буквой − гласной или согласной − является введенный символ английского алфавита.

Решение

Разделим все символы на три группы:

• гласные буквы английского алфавита;

• согласные буквы английского алфавита;

• символы, не являющиеся буквами английского алфавита.

Program Example_62;

Var ch: Char;

Begin

Write('Введите символ ');

Readln(ch);

Case Upcase(ch) Of

'A','E','I','0','U': Writeln ('Это

гласная буква английского алфавита ');

'A'..'Z': Writeln('Это согласная буква

английского алфавита');

Else Writeln('Этот символ не является

буквой английского алфавита ');

End; {case}

End.

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

Пример 2

Подсчитать число пятниц, приходящихся на 13 числа в ХХ веке, если известно, что 13 января 1901 года было воскресенье.