Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 27 стр.

3.2.3. Операторная запись алгоритма выбора
Обычно при написании программ не рекомендуется использовать многократно вложенные
друг в друга условные операторы, так как программа становится громоздкой и ее трудно
понимать. Считается, что число уровней вложения не должно превышать двух - трех. Для
тех случаев, когда необходимо проверять много условий и в зависимости от них выполнять
различные действия, в языке Паскаль существует специальный оператор выбора.
Синтаксис оператора выбора:
CASE < индекс выбора > OF < элементы списка выбора > [ELSE <оператор>] END;
Индекс выбора состоит из выражения. Элементы списка выбора включают список
операторов, каждый из которых помечен одной или несколькими константами выбора. Все
константы выбора должны быть различными, а их тип должен быть идентичен типу
выражения (индекса выбора). В качестве типа выражения, следовательно, и констант
выбора, можно использовать любой простой тип, за исключением типа REAL.
Выполнение оператора выбора начинается с вычисления значения индекса выбора. Затем
выбирается для выполнения тот оператор из списка элементов выбора, который помечен
константой выбора, имеющей вычисленное значение индекса выбора. Если константы с
таким значением нет, то управление передается оператору, стоящему за зарезервированным
словом ELSE. Конструкция ELSE <оператор> может отсутствовать. В этом случае при
отсутствии в списке выбора нужной константы ничего не произойдет и оператор выбора
просто завершит работу.
Рассмотрим фрагменты программ, содержащие оператор выбора.
Пример 1.
PROGRAM EXAMPL1( input, output );
    VAR
      I : INTEGER;
      X : REAL;
      . . .
   BEGIN
      . . .
     CASE I OF
       1 : X := Sin( X );
       2 : X := Сos( X );
       3 : X := Exp( X );
       4 : X := Ln( X )
     End;
     . . .
   END.
Пример 2.
PROGRAM EXAMPL2;
VAR
    I : INTEGER;
    X : REAL;
      . . .
BEGIN
      . . .
    CASE I OF
           1 : X := Sin( X );
           2 : X := Сos( X );
           3 : X := Exp( X );
           4 : X := Ln( X )
    ELSE

                                                                                   27