Структуры и алгоритмы обработки данных


Циклические списки - часть 5


                  current^.next:=pnt^next;

                  pnt2:=pnt^.next;

                  pnt2^.last:=current;

                  dispose(pnt);

        end;

        if n=7 and not(current^.next=current)then

{Удаление элемента слева от текущего}

        begin

                  pnt:=current^.last;

                  current^.last:=pnt^.last;

                  pnt2:=pnt^.last;

                  pnt2^.next:=current;

                  dispose(pnt);

        end;

until n=0;

end.

В данном примере указатель на первый элемент списка отсутствует. Для предотвращения зацикливания при обходе списка во время поиска указатель на текущий элемент предварительно копируется и служит ограничителем.




Начало  Назад  Вперед



Книжный магазин