Оператор2 оператор1
Пример программы: Автобус движется по заданному маршруту с объявлением названий остановок. Зная остановку, на которой надо выходить, вы принимаете определенное решение: Выхожу, либо - Еду дальше, которое выводится на экран.
PROGRAM octanovka;
CONST A1= 'Бульвар Славы'; A2= 'Горсовет'; { A1, A2, A3, A4 - названия }
A3= 'Спортивная'; A4= 'УАИ'; { остановок }
Y= 'Выхожу'; N= 'Еду дальше';
var A, A0: String; { A0 - текущая остановка }
BEGIN
writeln('Ввести нужную остановку из списка:');
writeln(A1:15, A2:15, A3:15, A4:15);
Writeln; readln(A); Writeln; { A - нужная остановка }
IF (A<>A1) and (A<>A2) and (A<>A3) and (A<>A4)
then begin Writeln('Нет такой остановки'); readln; Halt end;
A0:= A1; { объявление остановки }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A2; { объявление остановки }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A3; { объявление остановки }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A4; { объявление остановки }
writeln(Y, A:15); readln;
END.
Первый условный оператор осуществляет контроль входных данных. Напомним, что в случае нескольких условий, соединенных логическим "И" результирующее условие имеет значение True, если каждое условие верно, иначе - False.
В случае нескольких условий, соединенных логическим "ИЛИ" результирующее условие имеет значение True, если хотя бы одно условие верно, иначе - False.
Поскольку операции сравнения имеют низший приоритет, то при проверке нескольких условий эти условия заключаются в скобки.