Сдвиг эл-ов списка на одну позицию вправо

[IsKiN9]

Помогите плз!
Дан ЛОС целых чисел.
1.Написать прогу циклического сдвига эл-ов списка на одну позицию вправо.
2.Заменить все отрицательные эл-ы списка на их корни.
Ввод эл-ов осуществил:

Type Point=^rec;
     rec=record
     inf : integer;
     sled : point;
end;
Var S,L : point;
   sr,sum, d : real; elem,k : integer;
begin
new(S);
L:=S;
L^.sled:=nil;
writeln('вв 1 эл-т списка:');
readln(elem);
while elem<>2 do begin
                 new(L^.sled);
                 L:=L^.sled;
                 L^.inf:=elem;
                 L^.sled:=nil;
                 writeln('Вв след. эл-т списка:');
                 readln(elem);
end;

а вот дальше....



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

Модератор.

[min@y™]

а дальше – двигай указатель. а данные пусть на месте остаются.

[Serge_Bliznykov]

попробуйте такой код:

Type Point=^rec;
   rec=record
     inf : integer;
     sled : point;
end;

procedure PrintList(Head:Point);
var t:Point;
begin
  if Head=nil then WriteLn('Список пуст')
  else begin
    t:=Head;
    while t<>nil do begin
          Write(t^.inf,' ');
          t:=t^.sled
    end;
    WriteLn;
  end;
end;

Var S,L, Lprev : Point;
   sr,sum, d : real; elem,k : integer;
begin
S:=nil;
Lprev:=nil;
repeat
    writeln('Вв эл-т списка (2 for end):');
    readln(elem);
    if elem<>2 then begin
       if S=nil then begin
         New(S);
         L:=S;
       end
       else begin
            new(L^.sled);
            Lprev := L;
            L:=L^.sled;
       end;
       L^.inf:=elem;
       L^.sled:=nil;
     end;
until elem=2;

// печать списка
PrintList(S);

// если список не пуст
if S<>nil then begin
  // сдвиг
  // для этого нужно
  // 1) в последнем элементе указатель на sled должен указывать на голову списка
  L^.sled:= S;
  // 2) указатель головы на последний элемент
  S := L;
  // 3) если предыдущий элемент был,то ему sled нужно оборвать,
  //     иначе в списке всего один элемент, нужно разорвать циклическую ссылку
  if  Lprev<>nil then    Lprev^.sled := nil else S^.sled := nil;
  
  // печать списка после сдвига
  PrintList(S);
end;

end.