Типизированные константы – массивы

Типизированные константы простых типов

ТИПИЗИРОВАННЫЕ КОНСТАНТЫ

Типизированными называют константы, значения которых устанавливаются при описании их типа в разделе описания.

Форма определения одной типизированной константы:

Const Идентификатор : тип = значение ;

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

Типизированные константы могут быть любого типа, кроме файлов.

Примеры:

TYPE CVET = ( KR, GEL, ZEL ) ;

CONST PCV : CVET = KR ;

X : REAL = 0.1 ;

B : CHAR = ‘A’ ;

NAME : STRING = ‘Поляков’

E : STRING [ 7 ] = ‘ Петя ‘

Ограничения при использовании простых типизированных констант состоят в том, что нельзя:

1) использовать простые типизированные константы в качестве границ индексов массивов при их объявлении;

2) использовать списки идентификаторов при определении простых типизированных констант;

3) при определении простых типизированных констант использовать вызов встроенных функций.

В качестве значений типизированной константы – массива используется список значений элементов массива, заключенный в круглые скобки, в виде констант, разделенных запятыми. В качестве значения символьного массива можно указать строку соответствующей длины. Например, определение типизированной константы – массива DIDG эквивалентно определению типизированной константы – массива DID:

CONST

DIDG : ARRAY [ 0 .. 6 ] OF CHAR = ( ‘ 0 ‘, ‘ 1 ‘, ‘ 2 ‘, ‘ 3 ‘, ‘ 4 ‘, ‘ 5 ‘ )

DID : ARAY [ 0 .. 6 ] OF CHAR = ‘ 012345’ ;

В данном примере значения элементов константы – массива DID определены строкой.

При объявлении многомерных типизированных констант – массивов значения констант, соответствующих каждому измерению, заключаются в дополнительные круглые скобки. Например:

TYPE A = ARRAY [ 1 .. 2, 1 .. 4) OF BYTE ;

CONST M : A = (( 0, 1, 2, 3), (4, 5, 6, 7)) ;

1-я строка 2-я строка матрицы М.