|
Константы - массивы
В качестве начального
значения типизированной константы-массива используется
список констант, отделенных друг от друга запятыми;
список заключается в круглые скобки, например:
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', Ч','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.
|
|
Количество переменных в списке констант
должно строго соответствовать объявленной длине массива
по каждому измерению.
|
