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

Для реализации разветвляющихся алгоритмических структур в Паскале используются специальные управляющие конструкции языка — условный оператор и оператор выбора. Базовое простое ветвление (полное или неполное) реализуется при помощи условного оператора. Это оператор имеет следующий формат записи:

if <условие> then

<оператор 1> else

<оператор 2>;

В этой записи  <условие> представляет  собой  переменную  или  выражение  логического  типа;

<оператор 1> и <оператор 2> могут быть простыми или составными. При выполнении условного оператора производится вычисление <условия>: если <условие> имеет значение Истина, то выполняется <оператор 1>, в противном случае — <оператор 2>. Часть else условного оператора является необязательной (неполное ветвление); в этом случае при истинности <условия> выполняется <оператор 1>, при ложности — оператор, следующий в тексте программы за условным.

В качестве примера использования условного оператора рассмотрим следующую задачу: дано целое число x; определить, является ли оно четным, соответствующее сообщение вывести на экран.

Рис. 2

Для проверки четности числа можно воспользоваться операцией нахождения остатка от целочисленного деления на 2; таким образом, условие четности числа x будет выглядеть следующим образом:

x mod 2 = 0

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

program p2; var

x: integer;

BEGIN

writeln('Введите целое число'); readln(x);

if (x mod 2 = 0) then writeln('Введенное число четное') else

writeln('Введенное число нечетное'); END.