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


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


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

      begin

              pnt:=current^.last;

              current^.last:=pnt^.last;

              pnt2:=pnt^.last;

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

              dispose(pnt);

      end;

until n=0;

end.

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




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



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