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

    Приведем схему однонаправленного кольцевого списка с удаленным заглавным звеном.

Рис.1. Ооднонаправленный кольцевой список с удаленным заглавным звеном

    Пустой кольцевой список можно схематически изобразить так:

Рис.2. Пустой кольцевой список

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

 Procedure Create_Ring (var pBegin: PtrRec);
 Var pAux : PtrRec;
     el : TypeElement;
 Begin
     New (pBegin);
     pAux := pBegin;
     pAux^.pNext := Nil;
     Write ('Задайте последовательность... ');
     ReadLn (el); 
     While el <> 0 do
       Begin
         New (pAux^.pNext);
         pAux := pAux^.pNext;
         pAux^.Element := el;
         pAux^.pNext := Nil;
         ReadLn (el);
       End;
     pAux^.pNext := pBegin^.pNext;	         {Образовали кольцо}
     Writeln;
 End;

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

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