Операторы

End;

Пример.

if Big<Littl then

Begin

A := Big; {перестановка чисел местами:}

Big := Littl; {Big – большее}

Littl := A; {Litll – меньшее}

End;

Операторы 1 и 2 могут быть любыми, в том числе и условными, т.е. допустима вложенность операторов IF друг в друга на любую глубину.

Пример.

if X>0 then

if Y>0 then

Z:= Sqrt(X*X+Y*Y)

else

Z:= X*X

else

Z:= Y*Y;

При этом важно не запутаться, какой Else к какому If относится.

В общем случае служебное слово Else связывается с ближайшим словом If, которое еще не связано со служебным словом Else. Для удобства чтения и понимания логики программы записывайте Else под соответствующим ему If.

Пример разветвляющейся программы

Задача. Ввести в ЭВМ 3 целых числа. Расположить их в порядке возрастания.

Алгоритм

1. Ввести числа.

2. Расположить по порядку.

3. Вывести числа.

Уточняем п. 2.

2.1. Если первое число больше второго, то поменять их местами (выполнить их перестановку).

2.2. Если второе больше третьего, то выполнить их перестановку.

2.3. Если первое больше второго, то выполнить их перестановку.

Проверим правильность алгоритма для чисел: 125 67 3

Тогда после выполнения пунктов алгоритма должны получаться следующие результаты:

после пункта 1: 125 67 3

после пункта 2.1: 67 125 3

после пункта 2.2: 67 3 125

После пункта 2.3: 3 67 125

Программа будет иметь вид

Program Order;

Var

A,B,C : Integer; {основные переменные}

X : Integer; {вспомогательная (рабочая) переменная}

Begin

Writeln('Введите 3 целых числа');

Read(А,В,С);

{п. 2.1}

IF A>B Then

Begin {перестановка}

X:= A;

A:= B;

B:= X;

End;

{п. 2.2}

IF B>C Then

Begin {перестановка}

X:= B;

B:= C;

B:= X;

End;

{п. 2.3}

IF A>B Then

Begin {перестановка}

X:= A;

A:= B;

B:= X;

End;

Writeln('Результат:', A:5,B:5,C:5);

End.