Решаем задачи Абрамян на Паскале. Pointer58

Pointer58. Дано число $K$ $(>0)$ и указатели $P_1$ и $P_2$ на первый и последний элементы непустого двусвязного списка. Осуществить циклический сдвиг элементов списка на $K$ позиций назад (то есть в направлении от конца к началу списка) и вывести указатели на первый и последний элементы полученного списка. Для выполнения циклического сдвига преобразовать исходный список в циклический (см. задание Pointer55), после чего «разорвать» его в позиции, соответствующей данному значению $K$ . Операции выделения и освобождения памяти не использовать.

Решение:

program Pointer58;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: PNode;
  end;

procedure CreateList(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;

 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt1.Prev:=pt2;
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;

procedure cycle(var P1,P2:PNode);
begin
 P1.Prev:=P2;
 P2.Next:=P1;
end;

procedure Split(var P1,P2:PNode);
begin
 P1.Prev:=nil;
 P2.Next:=nil;
end;

var
 P1,P2:PNode;
 a:^Word;
 K,i:integer;
begin
 CreateList(P1,P2);
 Write('K: ');
 Readln(K);

 cycle(P1,P2);

 for i:=1 to K do P1:=P1.Prev;
 P2:=P1.Prev;

 split(P1,P2);
 a:=Addr(P1);
 Writeln('P1: ',a^);

 a:=Addr(P2);
 Writeln('P2: ',a^);
end.

program Pointer58;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

procedure CreateList(var P1,P2:PNode);

var

pt1,pt2:PNode;

i,N:integer;

begin

Write('NumEl:');

Readln(N);

new(p1);

Write('num: ');

Readln(P1^.Data);

pt2:=p1;

for i:=1 to N-1 do

begin

new(pt1);

Write('num: ');

Readln(pt1^.Data);

pt1.Prev:=pt2;

pt2.Next:=pt1;

pt2:=pt2.Next;

end;

pt2.Next:=nil;

p2:=pt2;

end;

procedure cycle(var P1,P2:PNode);

begin

P1.Prev:=P2;

P2.Next:=P1;

end;

procedure Split(var P1,P2:PNode);

begin

P1.Prev:=nil;

P2.Next:=nil;

end;

var

P1,P2:PNode;

a:^Word;

K,i:integer;

begin

CreateList(P1,P2);

Write('K: ');

Readln(K);

cycle(P1,P2);

for i:=1 to K do P1:=P1.Prev;

P2:=P1.Prev;

split(P1,P2);

a:=Addr(P1);

Writeln('P1: ',a^);

a:=Addr(P2);

Writeln('P2: ',a^);

end.

Другие задачи из раздела Pointer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Pointer58

Комментарии:

Добавить комментарий Отменить ответ