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

Выражения

Программа разветвляющейся структуры обязательно содержит условия, в зависимости, от которых предусматривают выбор одной из нескольких последовательностей операторов (ветвей). Для организации разветвлений в программах используются операторы перехода, условий и выбора. Рассмотрим их конструкции и применение.

3.2Оператор безусловного перехода

Оператор безусловного перехода вызывает передачу управления оператору, которому предшествует метка. Общий вид такой:

goto метка;

Метка должна быть описана в разделе label. Объявление метки имеет вид: label метка;

Допускается объявить список меток:

label метка1, метка2, метка3;

Между меткой и данным оператором можно включить один или несколько пробелов.

Пример.

label 10, М2

goto М2;

10: A:=2;

........

32: Y: =X/A;

Оператор, следующий непосредственно после оператора goto, всегда должен иметь метку (иначе он никогда не будет выполнен).

Между словами go и tо пробел не допускается.

При использовании элементов перехода должны соблюдаться следующие правила:

Все метки, используемые в блоке, должны быть описаны, причем каждая не более одного раза.

Метка, указанная в операторе перехода, должна помечать оператор, находящийся в том же блоке, что и сам оператор перехода. Т.е. не допускаются переходы из внешних процедур во внутренние и наоборот.

Переход внутрь структурного оператора может вызвать непредсказуемые эффекты, хотя компилятор не выдает сообщения об ошибке. Использование безусловных передач управления в программе считается теоретически избыточным и подвергается серьезной критике, так как поощряет создание малопонятных и трудно модифицируемых программ, которые вызывают большие сложности при отладке и сопровождении. При использовании операторов перехода рекомендуется соблюдать следующие правила:

следует стремиться применять операторы перехода (если кажется невозможным обойтись без них) для передачи управления только ВНИЗ по тексту программы (вперед); при необходимости передачи управления “назад” следует использовать операторы цикла.

расстояние между меткой и оператором перехода на нее не должно превышать одной страницы текста (или высоты экрана дисплея).

Оператор условного перехода IF

Полная форма условного оператора имеет вид:

if < логическое_выражение > then оператор_1 [ else оператор_2];

Если логическое выражение истинно, то выполняется оператор 1; иначе выполняется оператор 2. Квадратные скобки в записи полной формы условного оператора означают, что конструкция else с оператором 2 может отсутствовать. В этом случае имеем краткую форму условного оператора:

if логическое выражение_ then оператор 1.

Например:

if A>25 then Y: =X-6;

Z: =SUM+1

В этом фрагменте представлено два независимых оператора. Один из них условный, другой оператор присваивания. Если условие А>25 истинно, то вычисляется значение Y и происходит передача управления на вычисления значения Z.

Если условие А>25 ложно, т. е. А? 25, то сразу выполняется оператор присваивания Z=SUM+1.

Целесообразно при написании программ использовать следующую форму записи оператора if:

if логическое выражение then

оператор 1

Else

оператор 2

Следует помнить, что перед else точка с запятой не ставится.

Оператор 1,2-это простые или составные операторы. Если логическое выражение истинно, то выполняется оператор 1, иначе - оператор 2 (или следующий за if оператор, если else отсутствует). В качестве операторов 1,2 могут использоваться другие операторы if. В этом случае каждое else относится к ближайшему слева if, не имеющему else.

Условные операторы имеют вложенную конструкцию, когда после then или else используется также условный оператор. При этом справедливо следующее правило: else всегда относится к ближайшему слева оператору if.

Действие условного оператора можно расписать путем использования составного оператора. В этом случае после слов then и else могут быть составные операторы;

if < логическое_выражение> then

Begin

оператор 1;

оператор 2;

...........

оператор n-1;

оператор n

End

Else

Begin

оператор 1;

оператор 2;

..........

оператор n-1;

оператор n;

End

Перед служебным словом else не ставится знак точки с запятой. Внутри составных операторов могут быть также условные операторы, содержащие простые или составные операторы.

Пример 1.

Для программной реализации этих вычислений можно использовать вложенную конструкцию условного оператора.

if x>0 then

if x>=1 then

Y: =Sqrt(X)*Sin(X)

Else

Y: =Exp(1/3*Ln(X))*Cos(X)

Else

Y: =Exp(1/4*Ln(Abs(X)))/4;

или

if X>=1 then

Y: =Sqrt(X)*Sin(X)

Else

if X>0 then

Y: =Exp(1/3*Ln(X))*Cos(X)

Else

Y: =Exp(1/4)*Ln(Abs(X)))/4;

Второй вариант записи более предпочтителен с точки зрения удобства чтения и наглядности программы.

Пример 2. Запишем оператор if для следующей алгебраической схемы:

if A=B then

if C<D then

X: =1

Else

X: =2

Else

X: =3;

Заметим, что точка с запятой ставится в конце оператора. Этот же оператор можно записать с использованием трех операторов if:

if (A=B) and (C<D) then X: =1;

if (A=B) and (C>=D) then X: =2;

if A<>B then X: =3;

В этом примере наличие скобок в логических выражениях операторов if является обязательным, так как операции сравнения имеют более низкий приоритет, чем логические операции. Ввиду этого следующий оператор if не приведет к желаемой цели

if A=B and C=D then

X: =1;

В состав условного оператора может входить только один оператор. Если в какую либо ветвь требуется вставить несколько операторов, то они объединяются в один составной оператор, для чего в начале записывается слово begin (начало), а в конце служебное слово end (конец).

Пример 3. Составить программу для вычисления следующего выражения:

где a=2, 34*10; b=17, 2

program raz1;

Const

A=2. 34E+2;

B=17. 2;

Var

K, K1, K2: real;

Begin

K1: =Sqrt(15*A*A+21*B*B);

K2: =Sqrt(15*B*B+21*A*A);

if A>B then

K: =K1;

if (A>1) and (A<=B) then

K: =K2;

if A<=1 then

Writeln (' Результат не определен ')

Else

Write (' K=', k)

end.

Другой менее удачный вариант этой же программы:

Program raz2;

label 10;

Const

A=2.34E+2;

B=17. 2;

Var

K: real;

Begin

if A>B then

K: =Sqrt(15*A*A+21*B*B);

if (A>1) and (A<=B) then

K: =Sqrt(15*B*B+21*A*A);

if A<=1 then

Begin

write (' Результат не определен');

goto 10;

end;

Write(' K=', K);

10:;

end.