К следующему оператору программы

Кодовые слова

IF – если, THEN – то, ELSE – иначе.

Условный оператор IF является единым предложением, поэтому перед кодовыми словами THEN и ELSE точку с запятой ставить нельзя.

Фрагменты программ:

1). If x>0 then y:=x+2 else y:=x-3;

Writeln(y);

2). If x=0 then

Begin

writeln(‘деление на 0’);

Writeln(‘Введите новые данные’);

End;

3) x1:=5; x2:=10;

y:=x2>x1; {Y- типа boolean}

if y then Z:=x1 else Z:=x2;

Операторы <оп1> и <оп2> могут быть операторами любого типа, в том числе и составными, и условными.

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

Данный оператор является обобщением условного оператора и позволяет выбрать одно из нескольких предложений программы.

Параметром, по которому осуществляется выбор, служит так называемый <ключ выбора>, значение которого вычисляется.

Формат записи:

CASE < ключ выбора > OF

< список выбора >;

ELSE < оператор>;

END;

где:

< ключ выбора > - выражение любого порядкового типа (кроме real и string);

< список выбора > - одна или более конструкций вида:

< константа >: < оператор >;;

Константа должна быть того же типа что и <ключ выбора>;.

Алгоритм работы оператора:

 

1). Вычисляется значение <ключ выбора >;.

2). Это значение сопоставляется с константами (метками) из < списка выбора >;;

3). при совпадении значения < ключ выбора > с одной из констант выполняется оператор, “помеченный” данной константой, после чего оператор CASE завершает свою работу;

4). если в списке выбора не будет найдена константа, равная значению < ключ выбора>, то управление передается на ветвь

ELSE < оператор >;;

Эта часть оператора может быть опущена (короткий оператор), тогда при отсутствии совпадения значения < ключа выбора> и константы в < списке выбора> оператор CASE завершает свою работу.

Если для нескольких констант нужно выполнить один и тот же оператор, их можно перечислить через запятую (или даже указать тип-диапазон, если это возможно), сопроводив их одним оператором.

Примеры: