В Турбо Паскале разветвляющиеся алгоритмы позволяет реализовать условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.
Структура условного оператора имеет следующий вид:
IF условие THEN оператор1 ELSE оператор2;
Вначале вычисляется условие, если результат - TRUE (истина), то выполняется оператор1, если результат есть FALSE (ложь), наоборот, выполняется оператор2.
В условном операторе после then, а также после else по синтаксису может стоять только один оператор. Если же при выполнении (или невыполнении) заданного условия надо выполнить не одно действие, а несколько, то их надо объединить в единый, составной оператор, т.е. заключить эту последовательность действий в операторные скобки begin... end.
На блок-схеме условный оператор выглядит следующим образом:
Пример 1: Ввести два числа, сравнить их, результат выдать в следующем виде a<b? a=b, a>b
Program chisla;
Var a,b:integer;
Begin
Readln(a,b);
If a<b then writeln(a,'<',b)
else if a=b then writeln(a,'=',b) else writeln(a,'>',b);
End.
Существует сокращенная форма условного оператора:
IF условие THEN оператор1;
Пример 2: Ввести число, если оно положительное, то увеличить в 2 раза
Program chislo2;
Var a:integer;
Begin
Writeln('введите число а');
Readln(a);
If a>0 then a:=a*2;
Writeln(a);
Readln;
End.
