Инструкция выбора CASE ... OF ... ELSE ... END_CASE

Обычно при написании программ не рекомендуется использовать более трех вложенных друг в друга инструкций выбора IF... END_IF, т.к. при этом программа становится мало понятной, и более удобным оказывается применение инструкций CASE … END_CASE.

Синтаксис оператора выбора:

CASE <выражение> OF

<1-ое число>: <группа инструкций 1>;

<2-ое число >, < 3-е число >: < группа инструкций 2>;

<4-ое число >..<5-ое число >: < группа инструкций 3>;

ELSE
< группа инструкций 4>;

END_CASE;

Инструкция выбора состоит из выражения (типа данных INT) и списка групп инструкции. Каждой группе предшествует метка, состоящая из одного или нескольких целых чисел (типа данных ANY_INT), или их диапазона. В инструкции выбора будет выполняться та группа инструкций, значение метки которой равно значению выражения. Утверждение ELSE может отсутствовать. END_CASE идентифицирует конец инструкции выбора.

Пример:

CASE SELECTOR OF

2: A:= B+C/(D+E);

3, 15: B:=B-C;

4..10: C:=D-E;

ELSE

F:=F+1;

G:=С/D*E;

END_CASE;

В примере:

если SELECTOR=2, то вычисляется значение переменной А;

если SELECTOR равен 3 или 15, то вычисляется значение переменной В;

если SELECTOR=(4…10), то вычисляется значение переменной С;

иначе будут вычисляться значения переменных F и G.