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

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

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

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

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

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-я строка матрицы М.

Дата добавления: 2014-01-06