Оператор условной передачи управления используют для программирования ветвлений, т. е. ситуаций, когда возникает необходимость при выполнении условия реализовывать одни действия, а при нарушении - другие.

Синтаксическая диаграмма <Оператор условной передачи управления>

Условия записывают в виде логического выражения, в зависимости от результата которого осуществляется выбор одной из ветвей: если результат true, то выполнятеся оператор, следующий за служебным словом then, иначе - оператор, следующий за служебным словом else.

В каждой ветви допускает запись одного оператора (в том числе и другого if) или составного оператора. Составной оператор в Borland Pascal - последовательность операторов, заключенная в операторные скобки begin ... end. Операторы последовательности отедляются друг от друга точкой с запятой ";". Перед "end" точка с запятой не ставится никогда, так как в этом случае запись условного оператора продолжается.

Фрагменты алгоритмов

В соответствии с синтаксической диаграммой допускается использовать оператор условной передачи управления с неуказанной (пустой ветвью else). В некоторых случаях использование укороченных конструкций может привести к неоднозначности, например, не понятно, к какому из двух вариантов фрагментов алгоритмов соответствует отрывок программы:

if <условие 1> then

if <условие 2> then

<действие 1>

else <действие 2>

В этих случаях используется правило вложенности: альтернатива else всегда относится к ближайщему if, что соответствует варианту алгоритма а. Если нужно реаолизовать варинт алгоритма б, то используют оепраторные скобки:

if <условие 1> then

begin

if <условие 2> then

<действие 1>

end

else <действие 2>

Пример: Разработать программу, которая вычисляет значение функции, заданной следующим образом:

Программа должна начинаться с ввода значения аргумент. Затем, в зависимости от того, в какой интервал попадает введенное значение, вычисляем значение функции по одному из заданных выражений. Алгоритм решения задачи:

Текст программы примет следующий вид:

Program ex;

Var x, y:real;

Begin

WriteLn (`Введите значение аргумента:`);

ReadLn (x)

if abs(x)<=1 then y:=abs(x) {первый отрезок}

else

if abs(x)<=2 then y:=sqr(x) {второй отрезок}

else y:=4; {третий отрезок}

WriteLn (`При x=`, x:8:5, `y=`, y:8:5)

End.