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;
Совместное использование перечисляемого и интервального типов
Переменную интервального типа можно задать с основой на базовый перечисляемый тип.
Рассмотрим пример:
Пример: Если переменная b может принимать одно из значений red, yellow, green, то эту переменную можно описать так: b: red..green; базовым типом для b является тип color:
type color=(red,yellow,green,blue);
var b:red..green;
begin
b:=red;
writeln(b);
b:=yellow;
writeln(b);
b:=green;
writeln(b);
readln
end.
|
В данном примере тип color — является базовым. Переменная b интервального типа определена при помощи базового перечисляемого типа.
Пример: Известно, сколько дней в каждом месяце года. Сколько дней летом?
31,28,31,30,31,30,31,31,30,31,30,31
Один из вариантов решения данной задачи выглядит так:
Показать решение:
const dni: array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
|
Do'stlaringiz bilan baham: |
