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

Pointer54. Даны указатели $P_X$ и $P_Y$ на два различных элемента двусвязного списка; элемент с адресом $P_X$ находится в списке перед элементом с адресом $P_Y$ , но не обязательно рядом с ним. Переместить элементы, расположенные между данными элементами (не включая данные элементы) в новый список (в том же порядке). Вывести указатели на первые элементы преобразованного и нового списков. Если новый список окажется пустым, то связанный с ним указатель положить равным $nil$ . Операции выделения и освобождения памяти не использовать.

Решение:

program Pointer53;
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;

Function GetBeginPoint(P0:PNode):PNode;
begin
 Result:=P0;
 while (Result.Prev<>nil) do
  Result:=Result.Prev;
end;

Function GetEndPoint(P0:PNode):PNode;
begin
 Result:=P0;
 while (Result.Next<>nil) do
  Result:=Result.Next;
end;

procedure Cut(var P3,P4:PNode);
begin
 if P3.Next<>P4 then
  begin
   P3:=P3.Next;
   P4:=P4.Prev;

   P3.Prev.Next:=P4.Next;
   P4.Next.Prev:=P3.Prev;

   P3.Prev:=nil;
   P4.Next:=nil;
  end
 else
  begin
   P3:=nil;
   P4:=nil;
  end;

end;

var
 P1,P2,PX,PY:PNode;
 a:^Word;
begin
 CreateList(P1,P2);
 PX:=P1.Next;
 PY:=P2.Prev;
 P1:=nil;
 P2:=nil;

 P1:=GetBeginPoint(PX);
 P2:=GetEndPoint(PY);

 Cut(PX,PY);

 a:=Addr(P1);
 Writeln('Old begin: ',a^);

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

 a:=Addr(PX);
 Writeln('New begin: ',a^);

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

program Pointer53;

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;

Function GetBeginPoint(P0:PNode):PNode;

begin

Result:=P0;

while (Result.Prev<>nil) do

Result:=Result.Prev;

end;

Function GetEndPoint(P0:PNode):PNode;

begin

Result:=P0;

while (Result.Next<>nil) do

Result:=Result.Next;

end;

procedure Cut(var P3,P4:PNode);

begin

if P3.Next<>P4 then

begin

P3:=P3.Next;

P4:=P4.Prev;

P3.Prev.Next:=P4.Next;

P4.Next.Prev:=P3.Prev;

P3.Prev:=nil;

P4.Next:=nil;

end

else

begin

P3:=nil;

P4:=nil;

end;

var

P1,P2,PX,PY:PNode;

a:^Word;

begin

CreateList(P1,P2);

PX:=P1.Next;

PY:=P2.Prev;

P1:=nil;

P2:=nil;

P1:=GetBeginPoint(PX);

P2:=GetEndPoint(PY);

Cut(PX,PY);

a:=Addr(P1);

Writeln('Old begin: ',a^);

a:=Addr(P2);

Writeln('Old end: ',a^);

a:=Addr(PX);

Writeln('New begin: ',a^);

a:=Addr(PY);

Writeln('New end: ',a^);

end.

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

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

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

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