Оператор множественного выбора CASE © М.Е.Макарова

Существует способ составления программ с ветвлением на три и более ветвей – с использованием оператора выбора: Здесь селектор – проверяемое целое арифметическое, логическое или символьное выражение. Причем оно может принимать значения лишь некоторых типов, общим свойством для которых является то, что их значения известны точно. Поэтому, в частности, тип селектора не может быть вещественного типа (Real), представляют собой перечисления возможных значений выражения селектор. При совпадении значения выражения хотя бы с одним из значений будет выполняться соответствующее и на этом выполнение команды выбора завершается.

Вид списка Список, состоящий из одного значения a8a8 Список, содержащий перечисление значений 1, 4, 5 a, Список, содержащий интервалы значений 1.. 5, a.. z Список, содержащий смешанную форму представления значений 1.. 5, 15, 55 a.. z, A, B могут быть заданы следующими способами:

Работу этого оператора можно проиллюстрировать следующим примером: Составить программу, которая спрашивает у пользователя номер месяца и выводит соответствующее названия времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение об ошибке «Ошибка ввода данных».

Program Pr; Var month: Integer; Begin Writeln (Введите номер месяца (число от 1 до 12) и нажмите ); Read (month); Case month of 1, 2, 12: Writeln(Зима); 3.. 5: Writeln(Весна); 6.. 8: Writeln(Лето); 9..11: Writeln (Осень); Else Writeln (Ошибка ввода данных – число должно быть от 1 до 12); End; End.

Составить программу, которая по номерам дня и месяца, введенным с клавиатуры, выводит дату следующего (или предыдущего календарного дня)