Задача на списки

[Tattoquardas]

Список содержит элементы x1,x2,...xn. Получить список вида xn,...x1,x1,...xn.

Прошу помочь обьяснить как развернуть список в обратном порядку, то есть, как сделать список вида xn,...x1?

[Serge_Bliznykov]

1) вывести список в обратном порядке или обеспечить обратный порядок в самом списке ?

2) список одно- или двухсвязный?

и вообще, давайте ваш код, рассказывайте, что не получается, получите конкретную помощь...

[Tattoquardas]

список односвязный. для хотелось бы вообще понять, как делается разворот.

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

uses crt;
const k=5;
type
  chain=^list;
  list=record;
    num:integer;
    next:chain;
  end;
var iter, tmp, head:chain;
    n,i:integer;
begin
  head:=nil;
  for i:=1 to k do
    begin
      readln(n);
      if head=nil then
        begin

         new(head);
         iter:=head;
         head^.num:=n;
         head^.next:=nil;
         end
        else
          begin
            new(tmp);
            tmp^.num:=n;
            tmp^.next:=nil;
            iter^.next:=tmp;
            iter:=iter^.next;
            tmp:=nil;
          end;
      end;
  iter:=head;
  end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Blondy]

К сожалению, на С не пишу, поэтому сам код предоставить не могу. Могу лишь дать повод к размышлению по поводу разворота.

Вот Вы начинаете заполнять список с head. И у вас там есть условие

 if head=nil then

и вы постоянно перебрасываете указатель на новый элемент....Теперь вам фактически нужен еще один указатель, например last (вешается на последний элемент списка) или обойтись уже имеющимся head. И по условию - если поле next последнего элемента NULL, аккуратненько перебрасываете рабочий указатель начиная с указателя last (с полем next==NULL) на предидущий элемент до тех пор, пока не дойдете до дна стека... то есть указатель не будет равен NULL.