Оператор выбора
Его часто используют для замены конструкций из вложенных условных операторов. Управляющая конструкция "выбор" является идеальным средством для обработки ситуаций с многими (более чем двумя) исходами, т.е. в случае, когда условие может принимать более двух значений. Оператор "выбор" имеет следующую структуру:
CASE <порядковая переменная> OF
<значение 1>: <оператор 1>;
<значение 2>: <оператор 2>;
. . .
<значение N>: <оператор N>;
[ELSE <оператор N+1>];
END; {CASE}
В этой структуре:
<порядковая переменная> - порядковая переменная значение которой проверяется;
<значение *> - константы, с которыми сравнивается значение порядковой переменной;
<оператор *> - оперaторы, из которых выполняется тот, с константой котo рого совпадает значение порядковой переменной;
Ветвь оператора else является необязательной. Если она отсутствует и значение порядковой переменной не совпадает ни с одной из перечисленных констант, весь оператор рассматривается как пустой. В отличие от оператора IF перед словом else точку с запятой можно ставить.
Если для нескольких констант нужно выполнять один и тот же оператор, их можно перечислить через запятую сопроводив их одним оператором. Существует возможность указать диапазон возможных значений. Например диапазон от 1 до 100 включительно указывается так: 1 .. 100
Пример.
CASE i OF
0, 2, 4, 6, 8: Writeln('Чётная цифра');
1, 3, 5, 7, 9: Writeln('Нечётная цифра');
10 .. 100: Writeln('Число от 10 до 100');
ELSE
Writeln('Отрицательное число или больше 100');
END; {CASE}
Как вы уже заметили, в операторе выбор после после двоеточия может указываться только один оператор. Для того, чтобы выполнить несколько операторов, так же как и в условном операторе, применяют операторные скобки begin и end.
Варианты заданий
Определить и вывести на печать номер квадранта, в котором расположена точка M(x,y).
Даны 2 действительных числа Х и У. Меньшее заменить полусуммой, а большее – удвоенным произведением. Вывести результат на экран.
Написать программу выбора большего из 3-х чисел.
Даны х, у. Если х и у отрицательные, то каждое значение заменить его модулем. Если отрицательно только одно из них, то оба значения увеличить на 0.5. Если оба неотрицательные, то оба значения увеличить в 10 раз.
Выяснить, принадлежит ли точка М(х,у) кругу радиусом R, с центром в точке (a,b).
Определить, принадлежит ли точка М(х,у) кольцу с внешним радиусом R1 и внутренним R2 с центром в начале координат.
Определить, является ли частное от деления чисел a и b, округленное до ближайшего целого числа, чётным числом.
Ввести номер дня недели и вывести соответствующее название дня недели на русском и английском языках.
Вводится номер месяца, вывести на экран соответствующее ему время года.
Вводится время (только часы). Вывести соответствующее приветствие: Добрый день, Доброе утро, Добрый вечер, Спокойной ночи.
Варианты заданий
Дано натуральное число N. Вычислить сумму цифр этого числа.
Вычислить сумму ряда для n элементов
,
(для k
от
1 до n).
В ЭВМ по очереди поступают результаты соревнований по плаванию на дистанцию 200 м, в которых участвуют N спортсменов. После ввода всех данных вывести лучший результат.
Вычислить значение факториала числа, введенного пользователем с клавиатуры.
Вычислить и вывести на экран значения функции y=x^3-x^2+16x-43 для х, изменяющегося от -4 до 4 включительно с шагом 0.5.
Напишите программу, вычисляющую значения функции
для х, изменяющегося от -5 до 3 с шагом 0.25.
Вычислите сумму ряда S=sin(1)+sin(2)+…+sin(n) для n введенного с клавиатуры.
Определить количество натуральных чисел, рассматривая их в порядке возрастания, сумма кубов которых не более 50 000.
Вычислить A(A+1)(A+2)…(A+N) для A и N, введенных с клавиатуры.
Вычислить сумму первых n слагаемых ряда
для
n
введенного с клавиатуры.