Переворот очереди (Delphi)

[kant1288]

Нужно сделать переворот очереди(односвязный список), то есть если очередь: 1 2 3 6, то после нажатия кнопки "переворот" должно получиться: 6 3 2 1, ещё раз нажать, снова перевернёт. Первоначально имеется вот такая процедура добавления элементов в очередь:

procedure TForm1.Button1Click(Sender: TObject);
  var t:TComp;
  begin
 new(t);
 if edit1.Text='' then showmessage('Пусто') else
 begin
 t^.d:=edit1.text;
 Memo1.Lines.Add(edit1.text);
 t^.link:=nil;
 if Last=nil then First:=t
 else Last^.link:=t;
 Last:=t;
 edit1.Text:='';
 Edit1.SetFocus();
 end;
 end;

[бедный_студент]

вводишь 3ю переменную, потом сначала первую переменную (с одного конца) приравниваешь к 3й нововведенной, затем приравниваешь первой значение последней потом из 3й переносишь значение в последнюю делаешь так в цикле до n элементов / 2

[Serge_Bliznykov]

Сообщение от бедный_студент

вводишь 3ю переменную, потом сначала первую переменную (с одного конца) приравниваешь к 3й нововведенной

это 1) неправильно с точки зрения работы со списком
2) это НЕ БУДЕТ работать - список это Вам не массив!
тут элементы ссылаются друг на друга.

kant1288, нужно менять только значение поля .link (ну и в конце обменять местами переменные Last и First)
смотрите. пусть в списке 4 элемента.
они связаны так:
T1.link -> T2 T2.link -> T3 T3.link -> T4 T4.link -> NIL
заносим в
T4.link := T3;
T3.link := T2;
T2.link := T1;
T1.link := NIL;
t := Last;
Last := First;
First := t;

всё. список уже в обратном порядке!

[бедный_студент]

почему это не будет ? я же не ссылку на переменную даю а приравниваю её другой пресменной и какая собственно разница массив то же скопище переменных расположенных упорядоченно. ты что то меня не понял я вроде не мудрствовал

[Serge_Bliznykov]

да нет. Это Вы меня не поняли...
хорошо. ответьте тогда на два "простых" вопроса...

пусть у нас 4 элемента в списке (смотри пример в моём предыдущем сообщении)

вопрос 1. Как поменять местами 2 и 3й элементы?
Напишите код замены. Особенно прошу обратить внимание на момент получения адресов 2-го и 3-го элементов...

вопрос 2. в первом элементе у нас ссылка, которая указывает на второй элемент списка.
После замены местами первого и последнего элемента, куда будет показывать ссылка?!
ой.. тут я, кажется, понял...
Вы предлагаете заменить в элементах списка только собственно содержимое (данные - в данном случае строковые данные, находящиеся в поле .D) и не трогать ссылки (.link) элементов?!!!

в этом случае, второй вопрос отпадает.
Но на месте преподавателя я бы такой вариант точно зарезал! Как противоречащий самой идее работы с динамическими списками!!

[Stilet]

А что за проблема вместо переворота просто считывать их с конца?

[Serge_Bliznykov]

А что за проблема вместо переворота просто считывать их с конца?

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

2) вывести односвязный список в обратном порядке задача достаточно ресурсоёмкая! Дело в том, что по последнему элементу нельзя получить предпоследний.
по предпоследнему - предпредпоследний..
я понимаю, что можно проходить всё очередь от начала, до i-го элемента, каждый раз уменьшая i
но это неэффективно, некрасиво и неверно (см. пункт 1)

[kant1288]

Спасибо большое

[kant1288]

за помощь..