Программа состоит из отдельных разделов или блоков, которые долж­ны располагаться в следующем порядке: [ заголовок программы; ]

^{Лабораторная работа 5.}
Управляющие конструкции языка Оператор выбора.


В системе программирования TurboPascal 7.0 для организации алго­ритмов с ветвлениями, наряду с условным оператором применяют оператор выбора.


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


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


CASE<порядковая переменная>OF<значение 1>: <оператор 1>; <значение 2>: <оператор 2>;
...
<значение N>: <оператор N>; [ELSE<оператор N+l>]; END; {CASE}


В этой структуре:
<порядковая переменная> - порядковая переменная значение которой про­веряется;
<значение *> - константы, с которыми сравнивается значение порядковой
переменной;
<оператор *> - операторы, из которых выполняется тот, с константой кото­рого совпадает значение порядковой переменной;
Ветвь оператора else является необязательной. Если она отсутству­ет, и значение порядковой переменной не совпадает ни с одной из пере­численных констант, весь оператор рассматривается как пустой. В отли­чии от оператора IF перед словом else точку с запятой можно ставить.
Если для нескольких констант нужно выполнять один и тот же опера­тор, их можно перечислить через запятую сопроводив их одним операто­ром. Существует возможность указать диапазон возможных значений. Нап­ример, диапазон от 1 до 100 включительно указывается так:
1 .. 100


Пример.

CASE i OF
2, 4, 6, 3: Writeln(‘Чётнаяцифра’);
3, 5, 7, 9: Writeln('Нечётная цифра'); 10 .. 100: Writeln(‘Число от 10 до 100’);
ELSE
Writeln('Отрицательное число или больше 100'); END; {CASE}


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


CASE<порядковая переменная>OF<значение 1>: begin
<оператор 1 1>; ...
<оператор 1 n>end;
<значение 2>: begin
<оператор 2 1>; ...
<оператор 2 n>end;
. .
<значение N>: begin
<оператор N 1>; ...
ELSE
<оператор N n>end;


begin
<оператор Е 1>; ...
<операторЕn>end; END; {CASE}


Важное замечание.


Необходимо заметить, что из всех возможных ветвей операторов уп­равляющей конструкции выбор, выполняется только одна ветвь, даже если значение порядковой переменной совпадает с несколькими возможными зна­чениями, отвечающими за разные ветви операторов. Выполняется та ветвь, которая расположена раньше. Как видно из блок-схемы значение порядко­вой переменной сравнивается последовательно со всеми возможными значе­ниями, и как только найдётся значение, которому равна порядковая пере­менная, выполняется ветвь операторов, сравнения прекращаются и управ­ляющая конструкция прекращает свою работу. Поэтому при составлении программ с использованием управляющей конструкции "выбор", раньше не­обходимо располагать более "строгие" последовательности операторов.


Контрольные вопросы.


1 Для чего предназначен оператор выбора?
2 Могут ли выполниться несколько ветвей оператора "выбор" за один раз?
3 Сколько операторов можно написать после возможного значения пере­менной?
4 Может ли сразу несколько констант фигурировать в качестве возможно­го значения переменной?
Задания для самостоятельного выполнения лабораторной работы 5


1 Ввести номер дня недели и вывести соответствующий ему день недели на русском и английском языках.


2 Ввести номер месяца и вывести соответствующее ему название на русс­ком языке.


3 Введите номер месяца. Напечатайте соответствующее месяцу время го­да: "зима", "весна", "лето", "осень".


4 Введите время (только часы). Напечатайте соответствующее этому вре­мени сообщение: "Доброе утро", "Добрый день", "Добрый вечер", "Доб­рой ночи".


5 Зведите количество посадочных мест. Напечатайте соответствующий этому количеству вид транспорта: "велосипед", "мотоцикл", "легковой автомобиль", "микроавтобус", "автобус". (Возможны другие варианты)


6 Составить программу, которая выводит сообщение о своих возможностях {Введите номер необходимой операции:1 - сумма; 2 - разность; 3 - произведение; 4 - частное; }


7 Составить программу, которая выводит сообщение о своих возможностях {Введите номер необходимой функции:1 - квадрат; 2 - корень квадратный; 3 - синус; 4 - косинус}


8 Напишите программу, выводящую сообщение о возможных сообщениях {1 – фамилия ; 2- имя; 3 – отчество; 4 - год рождения}


9Напишите программу для вычисления степени введённого с клавиатурычисла. Степень в диапазоне 0 .. 9.


10Определите количество символов, из которых состоит целое положи­тельное число х.