Логические операции

В операторе if можно одновременно проверять несколько условий.

Например:

if (a>b)and(a>c) then writeln(’a - max’);

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

Паскаль допускает вложенность операторов if.

Например:

if n>0 then

if (m div n)>n then m: = m - n

else m: = m + n;

Структура else - всегда относится к ближайшему оператору if.

Если n>0 и (m div n)>n - будет выполнено m: = m-n.

Если n>0, но (m div n) n - будет выполнено m: = m + n.

Если n 0 - переход к следующему оператору.

Задача.

Найти максимальное число из трех вещественных чисел.

Program max;

Var

a, b, c: real;

Begin

writeln (’введите a, b, c’); readln (a, b, c);

if a>=b then

Readln;

End.

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

Этот оператор предназначен для замены конструкций из вложенных if.

Структура:

Case N of

N1: P1;

N2: P2;

NN: PN;

[else P;]

End;

[else P;] - необязательная часть оператора.

где N - целочисленная переменная, или выражение целого типа;

N1, N2 , … NN - возможные значения переменной N;

P, P1, P2, … PN - простые или составные операторы.

По этому оператору:

если значение N = N1, то выполняется P1 (после чегоуправлениепередается оператору, следующему за оператором case...of);

если значение N = N2, то выполняется P2, (после чего управление передается оператору, следующему за оператором case...of);

…

если N не принимает ни одного из перечисленных значений, управление передается оператору P;

если структура else - отсутствует и N - не принимает ни одного из перечисленных значений, управление передается следующему за

case...of оператору.

Например:

Case N of

1, 2, 5: writeln (’a’);

7 .. 10: writeln (’b’);

End;

1, 2, 5 - перечисляемые значения разделяются « , » .

7 .. 10 - интервал задается начальными и конечными значениямичерез «..».