Инструкция выбора CASE ... OF ... ELSE ... END_CASE
Обычно при написании программ не рекомендуется использовать более трех вложенных друг в друга инструкций выбора IF... END_IF, т.к. при этом программа становится мало понятной, и более удобным оказывается применение инструкций CASE … END_CASE. Синтаксис оператора выбора: CASE <выражение> OF <1-ое число>: <группа инструкций 1>; <2-ое число >, < 3-е число >: < группа инструкций 2>; <4-ое число >..<5-ое число >: < группа инструкций 3>; ELSE 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.
|
