Страница
13
13. Структурные операторы
К их числу относятся:
- составной оператор,
- условный оператор If,
- оператор варианта Case,
- оператор цикла For – Do,
- оператор цикла While – Do,
- оператор цикла Repeat – Until,
- оператор записи With,
- оператор Try – Except – End,
- оператор Try – Finally – End,
- оператор On – Do,
- оператор Try – Finally – End.
13.1. Составной оператор
Это простая структура следующих друг за другом операторов, заключенных в операторные скобки begin … end.
Синтаксис составного оператора:
Begin Оператор1 Оператор2 … ОператорN End;
Составной оператор применяется в тех случаях, когда какое-либо действие необходимо применить не к одному, а сразу к нескольким операторам.
Пример:
BeginR:= X; X:= Y; Y:= R; End;
13.2. Условный оператор If
Синтаксис допускает два вида оператора:
if логическое выражение then оператор1 else оператор2;
и его усеченный вариант:
if логическое выражение then оператор1;
Оператор работает следующим образом. Сначала вычисляется логичес-кое выражение. Если оно истинно, то выполняется оператор1, иначе – оператор2. Усеченный оператор выполняет оператор1 только в случае истинного значения логического выражения и не производит никаких действий в случае его ложности.
Примеры:
if (x < 10.7) then a[4]:= 5 else a[4]:= 6; if (x < 10.7) then a[4]:= 5;
Допустима вложенность условных операторов внутри составного условного оператора. Например, оператору
if L1 then if L2 then St1 else St2 else St3;
эквивалентен оператор
if L1 then begin if L2 then St1 else St2; end else St3;
В этом операторе для повышения структурированности использованы операторные скобки begin … end. При конструировании сложного условного оператора во избежание логических ошибок следует отдавать предпочтение структурному способу записи такого оператора.
13.3. Оператор варианта Case
Синтаксис оператора:
Case Selector of Const1: Оператор1; Const2: Оператор2; … ConstN: ОператорN [else Оператор]; End;
Selector может быть любой простой тип кроме Real. Каждая из Const1 … ConstN может быть значение, несколько перечисленных через запятую значений или отрезок типа. Оператор Else, как видно из описания, может отсутствовать. В том случае, если он присутствует, то действует общее правило: перед словом Else не должно быть символа ";" (точка с запятой). Поясним работу оператора Case на примере:
Case i of 0 : x := 0; 1,3 : x := 1; 10 15: x := 2 else x := 3; End;
При выполнении оператора Case управление будет передано тому оператору, который помечен константой, являющейся значением переменной i. Например, если к моменту выполнения Case-оператора i = 0, то будет выполнен оператор x := 0. Иначе, если i = 1 или i = 3, то будет выполнен оператор x := 1; иначе, если значение i в диапазоне 10 15, то будет выполнен оператор x := 2; наконец, если i не равно ни одной из вышеперечисленных констант, то будет выполнен оператор x := 3, следующий за словом else (иначе).
13.4. Оператор цикла For – Do
Синтаксис оператора имеет две разновидности:
For счетчик цикла:=нач.знач. To конеч.знач. Do оператор
For счетчик цикла:=нач.знач. Downto конеч.знач. Do оператор
Здесь конструкция For Do называется заголовком цикла, оператор – телом цикла.
Для циклов должны соблюдаться следующие правила и ограничения:
- начальное и конечное значения счетчика цикла должны быть одинаковых простых типов, кроме Real;
- в теле цикла счетчик не должен менять значение;
- вход в цикл минуя заголовок запрещен;
- для первой разновидности начальное значение не должно быть больше конечного;
- для второй разновидности начальное значение не должно быть меньше конечного.
Первая разновидность оператора цикла For работает следующим образом. Сначала счетчик цикла принимает нач.знач. и выполняется оператор, расположенный вслед за словом Do. Затем значение счетчика будет увеличено на шаг счетчика 1 и вновь будет выполнен оператор и т. д., пока счетчик не переберет все значения от нач.знач. до конеч.знач.
Пример.
s:= 0; For i:=1 to 44 do s:= s + z[i];
В результате в переменной s будет накоплена сумма первых 44 элементов массива z.
Другая разновидность оператора For отличается лишь отрицательным шагом –1 счетчика.
Пример.
s:= 0; For i:=44 Downto 1 do s:= s + z[i];
Будет получен тот же результат.
13.5. Оператор цикла While – Do
Синтаксис оператора:
While логическое выражение Do оператор;
Цикл выполняет оператор, расположенный вслед за словом Do до тех пор, пока истинно логическое выражение, расположенное за словом While ("выполняй, пока истинно").
Пример.
x:= 0; i:=0; While (x < 101.667) do Begin Inc (i); X:= X + 5.617; Y[i]:= Func (i + 6, 9 * i, X); End;
В этом примере цикл будет выполняться до тех пор, пока не выполнится условие x < 101.667. В теле цикла переменная X с каждым шагом цикла увеличивает свое значение на 5.617 так, что на определенном шаге условие x < 101.667 впервые не будет выполнено. В этот момент без входа в тело цикл закончит работу.
13.6. Оператор цикла Repeat – Until
Синтаксис оператора:
Repeat Оператор1; Оператор2; … ОператорN; Until логическое выражение;
Цикл работает, пока логическое выражение ложно ("повторяй, пока не выполнится").
Пример.
s:= 0; i:=0; Repeat Inc (i); s:= s + z[i]; Until (i = 44);
В этом примере цикл будет выполняться до тех пор, пока не выполнится условие i = 44. Результат будет тот же, что в примере для For-цикла.
13.7. Операторы Break и Continue
Оператор Break может быть размещен в теле цикла. При его выполнении цикл прекращает работу и считается выполненным.
Пример.
s:= 0; i:=0; Repeat Inc (i); s:= s + z[i]; if (s > 14) then Break; Until (i = 44);
В этом примере цикл будет выполняться до тех пор, пока не выполнится условие i = 44 или если в операторе if переменная s превысит значение 14.
Оператор Continue также может быть размещен в теле цикла. При его выполнении управление независимо от того, где он расположен, сразу передается в начало цикла для выполнения следующего шага.
Пример.
s:= 0; i:=0; Repeat Inc (i); s:= s + z[i]; if (s > 20) then Continue; if (s > 14) then Break; Until (i = 44);