Else begin. В этом синтаксисе выражение сравнивается с выражениями каждого списка

операторы X;

end;

end;

В этом синтаксисе выражение сравнивается с выражениями каждого списка. Оно должно быть выражением порядкового типа, т.е. типа Integer, Char, Boolean или других подобных типов. Кроме того, каждое выражение в списках должно быть порядковым и вычисляемым во время компиляции. Например, в списках допустимы выражения 12, True, 4 - 9 * 5 или Integer('Z')

Переменные и вызовы большинства функций в списках значений недопустимы. Список_значений может также содержать поддиапазон, имеющий форму первое_значени.. последнее_значение, оба из которых должны быть порядковыми, причем первое_значение £ последнее_значение. И наконец, список_значений может быть представлен в форме значение 1, значение 2,..., значениеN в которой каждое значе ние является порядковым значение или поддиапазоном порядковых значений.

Оператор case может содержать любое количество списоков_значений и только одно предложение else. Выполнение оператора case аналогично выполнению структуры if-then-else. Если значение управляющего выражения совпадает с любым значением из какого-либо списка, то выполняются операторы этого списка. Затем управление передается на оператор, следующий за оператором case (происходит выход из оператора case). Если управляющее выражение совпадает с значением, присутствующими в нескольких списках, то выполняются операторы самого верхнего из этих списков. Если управляющее выражение не совпадает ни с одним из значений в списках, то выполняются операторы Х предложения else. Включение предложения else в оператор case не обязательно, однако оно гарантирует, что код обработает любое непредвиденное значение управляющего выражения. Если управляющее выражение не совпадает ни с одним из значений в списках и предложение else отсутствует, то не выполняется ни один оператор и происходит выход из оператора case.

Операторы case можно вкладывать друг в друга аналогично вложенным операторам if. Каждый вложенный оператор case должен иметь ассоциированное с ним ключевое слово end.

Рассмотрим использования оператора case на примере приведенном ниже.

program prog_case;

{$APPTYPE CONSOLE}

uses SysUtils;

var chChar: Char;

Begin

writeln("Enter a symbol ');

readln(chChar);