Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 54 стр.

       При использовании СASE указывается диапазон допустимых значений
('0'.. '9'), ('a'..'z'), (‘A'..'Z), (‘A'..'Я'), ('а'..'я') и делается соответствующее сооб-
щение о введенном символе. В случае несовпадения ни с одним из значений
константы выбора появится сообщение: «Это другой символ».

     Задачa 3
     Если между begin и end находится только одна инструкция, то слова
begin и end можно не писать.
     Приведем три фрагмента использования константы выбора:
     1) case day of
        l, 2, 3, 4, 5: write ('Рабочий день.') ;
                    6: write ('Суббота!') ;
                    7: write ('Воскресенье!');
        end;
     2) case day of
        1..5: write ('Рабочий день.') ;
            6: write('Суббота!') ;
            7: write ('Воскресенье ! ') ;
        end;
     3) case day of
        6: write ('Суббота!');
        7: write ('Воскресенье!')
           else write ('Рабочий день.');
        end;

    2. Практическое задание – решение задач с использованием операто-
ра множественного выбора CASE
    Организовать ввод данных и вывод результатов, снабдив распечатки со-
ответствующими заголовками.


                               Методические указания

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

    Вариант 1
    Написать программу, которая запрашивает у пользователя номер месяца
и выводит соответствующее название времени года, например: «2 – ЗИМА».
Если ввести число, не являющееся номером месяца (например, 14), то про-
грамма выведет: «Такого номера месяца нет».


                                            54