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

    Если переключатель принимает одно из значений константы выбора 2, то
выполняется ОПЕРАТОР 2.
    Аналогично будут выполняться операторы от ОПЕРАТОРа 3 до ОПЕ-
РАТОРа n.
    ОПЕРАТОР не будет выполняться в том случае, если значение переклю-
чателя не совпало ни с одним из значений константы выбора 1 до константы
выбора n-го. Тогда осуществляется переход на альтернативную ветку с Else
и будет выполняться ОПЕРАТОР n + 1.
    В неполной форме оператора
CASE альтернативная всем преды-
дущим вариантам выбора ветвь
ELSE отсутствует. В этом случае,
если значение переключателя не
совпадает ни с одним из значений
констант-выбора, то не выполняется
ни один из операторов, описанных в
CASE, и управление передается
оператору, стоящему непосредст-
венно после ключевого слова end,
замыкающего оператор CASE.
    На рис. 19 приведена блок-
схема алгоритма, соответствующего       Рис. 19. Блок-схема алгоритма CASE
инструкции CASE.
    Ниже приведены примеры, демонстрирующие наиболее характерные
приемы составления программ с использованием оператора СASE.

    Задача 1
    Написать программу, которая дает наименование школьных оценок, т. е.
надо ввести оценку, а в результате получить ее название (например: «3 – удов-
летворительно»). Если ввести число, не являющееся оценкой, то программа
выведет: «Такой оценки нет».
    Program Lab4_1;
    Uses Crt;
    Var X: integer;
    Y: string [17];
              Begin
              ClrScr;
              WriteLn ('Введи число');
              Read (X);
                    Case X of
                    1: Y: = 'Очень плохо';
                    2: Y: = 'Плохо';
                    3: Y: = 'Удовлетворительно';
                    4: Y: = 'Хорошо';
                    5: Y: = 'Отлично'
                                     52