Шаг 26.
Просмотр элементов кольцевого однонаправленного списка с включенным заглавным звеном

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

    Приведем процедуру просмотра кольцевого однонаправленного списка:

 Procedure Print_Ring (pBegin: PtrRec);
    Var pAux : PtrRec;
 Begin
   pAux := pBegin^.pNext;         {Исключим из рассмотрения заглавное звено} 
   If pAux <> pBegin
     Then
       Begin
             {Пока текущий указатель не совпадает с началом списка...} 
         While pAux <> pBegin do 
           Begin
             Write (pAux^.Element:5);
             pAux := pAux^.pNext;
           End;
         WriteLn;
       End
   Else WriteLn ('Список пуст...')
 End;

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




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