Просмотр списка

Var

p1, pList: ptrList; { pList – указатель на начало списка }

Begin

p1 := pList;

while p1<> NIL do begin

<.использование данных элемента списка (p1^.inf) >;

p1 := p1^.next; { перемещаем указатель p1 на следующий элемент }

end;

End.

 

 

Рисунок 3.7 – Схема создания списка из двух элементов

 

 

 

 

Удаление списка

Var

p1, p2, pList: ptrList; { pList – указатель на начало списка }

Begin

p1 := pList;

while p1<> NIL do begin

p2:=p1; { сохраняем адрес элемента списка в p2 }

p1 := p1^.next; { перемещаем указатель p1 на следующий элемент }

dispose(p2); { удаляем элемент списка, адрес которого p2 }

end;

pList:=NIL; { список пуст }

End.