Иллюстрированный самоучитель по Turbo Pascal

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

Константы-массивы

В качестве начального значения типизированной константы-массива используется список констант, отделенных друг от друга запятыми; список заключается в круглые скобки, например:

type
colors '= (white, red, black);
const
ColStr: array [colors] of String [5] =('white', 'red', 'blaсk');
vector: array [1..5] of Byte = (0.0.0.0.0);.

При объявлении массива символов можно использовать то обстоятельство, что все символьные массивы и строки в Турбо Паскале хранятся в упакованном формате, поэтому в качестве значения массива-константы типа CHAR допускается задание символьной строки соответствующей длины. Два следующих объявления идентичны:

const
digit: array [0..9] of Char =
('0', '1','2','3','4','5','6', ' 7 ', ' 8 ', ' 9 ');
digchr: array [0..9] of Char =0123456789';

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

Следующая программа выведет на экран три строки с монотонно увеличивающимися целыми числами:

var
i, j, k, 1: Byte;
const
matr: array [1..3, 1..5] of Byte = ((0, 1, 2, 3.4),
(5, 6, 7, 8, 2), (10.11.12.13.14));
cube: array [0..1, 0..1, 0..2] of Integer =
(((0.1.2), (3.4.5)), ((6.7.8), (9.10.11)));
mas4: array [0..1, 0..1, 0..1, 0..1] of Word = (
(((0.1), (2.3)),((4.5), (6.7))), (((8.9), (10.11)), ((12.13), (14.15))));
begin  
for i: = 1 to 3 do
for j: = 1 to 5 do Write (matr[i,j]:3);
writeln;  
for i: = 0 to 1 do
for j: = 0 to 1 do
for k: = 0 to 2 do Write (cube [i,j,k]:3);
writeln;  
for i: = 0 to 1 do
for j: = 0 to 1 do
for k: = 0 to 1 do
for: = 0 to 1 do Write (mas4 [i,j,k,l]:3);
WriteLn  
end.  

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

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.