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

Pointer72. Даны указатели $$P_1$$ и $$P_2$$ на барьерные элементы двух двусвязных списков (о списке с барьерным элементом см. задание Pointer70). Объединить исходные списки, связав конец первого и начало второго списка (барьерным элементом объединенного списка должен остаться барьерный элемент первого списка). Вывести указатели на первый и последний элементы объединенного списка (если объединенный список является пустым, то дважды вывести указатель на его барьерный элемент). После удаления лишнего барьерного элемента освободить занимаемую им память.

Решение:

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

function CycleList():PNode;
var
 P1,pt1,pt2,temp: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;
 new(temp);
 temp.Data:=0;
 temp.Next:=P1;
 temp.Prev:=Pt2;
 P1.Prev:=temp;
 Pt2.Next:=temp;
 CycleList:=temp;
end;

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

 P1.Prev:=P2.Prev;
 P2.Prev.Next:=P1;

 Dispose(P2);
 P2:=P1.Prev;
 P1:=P1.Next;
end;


var
 P1,P2:PNode;
 a:^Word;
begin
 P1:=CycleList();
 P2:=CycleList();

 CombineCycleList(P1,P2);

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

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

program Pointer72;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

function CycleList():PNode;

var

P1,pt1,pt2,temp: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;

new(temp);

temp.Data:=0;

temp.Next:=P1;

temp.Prev:=Pt2;

P1.Prev:=temp;

Pt2.Next:=temp;

CycleList:=temp;

end;

procedure CombineCycleList(var P1,P2:PNode);

begin

P1.Prev.Next:=P2.Next;

P2.Next.Prev:=P1.Prev;

P1.Prev:=P2.Prev;

P2.Prev.Next:=P1;

Dispose(P2);

P2:=P1.Prev;

P1:=P1.Next;

end;

var

P1,P2:PNode;

a:^Word;

begin

P1:=CycleList();

P2:=CycleList();

CombineCycleList(P1,P2);

a:=Addr(P1);

Writeln('begin: ',a^);

a:=Addr(P2);

Writeln('end: ',a^);

end.

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

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

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

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