В Турбо Паскале разветвляющиеся алгоритмы позволяет реализовать условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.
Структура условного оператора имеет следующий вид:
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.
|