Тема 8. Структурированные операторы

Структурированные операторы представляют собой конструкции, построенные по определенным правилам из других операторов. К структурированным операторам относятся:

• составной оператор;

• условный оператор;

• оператор выбора;

• операторы цикла (повтора);

• оператор доступа.

Составной оператор

Составной оператор представляет собой группу из произвольного числа любых операторов, отделенных друг от друга точкой с запятой, и ограниченную операторными скобками begin и end. Формат составного оператора: begin <Оператор1>; ... ; <ОператорN>; end;

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

Пример. Составной оператор.

begin

Веер;

Editl.Text := 'Ошибка';

Exit;

end;

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

Составные операторы могут вкладываться друг в друга.

Условный оператор

Условный оператор обеспечивает выполнение или невыполнение некоторых операторов в зависимости от соблюдения определенных условий. Условный оператор в общем случае предназначен для организации разветвления программы на два направления и имеет формат:

if <Условие> then <0ператор1> [ else <0ператор2> ];

Условие представляет собой выражение логического типа. Оператор работает следующим образом: если условие истинно (имеет значение True), то выполняется оператор1., в другом случае выполняется оператор2. Оба оператора могут быть составными.

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

Для организации разветвлений на три направления и более можно использовать несколько условных операторов, вложенных друг в друга. При этом каждое else соответствует тому then, которое непосредственно ему предшествует. Из-за возможных ошибок следует избегать большой вложенности условных операторов друг в друга.

Пример. Условные операторы.

if х > 0 then х := х + 1 else x := 0;

if q = 0 then a := 1;

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

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

Формат оператора выбора:

case <Выражение-селектор> of

<Список1> : <Оператор1>;

<CписокN> : <OnepaтopN>

else <ОператорМ>;

end;

Выражение-селектор должно быть порядкового типа. Каждый вариант представляет собой список констант, отделенных двоеточием от относящегося к данному варианту оператора, возможно, составного. Список констант выбора состоит из произвольного количества значений и диапазонов, отделенных друг от друга запятыми. Границы диапазона записываются двумя константами через разделитель " . . " . Тип констант должен совпадать с типом выражения-селектора.

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

1. вычисляется значение выражения селектора;

2. производится последовательный просмотр вариантов на предмет совпадения значения селектора с константами и значениями из диапазонов соответствующего списка;

3. если для очередного варианта этот поиск успешный, то выполняется оператор этого варианта. После этого выполнение оператора выбора заканчивается;

4. если все проверки оказались безуспешными, то выполняется оператор, стоящий после слова else (при его наличии).

Пример. Оператор выбора.

case DayNumber of

1 .. 5 : strDay := 'Рабочий день';

6, 7 : strDay := 'Выходной день'

else strDay := '';

end;

В зависимости от значения целочисленной переменной DayNumber, содержащей номер дня недели, присваивается соответствующее значение строковой переменной strDay.