Ветвление в Pascal

 

Оператор ветвления на Паскале

 

В языке Паскаль имеется оператор ветвления. Другое его название – условный оператор.

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

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)