В этом уроке мы с Вами рассмотрим конструкцию условия, в которой мы будем проверять сразу несколько совпадений — например равно ли первое число второму и второе третьему. Для такой проверки используются зарезервированные слова, которые дают понять программе, что дальше будет ещё одно условие, но в этом случаем будет истина, если оба условия верны, но также можно проверять их не зависимо друг от друга.
Давайте рассмотрим на примере использование сразу несколько условий.
Program IF_ELSE;
uses crt;
var num1, num2, num3: Integer;
begin
clrscr;
write('Введите три числа через пробел - ');
readln(num1, num2, num3);
if ((num1 = num2)and(num2=num3)) then
writeln('Все числа равны!')
else
writeln('Числа не равны!');
readln;
end.
Мы совместили два условия при помощи команды and(и), также можно было добавить ещё условий. И ещё можно проверять на правильность одно условие из двух, например:
Program IF_ELSE;
uses crt;
var num1, num2, num3: Integer;
begin
clrscr;
write('Введите три числа через пробел - ');
readln(num1, num2, num3);
if ((num1 = num2)or(num2=num3)or(num1=num3)) then
writeln('Два числа равны!')
else
writeln('Числа не равны!');
readln;
end.
Наше условие будет проверять первое условие, если нет, то второе, а затем третье, пока не будет совпадений, если нет то возьмёт иначе. Мы использовали команду or(или).