В этом уроке мы с Вами рассмотрим конструкцию условия, в которой мы будем проверять сразу несколько совпадений — например равно ли первое число второму и второе третьему. Для такой проверки используются зарезервированные слова, которые дают понять программе, что дальше будет ещё одно условие, но в этом случаем будет истина, если оба условия верны, но также можно проверять их не зависимо друг от друга.
Давайте рассмотрим на примере использование сразу несколько условий.
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(или).