Перечисляемый тип

Он задается перечислением всех тех значений, которые может получить. Каждое значение именуется идентификатором и располагается в списке, обрамленном круглыми скобками.

Пример 3.13. Пример объявления перечисляемого типа данных.

Type

TypeMonth=(jan,fed,mar,apr,mai,jun,jul,aug,sep,oct,nov,dec);

Var

Month: Typemonth;

Begin

If month=sep then Writeln(' Унылая пора. Очей очарованье');

end.

Упорядоченная последовательность значений, составляющих перечисляемый тип, автоматически нумеруется, начиная с нуля и далее через единицу.

К перечисляемым переменным и константам могут быть применены операции отношения и стандартные функции pred, succ, ord.Переменные и константы перечисляемого типа не могут быть элементами списка ввода или вывода.

Тип - диапазон

Тип - диапазон определяет подмножество своего базового типа и сохраняет его свойства. В качестве базового типа может выступать любой порядковый тип. задаваемый границами своих значений.

Пример 3.14. Задание типа - диапазона

Type

f=48 .. 57;

или при объявлении переменной:

Var

f: 1..50;

ch: 'a' .. 'z'

Правила указания диапазонов. Два символа ".." без пробела рассматриваются как один символ. Левая граница диапазона не должна превышать его правую границу. В стандартную библиотеку языка Pascal

включены две функции для работы с типами - диапазонами:

high(x)–возвращает максимальное значение типа диапазона;

low(x)-возвращает минимальное значение типа диапазона.

Следующая программа выведет на экран строку - 32768....32768

Пример 3.15.Фрагмент программы определения значений диапазона.

Var

k: integer;

Begin

Writeln(low(k), '....', high(k));

End.