Повернуть список Опции

[neic]

Народ подскажите процедуру поворота списка, а то я скоро уже с ума сойду.

Например вводим с клавиатуры (признаком окончания ввода является цифра 0): 1 2 3 4 5 ... 0

Нужно получить: 0 ... 5 4 3 2 1

Заранее благодарен!

[volvo]

Список создаётся в момент ввода чисел с клавиатуры

Ну, и КАКОЙ список создается, ты не обратил внимания? Ввожу я "1 2 3 4 0", что мне print() напечатает? Чтоб печаталось ТО ЖЕ САМОЕ, что вводишь, надо по-другому организовывать заполнение списка:

uses crt;

type
  tinf=integer;
  tp=^node;
  node=record
    inf:integer;
    sled:tp;
  end;

var
  head, tail: tp;


procedure vkln(iel:tinf);
var new_p: tp;
begin
  new(new_p);
  with new_p^ do begin
    inf := iel;
    sled := nil;
  end;

  if tail = nil then head := new_p
  else tail^.sled := new_p;

  tail := new_p;
end;

procedure Print(p: tp);
begin
  while p <> nil do begin
    write(p^.inf:4);
    p:=p^.sled;
  end;
  writeln;
end;

procedure reverse(p: tp);
begin
  if p <> nil then reverse(p^.sled)
  else exit;

  vkln(p^.inf);
end;

var
  s:integer;

begin
  clrscr;
  head := nil; tail := nil;

  writeln('0 to finish...');
  repeat

    read(s);
    vkln(s);

  until s=0;
  print(head);

  tail := nil;
  reverse(head);

  print(head);
end.

Теперь ясно?