7. Управляющие операторы
7.1. Разветвляющиеся алгоритмы. Оператор if (если)
Разветвляющийся алгоритм предполагает выполнение вычислений по одному из возможных направлений в зависимости от исходных данных или промежуточных результатов. Ветвление в таких алгоритмах производится при проверке некоторых условий. Для этой цели в Паскале используется специальный оператор - IF (если).
Правило записи оператора IF следующее:
IF условие then
Оператор 1
Else
Оператор 2;
Схема алгоритма его работы приведена на рис. 2.2.
Пример. Приводимому ниже фрагменту программы
if X<>0 then
Y:= A/X
else
Y:= A;
с
Рис.
2.2. Схема алгоритма работы оператора
IF
если в момент выполнения программы окажется, что X ≠ 0, то будет вычислено Y = A/X.
Если же окажется, что X = 0, то будет вычислено Y = А.
Оператор IF – это один оператор, поэтому ";" после оператора 1, т.е. перед Else, не ставится.
Часть со служебным словом Else может отсутствовать. В этом случае выполняется или не выполняется только оператор 1 (см. рис. 2.3).
Пример.
If X>0 Then
K
:=
K+1;{увеличение
К на 1 (подсчет числа положительных Х)}
Если с помощью оператора IF необходимо управлять группой операторов, то эта группа заключается в блок вида
Begin
операторы
End;
Пример.
Рис.
2.3. Схема алгоритма работы
неполного
оператора IF
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.
7.2. Пример разветвляющейся программы
Задача. Ввести в ЭВМ 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.