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

Вещественные типы

Тип	Диапазон	Значащих цифр	Размер в байтах
Real48	2.9 x 10^–39 .. 1.7 x 10³⁸	11–12
Single	1.5 x 10^–45 .. 3.4 x 10³⁸	7–8
Double	5.0 x 10^–324 .. 1.7 x 10³⁰⁸	15–16
Extended	3.6 x 10^–4951 .. 1.1 x 10⁴⁹³²	19–20
Comp	–2⁶³+1 .. 2⁶³ –1	19–20
Currency	–922337203685477.5808.. 922337203685477.5807	19–20
Real	5.0 x 10^–324 .. 1.7 x 10³⁰⁸	15–16
TDateTime

Примечания: 6-байтовый тип Real48 использовался в ранних версиях Object Pascal и назывался Real. Можно использовать директиву компилятора {$REALCOMPATIBILITY ON} для того, чтобы вернуть тип Real снова к 6-ти байтовому типу.

Т.к. формат Real48 не родной для Intel CPU, то использование его приводит к более медленному исполнению программы, чем для других типов вещественных.

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

ТипCurrency - данные с фиксированной точкой, которые минимизируют округление ошибок при денежных вычислениях. Они используется как масштабированные 64-битовое целое с четырьмя значимыми цифрами после запятой. Если используется с другими вещественными типами, то величины типа Currency автоматически делятся или умножаются на 10000.

В отличие от порядковых типов (все целые, символьный, логический), значения которых всегда сопоставляются с рядом целых чисел и, следовательно, представляются в памяти машины абсолютно точно, значение вещественных типов определяет число лишь с некоторой конечной точностью, зависящей от внутреннего формата вещественного числа.

4.3.1. Логическая структура

Перечислимый тип определяет упорядоченное множество идентификаторов (имен). Величины не имеют значений и их порядковый номер следуют в той последовательности, в которой имена указаны.

Синтаксис:

type

typeName = (val1, ..., valn)

Значения являются неповторяющимися в пределах программы идентификаторами, количество которых не может быть больше 256, например,

type

color=(red,blue,green);

work_day=(mo,tu,we,th,fr);

winter_day=(december,january,february);

TMode = (mEdit, mWrite, mRead);

Если объявлен перечислимый тип, то в разделе описания переменных необходимо описать переменную этого типа, которой можно присвоить одно из допустимых значений:

var

MyColor: TColor;

...

MyColor := Red;

Для того, чтобы избежать конфликтов с зарезервированными словами рекомендуется указывать для имен перечислимого типа префиксы:

type

TSound = (tsClick, tsClack, tsClock);

TMyColor = (mcRed, mcBlue, mcGreen, mcYellow, mcOrange);

Answer = (ansYes, ansNo, ansMaybe);

Можно использовать конструкцию (val1,..., valn) непосредственно при описании переменной:

var

MyCard: (Club, Diamond, Heart, Spade);

Но при этом нельзя объявить другую переменную, использующей эти же постоянные имена. Таким образом недопустимо

var

MyCard1: (Club, Diamond, Heart, Spade);

var

MyCard2: (Club, Diamond, Heart, Spade);