списки, списки Опции

[Iryska]

помогитe, кто чeм можeт. a то сaмa сдeлaть нe могу) литeрaтурa проходит мимо мозгa) ''Дан неупорядоченный
линейный односвязный список
и массив , содержащий номера
соответствующих элементов в
упорядоченном списке .
Перестройте данный список в
соответствии с номерами ,
заданными массивом''

[volvo]

мне не понятно как перестроить массив?

Не надо массив перестраивать. Перестроить нужно список. Ничего, кроме как сделать нагло, но действенно, в голову пока не приходит:

const
   n = 5; { Это размер списка и массива }

   { Для теста - пусть будет константой }
   arr : array[1 .. n] of integer = (4, 2, 1, 5, 3);

{ В процедуру передаем указатель на голову списка,
   на выходе будем иметь по тому же указателю перестроенный список }
procedure rearrange (var start : plist);
var
   Links : array[1 .. n] of plist; { <--- Вот это - та самая наглость }

   function get_item (n : integer) : plist;
   var
      p : plist;
      i : integer;
   begin
      p := start;
      for i := 1 to n - 1 do p := p^.next;
      get_item := p;
   end;

var
  i : integer;
  new_start : plist;
begin
   { Сначала запоминаем все позиции элементов списка в нужном порядке }
   for i := 1 to n do
      Links[i] := get_item (arr[i]);

   { , а потом переназначаем указатели Next. Последний Next должен указывать в пустоту }
   start := Links[1];
   for i := 2 to n do
      Links[i - 1]^.next := Links[i];
   Links[n]^.next := nil;
end;

{ Вызывать - так, например: }
var
   i : integer;
   s, f : plist;
begin
   s := nil; f := nil;
   { Для примера, заполняем список значениями 1 .. 5, и смотрим, что получится: }
   for i := 1 to n do
      append (i, s, f); { <--- Эту процедуру я выкладывал неоднократно, поиском пользуемся }
   print(s);

   { перестраиваем список }
   rearrange(s);
   print(s);

   { Не забываем удалять список ... }
end.

На выходе:

   1   2   3   4   5
   4   2   1   5   3

, то есть, список переформирован.