На этом шаге мы рассмотрим вывод элементов однонаправленного списка.
Пусть значением переменной pAux типа указатель является ссылка на некоторый элемент списка, тогда после присваивания
pAux := pAux^.pNext;
ее значением будет или ссылка на следующий элемент списка (если такой имеется) или Nil. При помощи такого перехода между элементами списка
можно просматривать весь список или его часть.
Рассмотрим процедуру вывода элементов списка:
Procedure Print_List1 (pBegin : PtrRec); var pAux : PtrRec; {текущий указатель} Begin If pBegin = Nil Then WriteLn ('Список пуст!') Else Begin pAux := pBegin; {Просмотр начнем с первого элемента} While pAux <> Nil do {пока не достигнут конец списка} Begin Write (pAux^.Element :4); {выводим элемент} pAux := pAux^.pNext; {переходим на следующий} End End; WriteLn; End;
На следующем шаге мы рассмотрим однонаправленные списки с заглавным звеном.