Реферат: Линейные списки. Стек. Дек. Очередь

begin

X := Random(101);

AddToList (X, q);

end;

ListBegin := Uk; Определяем указатель списка.

end;

Уничтожение списка

procedure DestroyList (PointerBegin: List); Процедура уничтожения списка

( PointerBegin – указатель на начало списка) .

begin

while PointerBegin <> nil do Если указатель не nil, то

begin

q := PointerBegin;

PointerBegin := PointerBegin