5.1.2 Перечисляемый тип
Перечисляемый тип задается перечислением тех значений, которые он может получать. Каждое значение именуется некоторым идентификатором и располагается в списке, обрамленном круглыми скобками. Перечисляемый тип относится к типам данных, определяемым пользователем, поэтому объявление этого типа начинается со служебного слова TYPE, например:
type color = (White, Red, Blue, Yellow, Purple, Green, Orange, Black);
sex = (male, female);
workday = (mon, tues, wed, thur, fri, sat);
Тип boolean, можно определить следующим образом:
type boolean = (false, true);
Рисунок 5.2 - Синтаксическая диаграмма для перечисляемого типа
Пример неверного определения:
type workday = (mon, tues, wed, thur, fri, sat);
free = (sat, sun);
Описание неверно из-за того, что тип константы sat - двусмыслен. В области действия описания перечисляемого типа запрещено использование другого описания перечисляемого типа с ранее уже использованными константами.
Использование перечисляемых типов повышает надежность программ благодаря возможности контроля тех значений, которые получают соответствующие переменные. Эти значения могут быть использованы в качестве параметра в операторе цикла FOR, в качестве селектора в операторе CASE Константы, входящие в определение перечисляемого типа, считаются упорядоченными, т. е. им ставится в соответствие последовательность целых чисел начинающихся с нуля. Порядковые номера компилятор использует для представления констант в памяти ЭВМ. Перечисляемые типы имеют компактное машинное представление. Перечисляемые данные должны иметь синтаксис идентификатора, и поэтому не могут перечисляться цифры, символы, строки. Над перечисляемыми данными не производятся арифметические действия. Пусть, например, заданы такие перечисляемые типы:
type
colors = (black, red, white);
ordenal = (one, two, three);
days = (monday, tuesday);
и определены переменные
var
col : colors;
num : ordenal;
day : days;
Порядковые номера: ORD(black) = 0, ORD(white) = 2, ORD(one) = 0. Допустимы операторы:
col := black; num := succ(two); day := pred(tuesday);
Недопустимыми являются операторы:
col := one; day := black;
Переменные любого перечисляемого типа можно объявлять без предварительного описания этого типа, например:
var col : (black, white, green);
К сожалению, перечисляемые типы данных не лишены существенного недостатка, ограничивающего их применение в широких масштабах. Значения переменных этих типов не могут вводиться оператором read и выводиться оператором write. Бороться с этим недостатком можно, но посредством не очень красивых приемов. Обычно, чтобы все-таки иметь возможность вывода на экран, вводят проиндексированные массивы. Каждый их элемент есть строковое написание соответствующего перечисленного значения.
Пример 5.1 Составить программу, которая выводит все дни недели, оставшиеся до конца недели, и день, предшествующий заданному дню.
Данный пример иллюстрирует работу с перечисляемыми типами. В качестве нового типа данных используем тип days, состоящий из семи констант, соответствующих дням недели.
program zadacha1; {Заголовок программы}
uses crt; {uses - фраза}
type {Определение нового типа}
days = (mon, tue, wed, thu, fri, sat, sun);
var
day, today : days; {Описание переменных}
begin {Начало исполняемой части программы}
clrscr; {Стандартная процедура гашения экрана}
today:=tue; {Ввод исходной информации}
writeln(‘Дo конца недели');
for day:= today to sun do {Цикл от заданного дня недели до }
begin {последнего дня недели - sun}
case day of {Оператор выбора}
mon: writelп('понедельник');
tue: writeln('вторник');
wed: writeln( 'среда');
thu: writeln('четверг');
fri: writeln('пятница');
sat: writ.eln('суббота');
sun: writeln('воскресенье')
end;
end;
write('Вчерашний день - ');
if ord(today) = 0 then day:=sun {Расчет предыдущего дня}
else day:=pred(today);
case day of
mon: writeln('понедельник');
tue: writeln('вторник');
wed: writeln('среда');
thu: writeln('четверг');
fri: writeln('пятница');
sat: writeln('суббота');
sun: writeln('вoскресеньe')
end;
end.
За заголовком программы следует uses - фраза. Такая фраза указывает на используемые в программе, но описанные в другом месте объекты. Это связано с важнейшим понятием модуля, рассматриваемом в следующей юните. В данном примере uses crt; говорит о том, что в программе может использоваться процедура clrscr (очистить экран), описанная в модуле crt.
Оператор присваивания today := tue заменяет оператор ввода, так как для read и write недопустимо использование переменных и значений перечисляемого типа.
5.1.3 Тип – диапазон
Еще одним определяемым типом языка является диапазон. Используя его, мы можем определить тип, который будет содержать значения только из ограниченного поддиапазона некоего базового типа. Базовым типом, из которого вычленяются диапазоны, может быть любой целочисленный тип, тип char и любой из введенных программистом перечисляемых типов.
Тип-диапазон есть подмножество своего базового типа, в качестве которого может выступать любой порядковый тип, кроме типа-диапазона.
Тип-диапазон еще называют ограниченным типом или интервальным типом.
Для введения нового типа-диапазона - надо в блоке описания типов type указать имя этого типа и границы диапазона через две точки подряд (рис. 5.3).
Рисунок 5.3 - Синтаксическая диаграмма для типа-диапазона
Первая константа задает наименьшее, а вторая наибольшее значение переменной этого типа. Вторая константа не может быть меньше первой. Например:
tуре
digit = '0' .. '9';
dig2 = 48 .. 57;
Такая декларация типа указывает компилятору, что для переменных этого типа (которые будут объявлены в программе далее) допустимы в качестве значений только числа из указанного интервала. При выполнении программы попытка присвоить такой переменной значение, не входящее в интервал допустимых значений, квалифицируется как ошибка и приводит к прекращению работы программы и выдаче соответствующего сообщения.
Тип-диапазон необязательно описывать в разделе TYPE, его можно указывать непосредственно при объявлении переменной:
vаr
date : 1 ..31;
month : 1 .. 12;
Переменные date и month могут принимать значения только из заданного интеграла. Два символа ".." рассматриваются как один символ, поэтому между ними не допустимы пробелы.
Тип-диапазон наследует все свойства своего базового типа, но с ограничениями, связанными с его меньшей мощностью. Если определена переменная
tуре
days = (mо, tu,th, fr, sa, su);
weekend = sa .. su;
var
w : weekend;
……….
w := sa;
то ord(w) вернет значение 5, в то время как pred(w) приведет к ошибке. Диапазонные типы позволяют формулировать проблему в более наглядной форме. Для реализаторов языка появляется возможность экономить память и проводить во время выполнения программы контроль присваиваний.
Пример 5.2 Используя диапазонный тип данных, написать программу генерирования чисел спортлото "6 из 49".
rogram sportlotto;
{Программа задания чисел для игры в лото "6 из 49"}
tyре
num = 1 .. 49;
var