Шаг 4.
Вывод элементов однонаправленного списка без заглавного звена

    На этом шаге мы рассмотрим вывод элементов однонаправленного списка.

    Пусть значением переменной 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;

    На следующем шаге мы рассмотрим однонаправленные списки с заглавным звеном.




Предыдущий шаг Содержание Следующий шаг