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

    Добавление звена с информационным полем R после звена, на которое указывает pCKey, осуществляется процедурой:

 Procedure Add_Elem1 (pCKey: PtrRec; R: TypeElement);
    Var pAux: PtrRec;
 Begin
     New (pAux);
     pAux^.Element := R;
     pAux^.pNext := pCKey^.pNext;
     pCKey^.pNext := pAux;
 End;

    Добавление звена с информационным полем R перед звеном, на которое указывает pCKey, осуществляется процедурой:

 Procedure Add_Elem2 (pCKey: PtrRec; R: TypeElement);
    Var pAux : PtrRec;
 Begin
     New (pAux);
     pAux^.pNext := pCKey^.pNext;
     pCKey^.pNext := pAux;
     pAux^.Element := pCKey^.Element;
     pCKey^.Element := R;
 End;

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

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