22.01 Простые и составные условия
Условие в записи оператора ветвления бывает простым и составным:
1.
var x: integer;
begin
write('Введите x = ');
read(x);
if x > 0 then
write('положительное');
else
write('не положительное');
end.
2.
var x: integer;
begin
write('Введите x = ');
read(x);
if x > 0 then
write('положительное');
if x = 0 then
write('0');
if x<0 then
write('отрицательное');
end.
В языке программирования Pascal определен логический тип данных boolean, принимающий два значения — false (ложь) и true (истина)
Пример 15.2
var x: integer;
a: boolean;
begin
write('Введите x =');
read(x);
a := x mod 2 = 0;
write('Число четное — ',a);
end.
Пример 15.6
var A, B, C: integer;
r1, r2, rez: boolean;
begin
writeln('Введите A, B, C');
read(A, B, C);
r1 := (A < B) and (B < C);
r2 := (A > B) and (B > C);
rez := r1 or r2;
write('Число B между числами A и C — ',rez);
end.
Последовательность выполнения логических операторов: not, and, or.В языке Паскаль сначала выполняются логические операторы (and, or, xor, not), а уже потом операторы отношений (>, >=, <, <=, <>, =), поэтому не нужно забывать расставлять скобки в сложных логических выражениях.