Пример 2. Var i:integer; p,q:^integer; {рис.1а}

Program ex2;

Var i:integer; p,q:^integer; {рис.1а}

Begin

New(p); new(q); i:=5; {рис.1б}

P^:=7; q^:=p^-i; i:=i+1; {рис.1в}

P^:=q^+i; q:=p; write(q^); {рис 1г}

End.

Место в памяти, ссылка на которое прежде являлась значением переменной q, теперь стало недоступным: нельзя, например, воспользоваться записанным там значением, нельзя освободить это место с помощью dispose, поскольку на него нет ссылки. Это место в памяти представляет так называемый «мусор». От него следовало бы избавиться до изменения значения переменной q. Заменим три последних оператора в программе ех2 на следующую группу операторов: P^:=q^+i; dispose(q);q:=p; write(q^); {рис 2a}

Предостережение. Если в ситуации, изображенной на рис.2а, выполнить dispose(p), то место в памяти, ссылка на которое была значением переменных p и q, освободится. После этого не только значение переменной р, но и значение переменной q будет неопределенным.

Стандартные процедуры new и dispose позволяют динамически порождать программные объекты и уничтожать их, что дает возможность использовать память компьютера более эффективно.

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