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


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


                 new(pnt);

                 pnt^.data:=s;

                 pnt^.last:=current^.last;

                 pnt^.next:=current;

                 pnt2:=current^.last;

                 pnt2^.next:=pnt;

        end;

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

        begin

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

                  pnt:=current^.last;

                  pnt2^.next:=current^next;

                  pnt2^.last:=current^.last;

                  pnt2:=current^next;

                  dispose(current);

                  current:=pnt2;

        end;

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

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

        begin

                  pnt:=current^.next;




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



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