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

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

Решение:

program Pointer70;
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 ViewQueue(P1,P2:PNode);
var
 p:PNode;
 a:^Word;
 len:integer;
begin
 if P1<>P2 then
  begin
   len:=0;
   p := p1;
   a:=Addr(p);
   WriteLn(p^.Data);
   repeat
    p := p^.next;
    inc(len);
    WriteLn(p^.Data);
    if p = p2 then writeln('last address: ',a^);
   until (p = P2);

   writeln('len: ',len);
  end
  else Writeln('nil');
end;

function CycleList(var P1,P2:PNode):PNode;
var
 temp:PNode;
begin
 new(temp);
 temp.Data:=0;
 temp.Next:=P1;
 temp.Prev:=P2;
 P1.Prev:=temp;
 P2.Next:=temp;
 CycleList:=temp;
end;

var
 P1,P2,PB:PNode;
 a:^Word;
begin
 CreateList(P1,P2);
 PB:=CycleList(P1,P2);
 a:=Addr(PB);
 Writeln('PB: ',a^);
end.

program Pointer70;

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 ViewQueue(P1,P2:PNode);

var

p:PNode;

a:^Word;

len:integer;

begin

if P1<>P2 then

begin

len:=0;

p := p1;

a:=Addr(p);

WriteLn(p^.Data);

repeat

p := p^.next;

inc(len);

WriteLn(p^.Data);

if p = p2 then writeln('last address: ',a^);

until (p = P2);

writeln('len: ',len);

end

else Writeln('nil');

end;

function CycleList(var P1,P2:PNode):PNode;

var

temp:PNode;

begin

new(temp);

temp.Data:=0;

temp.Next:=P1;

temp.Prev:=P2;

P1.Prev:=temp;

P2.Next:=temp;

CycleList:=temp;

end;

var

P1,P2,PB:PNode;

a:^Word;

begin

CreateList(P1,P2);

PB:=CycleList(P1,P2);

a:=Addr(PB);

Writeln('PB: ',a^);

end.

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

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

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

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