В Турбо Паскале разветвляющиеся алгоритмы позволяет реализовать условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.

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

IF условие THEN оператор1 ELSE оператор2-

Вначале вычисляется — условие, если результат — — TRUE (истина), то выполняется оператор1, если результат есть FALSE (ложь), наоборот, выполняется оператор2.

В условном операторе после —then, а также после —else -по синтаксису может стоять только один оператор. Если же при выполнении (или невыполнении) заданного условия надо выполнить не одно действие, а несколько, то их надо объединить в единый, составной оператор, т.е. заключить эту последовательность действий в операторные скобки —begin… end.

На блок-схеме условный оператор выглядит следующим образом:

Пример 1: —Ввести два числа, сравнить их, результат выдать в следующем виде a&lt-b? a=b, a&gt-b

Program chisla-

Var a,b:integer-

Begin

Readln(a,b)-

If a&lt-b then writeln(a,’&lt-‘,b)

else if a=b then writeln(a,’=’,b) else writeln(a,’&gt-‘,b)-

End.

Существует сокращенная форма условного оператора:

IF условие THEN оператор1-

Пример 2: —Ввести число, если оно положительное, то увеличить в 2 раза

Program chislo2-

Var a:integer-

Begin

Writeln(‘введите число а’)-

Readln(a)-

If a&gt-0 then a:=a*2-

Writeln(a)-

Readln-

End.