Применение логических операций с оператором IF.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

Использование And с If.

program vetvlenija6;
uses crt;
var A,B,C:integer;
begin
clrscr;
writeln(‘Введите 3 числа’);
readln (A,B,C);
if (A=B) and (A=C) then
writeln (‘Числа равные’)
else
writeln (‘Числа не равны’);
readln
end.

В строке №8 записываем условие. Здесь применяется новый оператор AND (и) и, фактически, строчка звучит как: ‘Если «A» равно «B» и «A» равно «С», тогда вывести на экран сообщение в строке №9. В противном случае (строка №10), вывести на экран сообщение (строка №11).

Введем сначала одинаковые цифры (5 5 5 через пробел и нажимаем Enter).

Затем введем разные числа (2 3 4 через пробел и нажимаем Enter).

Предыдущая статья : Использование if, then, else в Pascal.

Оглавление : Уроки Паскаль ветвления.

Следующая статья : Условный оператор Case Of в Pascal.