Для реализации разветвляющихся алгоритмов в языке программирования Паскаль используется условный оператор IF..THEN..ELSE. Кратко об условном операторе в Паскале с примерами его использования написано в данной статье.
Например, требуется определить, положительное или отрицательное число введено с клавиатуры. Число следует сравнить с нулем. Если оно больше нуля, то выводится на экран сообщение – число положительное, если меньше нуля, то оно отрицательное. Выражение для условия будет выглядеть так: x>0.
Программный код для такой задачи с использованием условного оператора можно записать следующим образом:
Program Chislo; {заголовок программы}
Var x : integer; {В разделе описания переменных задается переменная Х }
Begin
Writeln(’Введите целое число: ’); {Процедура вывода на экран сообщения для пользователя}
Readln(x); {Процедура для ввода числа с клавиатуры}
If x > 0 then writeln (‘Число положительное’) else writeln (‘Число отрицательное’); {Проверяется условие, если число больше нуля, то выводится сообщение, что число положительное, иначе сообщается, что число отрицательное}
End.
Как известно, в конце каждой строки программы, написанной на языке Паскаль, всегда ставится точка с запятой. Условный оператор не исключение, после него также ставится «;». Нельзя ставить разделитель «;» между словами IF .. THEN.. ELSE. Но если возникает ситуация, когда необходимо выполнить несколько действий по результатам условия, то они заключаются в операторные скобки Begin .. End и отделяются друг от друга точкой с запятой.
Неполное ветвление
Если по результатам условия требуется выполнить только одно действие, то используется неполный оператор IF..THEN.
Формат записи условного оператора с неполным ветвлением:
IF <УСЛОВИЕ> THEN <ДЕЙСТВИЕ >
В рассмотренном примере строка программы с условным оператором при неполном ветвлении будет выглядеть так:
If x > 0 then writeln (‘Число положительное’); {Проверяется условие, если число больше нуля, то выводится сообщение, что число положительное}
Вложенные условия
В некоторых задачах требуется проверить подряд несколько условий, то есть в случае выполнения первого условия перейти к проверке второго. Такая ситуация в программе реализуется через вложенные условия. Формат записи будет выглядеть так:
IF <УСЛОВИЕ 1> THEN
IF <УСЛОВИЕ 2> THEN <ДЕЙСТВИЕ 1> else <ДЕЙСТВИЕ 2>
ELSE <ДЕЙСТВИЕ 3>
В данной схеме ДЕЙСТВИЕ 3 относится к УСЛОВИЮ 1.
При использовании варианта с вложенными условиями следует помнить, что ELSE связан с ближайшим предшествующим IF, у которого еще нет парного ELSE.
Что мы узнали?
Для реализации разветвляющегося алгоритма используется условный оператор IF..THEN..ELSE. Если ветвление неполное, то используют неполный оператор IF..THEN.
