Условный оператор IF.

Оператор IF изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия. Возможно использование оператора IF в двух вариантах:

IF S then A else B ;

IF S then A ;

S - логическое выражение; A – оператор, который выполняется, если S - истинно; B – оператор, который выполняется, если S ложно. Так как IF является единым предложением, то перед then и перед else точку с запятой ставить нельзя.

Например:

Найти частное от деления целых чисел.

Program Prim3;

Label

Metka;

Var

X, Y, Res : integer;

Begin

Writeln (‘Введите делимое’) ;

Readln (X) ;

Writeln (‘Введите делитель’) ;

Readln (Y) ;

IF Y = 0 then

begin

Writeln (‘Деление на нуль’) ;

Goto Met ;

end ;

Res := X div Y ;

Writeln (‘Частное равно’,Res) ;

Metka ;

End.

Оператор варианта CASE.

Оператор CASE является обобщением условного оператора IF и служит для выбора одного варианта из произвольного количества вариантов.

Конструкция:

Case S of

c1 : <оператор 1> ;

c2 : <оператор 2> ;

………………

cN : <оператор N>

else <оператор>

End;

S - выражение порядкового типа, значение которого вычисляется; с1, с2, …, сN – константы, с которыми сравнивается значение выражения S; <оператор 1>, <оператор 2>, …, <оператор N> - операторы, из которых выполняется тот, с константой которого совпадает выражение S.

<оператор> - это оператор, который выполняется, если значение S не совпадает ни с одним значением c1, ..., cN.

Ветвь else является необязательной. Если она отсутствует, и значение выражения S не совпадает ни с одной из перечисленных констант, весь оператор CASE рассматривается как пустой. В отличие от оператора IF перед словом else точку с запятой можно ставить. Если для нескольких констант необходимо выполнить один и тот же оператор их можно перечислить через запятую, сопроводив их оператором. Например:

Type

Days = (Pn, Vt, Sr, Cht, Pt, Sb, Vs); read (I);

Begin

Writeln(‘Введите день недели’);

Case I of

Pn:Writeln (‘ Понедельник’);

Vt:Writeln (‘ Вторник’);

Sr:Writeln (‘ Среда’);

Cht:Writeln (‘Четверг’);

Pt:Writeln (‘Пятница’);

Sb:Writeln (‘Суббота’);

Vs:Writeln (‘Воскресенье’);

Else Writeln (‘Неправильно введен день’);

End;

Case I of

Pn, Sr, Pt, Vs:Writeln(‘Нечетный день’);

Vt, Cht, Sb:Writeln(‘Четный день’);

Else Writeln(‘Неправильно введен день’)

End;

End.