Оператор ветвления на Паскале
В языке Паскаль имеется оператор ветвления. Другое его название – условный оператор.
Формат полного оператора ветвления следующий:
if <логическое выражение> then <оператор 1> else <оператор 2>;
Формат неполного оператора ветвления следующий:
if <логическое выражение> then <оператор 1>;
Здесь if – “если”, then – “то”, else – “иначе”.
Алгоритм нахождения большего из трех чисел:
Пример кода:
var А, В, С, D: integer; begin readln(А, В, С); if A>B then if A>C then D:=A else D:=B else if B>C then D:=B else D:=C; writeln(D) end.
Обратите внимание на то, что перед else точка с запятой не ставится.
Если на какой-то из ветвей оператора ветвления находится несколько последовательных операторов, то их нужно записывать между служебными словами begin и end.
Пример:
var x, y, c : integer; begin readln(x, y); if x>y then begin c:=x; x:=y; y:=c end; write(x,y) end.
Логическое выражение может быть составным.
var a,b,c,d: integer; begin readln(a,b,c); if (a>=b) and (a>=c) then d:=a; // "И" выполнится, когда оба условия истинны if (b>=a) or (b>=c) then d:=b // "ИЛИ" выполнится, когда хотя бы одно условие истинно writeln(d) end.
Условие “Значение переменной x не больше 5” может быть записано следующим образом: not ( x>0)