Оператор выбора CASE.

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

Оператор Модуль Назначение Пример
CASE SYSTEM

Предназначен для выбора одного из нескольких возможных продолжений программы. Форма записи: 

CASE <ключ_выбора> OF
 <константа_выбора> : <оператор>
ELSE
 <оператор>
END;

ключ_выбора — ключ выбора (порядковый тип или CHAR);
константа_выбора — константа того же типа, что и ключ_выбора;
оператор — произвольные операторы.

 
VAR
 C:CHAR;
 X,Y:INTEGER;
BEGIN
 ...
 READLN(C);
 CASE C OF
  '+': X:=X+Y;
  '–': X:=X–Y;
 END;
 ...
END.

Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности <констант_выбора> отыскивается такая, которая соответствует <ключу_выбора>, и выполняется <оператор>, который находится за соответствующей <константой_выбора>. Если в списке не будет найдена надлежащая константа, управление передаётся операторам, стоящим за словом ELSE. Часть ELSE <оператор> можно опускать. Тогда при отсутствии в списке нужной константы ничего не произойдёт, и оператор выбора завершит свою работу.

Любому из операторов списка выбора может предшествовать не одна, а несколько констант выбора, разделённых запятыми.

Пример программы.

Program Oper_Vybora;
Var
 X, Y : Real;
 C : Char; 
BEGIN
 Write('Введите два числа: ');
 Readln(X,Y);
 Write('Введите математическое действие: ');
 Readln(C);
 Case C Of
  '+' : Begin
         X:=X+Y;
         Writeln('Складываю...');
        End;
  '-' : X:=X-Y;
  '*' : X:=X*Y;
  '/' : X:=X/Y;
 End;
 Writeln('Результат = ',X:12:4);
END.

Блок—схема программы.