[Pascal] сформировать двунаправленный кольцевой список с заголовком, код в теме

[goto ∞]

Объявлена структура такая

pList  = ^TList2;
    TList2 = record
                info : integer;
                next : pList;
                prev : pList;
             end;

var
   pFirst, pTemp, pNew : pList;
         r,i,k,n : integer;

Задача была сформировать двунаправленный кольцевой список с заголовком. (элементы списка неважно)

Сделал функцию которая добавляет элементы списка сначала сам

            pNew^.next := pFirst;
            pNew^.prev := pTemp;
            pNew^.info := i;
            pFirst^.prev := pNew;
            pTemp^.next := pNew;
            pTemp := pNew;

Потом по учебнику

            pNew^.next := pTemp^.next;
            pNew^.prev := pTemp;
            pNew^.info := i;
            pNew^.next^.prev  := pNew;
            pTemp^.next := pNew;
            pTemp := pNew;

Правильно ли заменить то что выделил красным?
проверил командой пока текущий элемент не равен заголовку ( pTemp <> pFirst) выводить на экран элементы в обоих случаях одно и тоже.

[Serge_Bliznykov]

Сообщение от goto ∞

Сделал функцию которая добавляет элементы списка сначала сам

добавляет куда - в начало списка, в конец?

Сообщение от goto ∞

Правильно ли заменить то что выделил красным?

код приведён куском, он не полный.
начиная с того, что не видно, что pNew - это указатель на выделенную область памяти (но об этом можно догадаться) и заканчивая тем, что такое pTemp (предполагаю, что это указатель на "хвост" / последний элемент списка.

ну и не вижу проверки на пустой список (добавление элемента в пустой список отличается от добавления в не пустой).

выложите свой код полностью, будет повод для разговора.

[goto ∞]

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

В списке с заголовком поле next заголовка указывает на след элемент то есть на 1 элемент списка, поле prev на последний элемент списка, если их нету то они указывают на сам заголовок
последний элемент списка в поле next указывает на заголовок, получается кольцевой список

[Serge_Bliznykov]

Сообщение от goto ∞

Добавляет в конец списка,

тогда вот это:

Сообщение от goto ∞

pNew^.next := pFirst;

полная чушь.

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

p.s. а ваш код я так и не увидел.

p.p.s. на форуме неоднократно выкладывался рабочий код на Паскале по работе с двухнаправленными списками.

[Аватар]

полная чушь.

Почему? У ТС кольцевой, вот последний и указывает на первый.

[goto ∞]

Сообщение от Serge_Bliznykov

полная чушь.

Ну во первых как выше сказали у меня кольцевой список
во вторых вопрос был в том правильно ли заменить
pNew^.next := pTemp^.next;
на
pNew^.next := pFirst;
я в этом новичок, но по моему правильно. это одно и то же выраженное по разнмоу

[Serge_Bliznykov]

да, приношу свои извинения.

последний элемент (pTemp^ ) в поле next указывает на головной элемент.
поэтому pTemp^.next равен pFirst

это одно и то же.

ну и раз мы присвоили pNew^.next := pFirst
тогда
pNew^.next^.prev := pNew;
это тоже самое, что pFirst^.prev := pNew

[goto ∞]

Ок, спасибо всем