Обратный порядок списка

[RevenGGe]

Здравствуйте. Помогите пожалуйста решить задачу:
Дан список целых чисел. Отобразить его в обратном порядке.
Буду очень благодарен.

[Stilet]

Как именно дан?

[RevenGGe]

uses crt;
type
    EIType=integer;
    link=^rec;
    Rec=record
        inf:EIType;
        next:link;
       end;
var S:link;


Procedure InsertEI(var l:link;d:EIType);
var p,q:link;
begin
 new(q);
 q^.inf:=d;
 q^.next:=nil;

 if l=nil then l:=q

 else begin
      p:=l;
      while p^.next<>nil do
          p:=p^.next;

         q^.next:=p^.next;
         p^.next:=q;


    
      end;
end;

Procedure Init (var l:link);
var k:EIType;
begin
 writeln('Введите последовательность целых чисел, конец "0"');
 readln(k);
 while k<>0 do
  begin
   InsertEI(l,k);
   readln(k);
  end;
end;



Procedure Print(var l:link);     {В этой процедуре ошибка. 
Если вводить числа "1,2,3,4,12,13", то оно будет выдавать "13,12,4,3,2,0,1". 
Откуда берется ноль, я понимаю, но как это исправить не знаю. }
var q:link;
begin
 writeln;

 q:=l;
while q<>nil do
 begin
  q:=l;
 while q^.next^.next<>nil do
  begin
    q:=q^.next;
  end;

   if q^.next<>nil then
  writeln(q^.next^.inf);
   q^.next:=nil;

 end;
 writeln(l^.inf);

end;



BEGIN
 clrscr;
 s:=nil;
 Init(s);
 Print(s);
 readln;
 END.

[Stilet]

А вот стесняюсь спросить, ты не хочешь сделать список двусвязным? Чтоб каждый элемент списка помнил не только следующего но и предидущего за ним?

Procedure Print(var l:link);   
var e,q:link;
begin
q:=l;
while q<>nil do q:=q^.next;
while q<>l do begin
 e:=l; while e^.next<>q do e:=e^.next; write(e^.next^.inf); q:=e;
end; write(q^.inf);
end;

Так подходит?

[RevenGGe]

почти. Первым выдаёт 268

[Serge_Bliznykov]

мне непонятно, что Вам собственно надо - исправить ошибку при вводе списка, или обеспечить вывод списка как прямом, так и в обратном порядке?!

если исправить ошибку, то:

Procedure InsertEI(var l:link;d:EIType);
var p,q:link;
begin
 new(q);
 q^.inf:=d;
 q^.next:=nil;

 if l=nil then l:=q

 else begin
      p:=l;
      while p^.next<>nil do
          p:=p^.next;

         p^.next:=q;
      end;
end;

ну и с выводом Вы что-то перемудрили...

Procedure Print(l:link);
var q:link;
begin
 writeln;
 q:=l;
 while q<>nil do
 begin
   Write(q^.inf, ' ');
   q:=q^.next;
  end;
  WriteLn;
end;

[Stilet]

ну и с выводом Вы что-то перемудрили...

Серж, внимательнее:

Отобразить его в обратном порядке.

А у тебя прямой порядок.

Первым выдаёт 268

Ды это... Отладчик в руки и трассируй. Выясни пошаговкой куда обращаются переменки, я то с потолка писал.

[Serge_Bliznykov]

Ага, я в курсе! Виталий, но я вроде бы внимательным был.

более того, я об этом автора темы напрямую спрашиваю-уведомляю:

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

что Вам собственно надо - исправить ошибку при вводе списка, или обеспечить вывод списка как прямом, так и в обратном порядке?!

поясню, почему я сделал такое предположение...
у автора темы была ошибка при добавлении элементов в список.
Поэтому я предполжил, что элементы списка выводятся НЕ В ТОМ ПОРЯДКЕ, как их добавляли в список. А автор хотел их вывести в том порядке, как они добавлялись (по сути - в прямом порядке). Но он решил, что проше вывести их в обратном порядке, чтобы получить прямой порядок вывода..
возможно, что я ошибаюсь... поэтому и уточняю у автора темы...

ну, как-то так..

[Stilet]

Хе... А может ты и прав. Я как-то не подумал о такой вариации неточного ТЗ