Динамическая память: Пример №23

Динамическая память: Пример №23
Давайте посмотрим, как можно использовать динамическую память для хранения больших массивов данных.

Пример 23


type
DynArray = [1..2] of real;
var
A : ^DinArray;
n, i : word;
BEGIN
write('Укажите размер массива:');
readln(n);
GetMem(A,n*6);
. . .
{$R-}
for i:=1 to n do
A[i]:=random;
. . . {любые действия с элементами масссива}
{$R+}
FreeMem(A,n*6)
END.

type

DynArray = [1..2] of real;

var

A : ^DinArray;

n, i : word;

BEGIN

write('Укажите размер массива:');

readln(n);

GetMem(A,n*6);

. . .

{$R-}

for i:=1 to n do

A[i]:=random;

. . . {любые действия с элементами масссива}

{$R+}

FreeMem(A,n*6)

END.

Обратите внимание на директивы компилятора. Они используются для временного отключения проверки значения индекса массива. Количество выделяемой памяти должно быть равно произведению количества элементов массива на количество байт, отводимое под один элемент (в данном случае – под тип real отводится 6 байт).
Вся динамическая память в Турбо-Паскале рассматривается как сплошной массив байтов, называемый кучей (heap). Адрес начала кучи хранится в стандартной переменной HeapOrg, конец – в переменной HeapEnd. На начало незанятого участка динамической памяти указывает переменная-указатель HeapPtr.