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

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

 Procedure Print_Ring (pBegin: PtrRec); 
 Var  pAux: PtrRec;
 Begin
     pAux := pBegin^.pNext;
     If pBegin^.pNext<>Nil Then Begin
     While pAux^.pNext <> pBegin^.pNext do
       Begin
           Write (pAux^.Element,' ');
           pAux := pAux^.pNext
       End;
       Writeln (pAux^.Element);
     End
 Else Writeln ('Список пуст')
 End;

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

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