Паскаль. Вывод очереди в обратном порядке

[Lizoveta]

Добрый вечер.
Можно ли как-то вывести очередь в обратном порядке, не создавая при этом еще одну очередь или превращая её в стек?
И если да, то, подскажите как, пожалуйста

procedure p3(var pbegin: pt);
var u1,u2: pt;
    p,pend: pt;
begin
     p:=pbegin;
     while p<>nil do begin
           pend:=p;
           p:=p^.next;
     end;
     writeln(pend^.famil);
     writeln(t, pend^.famil);
end;

Вот таким образом я вытаскиваю последний элемент, но я не представляю как мне добавить след. цикл который шел бы до предпоследнего, а затем до предпредпоследнего элемента и т.д. Или как удалить последний элемент очереди. Когда из очереди удаляют вроде как только из начала.
Объясните, пожалуйста

[min@y™]

так и организуй свою очередь так, чтобы к ней был доступ с любого конца.
чо голову-то ломать?

[Stilet]

Можно ли как-то вывести очередь в обратном порядке, не создавая при этом еще одну очередь или превращая её в стек?

Тогда это уже не очередь... Это над тобой так препод надглумился?

[Serge_Bliznykov]

согласен с коллегами - это извращение!

Но можно и это сделать.

Вот таким образом я вытаскиваю последний элемент, но я не представляю как мне добавить след. цикл который шел бы до предпоследнего, а затем до предпредпоследнего элемента и т.д.

вызываешь перебор элементов очереди и считаешь, сколько в этой очереди элементов (пусть это будет N).
Потом цикл I от N до 1
в цикле перебор с счётчиком j, как только счётчик j стал равным переменной цикла i, тогда вывод значения.


об эффективности вообще говорить нельзя, в этом "алгоритме" она ниже плинтуса.
Но извращенное задание будет выполнено (не менее извращённым способом!)

[Аватар]

не создавая при этом еще одну очередь или превращая её в стек

Сделай двунаправленную очередь - второй очереди не надо и не стек, хотя его свойствами и обладает. Иначе только извращаться, способом, который Серж предложил

[Serge_Bliznykov]

Аватар, я бы тоже этот вариант предложил (двунаправленный список идеален для вывода как в прямом, так и в обратном направлениях), но меня смутило ограничение в задании:

не создавая при этом еще одну очередь или превращая её в стек

поэтому я выше и предложил извращение с перебором в цикле...

[evg_m]

извращение с РЕКУРСИЕЙ, которая на самом деле тот же СТЕК, но которого в программе в явно указанном виде НЕТ.

procedure PrintQuery(var q: TQuery);
var
   x: val; // локальная переменная для "временного" хранения значений из очереди. (на самом деле это будет СТЕК, рекурсия ЖЕ)
begin
   if q.IsEmpty then Exit;//завершение рекурсии по исчерпании очереди
   x:=q.Pop; //достали и сохранили, но не вывели
   PrintQuery(q); // ВЫВОД остатка очереди ( в результате рекурсии первым будет ВЫВЕДЕН последний элемент очереди)
   print(x); // вывод НАЧАЛА после окончания остального вывода
end;

[Serge_Bliznykov]

evg_m, точно! Это оптимальное решение в рамках заданных ограничений!

Как я мог про рекурсию забыть?...