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


Линейные списки - часть 6


             pnt^.last:=current^.last;

             pnt^.next:=current;

             pnt2:=current^.last;

             if not(pnt2=nil) then pnt2^.next:=pnt;

       end;

       if n=5 and not(current=head) then

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

       begin

              pnt:=current^.last;

              pnt^.next:=current^next;

              pnt2:=current^.next;

              if not(pnt2=nil) then pnt2^.last:=current^.last;

              dispose(current);

       end;

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

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

       begin

               pnt:=current^.next;

               current^.next:=pnt^next;

               pnt2:=pnt^.next;

               if not(pnt2=nil) then pnt2^.last:=current;

              dispose(pnt);

       end;

       if n=7 and not(current^.last=head) and not(current^.last=nil) then




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



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