Оператор варианта (выбора)

Оператор варианта применяется для решения задач в которых необходимо использовать многократно вложенные друг в друга условные операторы Область применения оператора варианта

ФОРМАТ ЗАПИСИ ОПЕРАТОРА ВЫБОРА(варианта): CASE выражение к OF константа 1: оператор 1; константа 2: оператор 2;.... константа n : оператор n; [ELSE оператор m] END; CASE (в случае), OF (из), END (конец), ELSE (иначе) - служебные слова.

Графическая схема : К= константа 2 К= константа 1 оператор 1 оператор 2 К=константа nоператор n оператор m да нет

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

Примечание: 1. Типы констант должны совпадать с типом переменных. 2. Ветвь Else необязательна. 3. В этой конструкции перед else стоит точка с запятой. 4. В качестве оператора может быть и составной оператор. 5. Можно задавать не только одну константу, но и список и диапазон констант.

ПРИМЕР ИСПОЛЬЗОВАНИЯ ОПЕРАТОРА: Написать программу, которая по введенному номеру дня недели выведет название дня недели, например 1- понедельник, 2- вторник и т.д. program dni_ned; var n: integer; begin Writeln(' введите номер недели'); Readln(n); Case n of 1: Writeln('1- понедельник'); 2: Writeln('2 - вторник'); 3: Writeln('3 - среда'); 4: Writeln('4 - четверг'); 5: Writeln('5 - пятница'); 6: Writeln('6 - суббота'); 7: Writeln('7 - воскресенье'); Else Writeln('введен неправильный номер недели') end; end.

Определить чётность чисел от 0 до 10. program yy; var n: integer; begin Writeln (Введи номер'); Readln(n); Case n of 0,2,4,6,8 : Writeln('четная цифра'); 1,3,5,7,9: Writeln('нечетная цифра'); : Writeln('числа от 10 до 20'); Else Writeln( отрицательное число или больше 20'); End; end.

ПРАКТИЧЕСКАЯ РАБОТА. 1. Составить программу, которая выводит на экран расписание уроков на неделю. 2. Составить программу, которая выводит оценки по предметам за четверть. 3. Составить программу, которая работает как простой ручной калькулятор. 4. Составить программу, которая распределяет группу детей, приехавшую в пионерский лагерь по отрядам по принципу: с 6 до 7 лет - 5 отряд с 7 до 9 лет - 4 отряд с 9 до 11 лет - 3 отряд с 11 до 13 лет - 2 отряд с 13 до 15 лет - 1 отряд 5. Составьте программу- меню печатающую по. выбору количество дней в месяцах с июля по декабрь. Номер месяца и признак високосного года вводится пользователем. 6. Определить вид многоугольника по количеству введённых сторон

. Для целого числа К от 1 до 99 напечатать фразу Мне К лет, учитывая при этом значение слово лет надо заменить на слово год или года. program yy; uses crt; var k, ost: integer; begin clscrt; Writeln (Введи возраст'); Readln(k); ost:=k mod 10; If (k>=11) and (k<=19) then writeln(Мне,k, лет) else Case ost of 1 : Writeln('Мне, k, год); 2..4: Writeln('Мне, k, года); 5..9,0: Writeln('Мне, k, лет); end; readln end.