Паскаль: переписать строковый список в обратном порядке

[aldmitt]

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

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=30507

[aldmitt]

Есть ещё какие-нибудь варианты?

[ZX Spectrum-128]

Конечно, есть. Раз тот не нравится, держите другой.

type
 pNode=^TNode; {Типизированный указатель - указатель на данные типа TNode}
 TNode=record
   Value:string; {значение элемента}
   Next:PNode; {Указатель на следующий элемент}
 end;

procedure ReverseOutput(vk:pnode);
begin
  if (vk=nil) then
   exit;
  ReverseOutput(vk^.next);
  writeln(vk^.Value);
end;

var
 First:pnode;
 Temp:pnode; {временный указатель на ячейку. Понадобится для построения связанного списка}
 v:string;
begin
 First:=nil; {В начале у нас First не указывает ни на что}
 repeat
   write('Введите значение нового элемента (0 для выхода):');
   readln(v);
   if v='0' then break; {Если ввели 0, то окончим ввод элементов}
   if First=NIL then {Если First=NIL, то сейчас мы создадим первый элемент}
   begin
     new(Temp); {Создали первый элемент. Его адрес в Temp}
     First:=Temp; {Так как элемент первый, запомним его адрес}
   end else {Иначе это уже не первый элемент}
   begin
     New(Temp^.Next); {Создаем на основе предыдущего, чтобы сохранилась связь между элементами}
     Temp:=Temp^.Next; {Текущий элемент теперь тот, который мы только что создали.
                       И предыдущий указывает на него}
   end;
   Temp^.Value:=v; {Зададим значение текущего элемента}
 
 until false; {Бесконечный цикл. Прервется только если пользователь введет 0}
 {Всё у нас хорошо. Только вот в последнем элементе параметр Next не определен. Непорядок}
 Temp^.Next:=NIL; {Ну вот теперь то лучше}
 {Заметьте, что даже если пользователь сразу введет 0, то в переменной First будет NIL,
что значит - пустой список}

 {Теперь выведем наш связанный список. Адрес его первого элемента находится в переменной First,
и это хорошо %)}
 Temp:=First; {Укажем переменной Temp на первый элемент последовательности}
 while Temp<>NIL do {Пока текущий элемент существует}
 begin
   writeln(Temp^.Value); {Выводим текущий элемент}
   Temp:=Temp^.Next; {Переходим к следующему}
   {Обратите внимание, что если следующий элемент не существует,
   то в Temp попадет значение NIL, и цикл прекратится}
 end;
 ReverseOutPut(first);
end.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Конечно, есть. Раз тот не нравится, держите другой.

Красавчик!!

я хотел бы отметить один малюсенький нюансик.
в задании: "Переписать список в обратном порядке". Вы же выводите список в обратном порядке. Строго говоря, это не одно и то же.
Препод вполне может учесть этот нюанс, как невыполнение задания.
(а может и нет, от препода зависит )

[ZX Spectrum-128]

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

Красавчик!!

я хотел бы отметить один малюсенький нюансик.
в задании: "Переписать список в обратном порядке". Вы же выводите список в обратном порядке. Строго говоря, это не одно и то же.
Препод вполне может учесть этот нюанс, как невыполнение задания.
(а может и нет, от препода зависит )

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

[aldmitt]

Спасибо большое за вариант! Всё подробно расписано!) Я думаю такое решение подойдёт. Но хотел бы всё таки уточнить в чем же конкретно разница межу "ПЕРЕПИСАТЬ список в обратном порядке" и "ВЫВЕСТИ список в обратном порядке"?!

[ZX Spectrum-128]

Если только вывести, то сам список остается неизменным. А если переписать, то элементы списка будут изменены.

[aldmitt]

Если не затруднит, можно пример какой-нибудь, по переписке цикла. Я думаю мне пригодится, так сказать, для общего развития=)