Интервальный тип является
отрезком или частью другого типа, называемого базовым. В качестве базового обычно
используют целый тип данных (integer).
При объявлении интервального
типа указываются нижняя и верхняя границы интервала, т. е. наименьшее и наибольшее
значение, которое может принимать переменная объявляемого типа. В общем виде
объявление интервального типа выглядит так:
Тип = НижняяГраница..ВерхняяГраница;
где:
тип — имя объявляемого интервального
типа данных;
НижняяГраница — наименьшее значение,
которое может принимать переменная объявляемого типа;
верхняяГраница — наибольшее
значение, которое может принимать переменная объявляемого типа.
Примеры:
TIndex
= 0 .. 100; TRusChar = 'А' .. 'я';
В объявлении интервального
типа можно использовать именованные константы. В следующем примере в объявлении
интервального типа TIndex использована именованная константа HBOUND:
const
HBOUND=100;
type
TIndex=l..HBOUND;
Интервальный тип удобно
использовать при объявлении массивов, например, так:
type
TIndex
=1 .. 100;
var
tab1
: array[TIndex] of integer; i:TIndex;
Помимо целого типа
в качестве базового можно использовать перечисляемый тип, созданный программистом.
В следующем фрагменте на основе типа TMonth объявлен интервальный тип TSammer:
type
TMonth
= (Jan, Feb, Mar, Apr, May, Jun,
Jul,
Aug, Sep, Oct, Nov, Dec);
TSammer
= Jun.. Aug;
Знаете ли Вы, как разрешается парадокс Ольберса? (Фотометрический парадокс, парадокс Ольберса - это один из парадоксов космологии, заключающийся в том, что во Вселенной, равномерно заполненной звёздами, яркость неба (в том числе ночного) должна быть примерно равна яркости солнечного диска. Это должно иметь место потому, что по любому направлению неба луч зрения рано или поздно упрется в поверхность звезды. Иными словами парадос Ольберса заключается в том, что если Вселенная бесконечна, то черного неба мы не увидим, так как излучение дальних звезд будет суммироваться с излучением ближних, и небо должно иметь среднюю температуру фотосфер звезд. При поглощении света межзвездным веществом, оно будет разогреваться до температуры звездных фотосфер и излучать также ярко, как звезды. Однако в дело вступает явление "усталости света", открытое Эдвином Хабблом, который показал, что чем дальше от нас расположена галактика, тем больше становится красным свет ее излучения, то есть фотоны как бы "устают", отдают свою энергию межзвездной среде. На очень больших расстояниях галактики видны только в радиодиапазоне, так как их свет вовсе потерял энергию идя через бескрайние просторы Вселенной. Подробнее читайте в FAQ по эфирной физике.
