Вложенные структуры условных операторов

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

Пример. Вычислить значение y по одной из трех ветвей:

При решении данной задачи возможны два варианта программирования: 1) без вложенной структуры; 2) с вложенной структурой. Заметим, что программа без вложенной структуры, если это возможно, предпочтительнее, так как легче читается и меньше вероятность допустить ошибку при программировании. Ниже рассмотрены оба варианта решения задачи.

Вариант 1 (без использования вложенной структуры)

Блок-схема Программа

Program P_V1;

Var

x, y: real;

Begin

writeln(‘Введите число x’);

read(x);

if x>=1 then

y := sqrt(x)/2;

if (x>0) and (x<1) then

y := exp(1/3ln(x))/3;

if x<= 0 then

y:=exp(1/4ln(abs(x)))/4;

writeln(‘y =’, y:6:2);

End.

Вариант 2 (с использованием вложенной структуры)

Б лок-схема

Программа Program P_V2;

Var

x, y: real;

Begin

writeln(‘Введите число x’);

read(x);

if x>=1 then

y := sqrt(x)/2

else

if x>0 then

y := exp(1/3*ln(x))/3

else

y := exp(1/4*ln(abs(x)))/4;

writeln(‘y =’, y:6:2);

End.

5.3. Оператор выбора

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

Общий вид записи

case <селектор> of

<список констант выбора 1>: <оператор 1>;

…………………………………………………….

<список констант выбора n>: <оператор n>;

end;

Селектор – это выражение целого или символьного типа.

Константы выбора – всевозможные значения селектора. Константы выбора в списке перечисляются через запятую.

Работа оператора

По вычисленному значению селектора выбирается для исполнения оператор той строки, в списке которой содержится константа, равная значению селектора. После выполнения выбранного оператора управление передается на конец оператора case. Следующим в программе выполняется оператор, стоящий за оператором выбора.

Пример 1. Написать оператор выбора для вычисления величины y по формулам:

Оператор выбора имеет следующую запись:

case n of

1: y := x;

2, 3: y := 2 * sqrt(abs(x));

4: y := exp(x);

end;

Графическая интерпретация оператора

В блок-схемах оператору case соответствует структура ВЫБОР.

Для приведенного выше примера 1 эта структура выглядит следующим образом:

Замечание. Если в строке выбора необходимо записать несколько операторов, то их заключают в операторные скобки begin...end.

Пример 2. Вычислить значение y.

Если значение x не принадлежит рассматриваемым промежуткам, то вывести на экран соответствующее сообщение.

В задаче переменная x является вещественной и не может использоваться в качестве селектора оператора case. Введем новую переменную целого типа n, которой присваивается целая часть значения x (n := trunc(x);). Тогда программа решения данной задачи с использованием оператора выбора может быть составлена следующим образом.

Program P_2;

Var

x, y: real;

n: integer;

Begin

writeln(‘Введите число x’);

read(x);

if (x<1) or (x>=5) then

writeln(‘x не принадлежит рассматриваемой области’)

else

begin

n := trunc(x);

case n of

1: y := sin(x);

2: y := exp(–x);

3: y := ln(x);

4: y := sin (x)/cos(x);

end;

writeln(‘y=’, y:6:2);

end;

End.