Перечислимый тип данных

Тип данных задает то множество значений, которые могут принимать данные рассматриваемого типа. Задание определенного типа данных устанавливает также ограниченный набор операций, которые могут выполняться над этими данными. Например, над типом действительных данных можно выполнять операции «+», «—», «*», «/», но нельзя производить операции DIV, MOD, которые могут выполняться над данными целого числа. Типизация данных означает их специализацию, а это облегчает, с одной стороны, выполнение операций над ними, а с другой — значительно уменьшает возможность появления ошибок. Если же ошибки все же возникают, то типизация данных облегчает их отыскание и устранение.

Переменные типы данных позволяют создавать новые типы помимо стандартных. В эту группу входят перечислимый и ограниченный типы.

Перечислимый тип данных называется так потому, что задается в виде перечисления в строго определенном порядке и в строго ограни­ченном количестве всех значений, которые могут принимать данные рассматриваемого типа. Перечислимый тип может быть задан самим пользователем в зависимости от того, какую задачу он решает.

Перечислимый тип состоит из списка констант. Переменные этого типа могут принимать значение любой из этих констант. Описание перечислимого типа имеет вид:

TYPE_имя типа = (список констант);
VAR имя переменной: имя типа;

Здесь под константой понимается особый вид констант, задаваемых пользователем. Под списком понимается перечень констант, разделен­ных запятыми. Сам список заключается в круглые скобки. Пример описания перечислимого типа:

TYPE ГОД= (ЗИМА, ВЕСНА, ЛЕТО, ОСЕНЬ); VAR А: ГОД;

Здесь ГОД — имя перечислимого типа; ЗИМА, ВЕСНА, ЛЕТО, ОСЕНЬ — константы; А — переменная, которая может принимать значение любой из констант.

В языке допускается указывать константы перечислимого типа непо­средственно в разделе переменных без использования раздела TYPE, например

VAR А: (ЗИМА, ВЕСНА, ЛЕТО, ОСЕНЬ);

Однако хорошим стилем программирования является описание данных с использованием раздела TYPE, так как это помогает сокра­тить появление ошибок и облегчает отладку программы.

Каждая из констант имеет порядковый номер, счет начинается от нуля. Так, ЗИМА имеет порядковый номер О, ВЕСНА — 1, ЛЕТО — 2, ОСЕНЬ — 3. Упорядоченность констант позволяет применять к ним операции отношения <, <=, =, <>, >=, >, а также стандартные функции ORD, PRED, SUCC (см. приложение 5).

Пример 8.1. Имеется перечень зверей. Определить в этом списке порядковый номер тигра и порядковый номер зверя после косули.

Программа 8.1

ПЕРЕЧИСЛИМЫЙ ТИП

PROGRAM P005;

TYPE ЗВЕРЬ=(ЛИСА,ВОЛК,ЗАЯЦ,ЗУБР,ТИГР,ЛЕВ,МЕДВЕДЬ,КОСУЛЯ,ОЛЕНЬ,БАРС);

VAR

Р1,Р2:ЗВЕРЬ;

N1,N2:INTEGER;

BEGIN

Р1:=ТИГР;

Р2:=SUCC(КОСУЛЯ);

N1:=ORD(P1)+1;

N2: =ORD(P2)+1;

WRITELN('ПОРЯДКОВЫЙ НОМЕР ТИГРА=',N1:2);

WRITELNC'ПОРЯДКОВЫЙ НОМЕР ЗВЕРЯ ', 'ПОСЛЕ КОСУЛИ=',N2:2)

END.

Так как счет перечислимых данных начинается от нуля, а не от еди­ницы, то для вычисления порядковых номеров N 1 и N 2 необходимо прибавить 1 (программа 8.1)