Открытые массивы

При описании открытого массива (в разделеtype или var) указывается тип элементов, из которых он состоит (например, real, char и др.), но не указываются границы индексов. Например:

mas1: array of real;
mas2: array of integer;

В результате получаются как бы безразмерные массивы. Их размер может задаваться и меняться в программе при ее выполнении. Это так называемое динамическое распределение памяти, а переменные открытых массивов представляют собой ничто иное, как указатели на динамически выделяемую область памяти. Т.е. в переменных открытых массивов будут содержаться адреса начала массива, а не сам массив.

Особенностью открытых массивов является то, что их индексы всегда начинаются с нуля (а не с единицы, которая чаще всего используется для обычных массивов).

Чтобы в программе выделить память под открытый массив, следует воспользоваться процедурой setlength, которая принимает два фактических параметра – имя открытого массива и устанавливаемое количество элементов в нем. В результате работы setlength в памяти выделяется столько байт, сколько необходимо для хранения n-го количества элементов определенного типа. Так, если массив ранее описан как real и задано 5 элементов, то процедура setlengthвыделит под него 40 байт, т.к. для хранения каждого числа типа real требуется 8 байт памяти (хотя не обязательно 8, это может зависеть от компилятора).

Функция high принимает в качестве параметра имя массива и возвращает индексный номер последнего элемента массива. Например, выделяется память под десять элементов открытого массива; значит, индекс последнего будет равен 9 (т.к. индексация начинается с 0), что и вернет функция high.

Чтобы освободить, выделенную под массив память, используется оператор nil.

Обычно открытые массивы используются для передачи в подпрограмму массивов переменных размеров. Это позволяет с помощью одной и той же подпрограммы обрабатывать массивы произвольной длины. Без использования открытых массивов пришлось бы для каждого массива иной длины писать собственную подпрограмму.

Рассмотрите программу ниже и запустите ее на выполнение. Вам станет более понятно описанное выше.

Примечание. Функция sizeof возвращает количество памяти (в байтах), отведенное под переменную.

var
a: array[1..10] of real;
b: array of real;
i, n: integer;
sum: integer;
begin
writeln('Переменная a занимает ', sizeof(a),' байт памяти.');
writeln('Переменная b занимает ', sizeof(b),' байт памяти.');
write(' : ');
readln(n);
setlength(b,n);
writeln('Индекс последнего элемента массива ', high(b));
sum := 0;
for i:=0 to high(b) do begin
sum := sum + sizeof(b[i])
end;
writeln('Массив b занимает в памяти ', sum, ' байт(а);');
writeln('но переменная b по-прежнему ', sizeof(b),'.');
b := nil;
sum := 0;
for i:=0 to high(b) do
sum := sum + sizeof(b[i]);
writeln('Сейчас массив b занимает в памяти ', sum, ' байт,');
writeln('т.к. память была освобождена с помощью nil.');
readln
end.