Условный оператор в Паскале

Для реализации разветвляющихся алгоритмов в языке программирования Паскаль используется условный оператор IF..THEN..ELSE. Кратко об условном операторе в Паскале с примерами его использования написано в данной статье.

Условный оператор в Паскале

Присутствующее в алгоритмах ветвление программно реализуется через условный оператор.

В языке Паскаль условный оператор задается набором ключевых слов IF..THEN..ELSE.

В переводе на русский язык это звучит как ЕСЛИ..ТО..ИНАЧЕ.

Полное ветвление

Формат записи условного оператора:

IF <УСЛОВИЕ> THEN <ДЕЙСТВИЕ 1> ELSE <ДЕЙСТВИЕ 2>

Такая форма условного оператора предназначена для реализации разветвляющегося алгоритма с полным ветвлением.

Условный оператор в Паскале

Рис. 1. Фрагмент блок-схемы алгоритма с полным ветвлением.

Например, требуется определить, положительное или отрицательное число введено с клавиатуры. Число следует сравнить с нулем. Если оно больше нуля, то выводится на экран сообщение – число положительное, если меньше нуля, то оно отрицательное. Выражение для условия будет выглядеть так: 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 <ДЕЙСТВИЕ >

Условный оператор в Паскале

Рис. 2. Фрагмент блок-схемы алгоритма с неполным ветвлением.

В рассмотренном примере строка программы с условным оператором при неполном ветвлении будет выглядеть так:

If x > 0 then writeln (‘Число положительное’); {Проверяется условие, если число больше нуля, то выводится сообщение, что число положительное}

Вложенные условия

В некоторых задачах требуется проверить подряд несколько условий, то есть в случае выполнения первого условия перейти к проверке второго. Такая ситуация в программе реализуется через вложенные условия. Формат записи будет выглядеть так:

IF <УСЛОВИЕ 1> THEN

IF <УСЛОВИЕ 2> THEN <ДЕЙСТВИЕ 1> else <ДЕЙСТВИЕ 2>

ELSE <ДЕЙСТВИЕ 3>

В данной схеме ДЕЙСТВИЕ 3 относится к УСЛОВИЮ 1.

Условный оператор в Паскале

Рис. 3. Фрагмент блок-схемы алгоритма с вложенным условием.

При использовании варианта с вложенными условиями следует помнить, что ELSE связан с ближайшим предшествующим IF, у которого еще нет парного ELSE.

Что мы узнали?

Для реализации разветвляющегося алгоритма используется условный оператор IF..THEN..ELSE. Если ветвление неполное, то используют неполный оператор IF..THEN.