Устранение ошибки вставки элементов в двусвязный список с использованием Delphi и Pascal

Delphi , Компоненты и Классы , Списки

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

Проблема пользователя

Пользователь столкнулся с проблемой при попытке вставки элемента в двусвязный список после определенного узла. В частности, при вставке числа 9 после числа 4 в списке 1, 2, 3, 4, 5, элемент 9 вставлялся в начало списка, что приводило к результату 1, 9, 2, 3, 4, 5.

Пример кода, вызывающего проблему

procedure insertAfter(var L: Plist; n_p: integer);
var novy_za: Plist;
begin
  new(novy_za);
  novy_za^.info := n_p;
  novy_za^.next := L^.next;
  novy_za^.prev := L;
  L^.next := novy_za;
  if novy_za^.next <> nil then
    novy_za^.next^.prev := novy_za;
end;

Анализ проблемы

Проблема заключается в том, что процедура insertAfter всегда вставляет новый элемент после первого узла списка, так как в качестве аргумента процедуре передается указатель на первый элемент списка L, а не на тот узел, после которого следует выполнить вставку.

Решение проблемы

Чтобы решить проблему, необходимо модифицировать процедуру insertAfter, чтобы она принимала два параметра: значение узла, после которого следует выполнить вставку, и значение вставляемого элемента. Также нужно добавить логику поиска узла с указанным значением в списке.

Исправленный код

function insertAfter(var L: Plist; n_a, n_p: integer): Plist;
var novy_za, cur_za: Plist;
begin
  cur_za := L;
  novy_za := nil;

  { Перебор списка в поисках значения n_a и вставка нового элемента n_p после него }

  while cur_za <> nil do begin
    { Вставка нового элемента после найденного узла с значением n_a }

    if cur_za^.info = n_a then begin
      new(novy_za);
      novy_za^.info := n_p;
      novy_za^.next := cur_za^.next;
      novy_za^.prev := cur_za;
      cur_za^.next := novy_za;

      if novy_za^.next <> nil then
        novy_za^.next^.prev := novy_za;
      break;       { Выход из цикла }
    end;

    cur_za := cur_za^.next;
  end;

  insertAfter := novy_za;
end;

Вызов функции

begin
  writeln;
  write('Which number insert  : '); readln(x);
  writeln;
  write('Insert after  : '); readln(y);

  { Вставка значения x после числа y }

  if insertAfter(P, y, x) = nil then
    writeln('The value ', y, ' was not found')
  else
    writeln('The value ', x, ' was successfully inserted after ', y);
end;

Заключение

В данной статье мы рассмотрели типичную ошибку, возникающую при работе со структурами данных в языке программирования Pascal и среде разработки Delphi. Исправление было направлено на изменение процедуры вставки, чтобы она могла корректно вставлять элементы после определенных узлов, а не только после первого элемента списка. Это важный аспект при работе с двусвязными списками, который позволяет эффективно управлять порядком элементов в структуре данных.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с ошибкой вставки элементов в двусвязный список на языке программирования Pascal в среде Delphi, где новый элемент вместо вставки после указанного узла добавлялся в начало списка.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::