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

    3. Интервальный тип
    Интервальный тип представляет собой диапазон (интер-
вал) значений какого-либо порядкового типа, называемого
базовым. При описании этого типа указывается минимальное
и максимальное значения диапазона значений, допустимого
для этого типа:
 < Минимальное значение > … < Максимальное значение >

    Пример 2
    Type Mec = 1. .12 ;
         Num = 'а '..' z ' ;
         Dey = Mon .. Fri ;
    Номер месяца Mec может принимать значения от 1 до 12
или переменная Num может принимать значения от ' а ' до ' z '
(буквы латинского алфавита), переменная Dey соответствен-
но может принимать значения от Mon до Fri (дни недели);
    Для каждой операции с переменной интервального типа
автоматически выполняется проверка: остается ли значение
переменной внутри установленного для нее диапазона. На-
пример, при попытке присвоить номеру месяца значение
ноль будет выведено сообщение об ошибке.
    Автоматическая проверка объявленных границ позволяет
не отвлекаться на организацию собственного контроля, что
является существенной выгодой от использования интер-
вального типа.
    К переменным интервального типа применимы все опера-
ции и стандартные функции, которые допустимы при работе с
переменными соответствующего базового скалярного типа.

     Задача 2
     По дате (месяц и день рождения) определить знак Зодиака.
     PROGRAM Lab3_2;
     Uses Crt;
     Var
     m: 1 .. 12 ; {месяц}
     d: 1 .. 31 ; {день}
     Zod: (Ari, Tau, Cem, Can, Leo, Vir, Lib, Sco, Sag, Cap, Agu,
Fis);
                               36