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

Pointer33. Дано число $D$ и указатель $P_0$ на один из элементов непустого двусвязного списка. Вставить перед данным элементом списка новый элемент со значением $D$ и вывести указатель на добавленный элемент списка.

Решение:

program Pointer33;
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 InsertBefore(P0:PNode;D:integer);
var
 temp:PNode;
begin
 new(temp);
 temp.Data:=D;

 temp.Prev:=P0.Prev;
 temp.Next:=P0;
 P0.Prev:=temp;
 temp:=temp.Prev;
 Temp.Next:=P0.Prev;
end;

var
 P0,P1,P2:PNode;
 a:^Word;
 D:integer;

begin
 CreateList(P1,P2);
 P0:=P1.Next.Next.Next;
 P1:=nil;
 P2:=nil;

 Write('D:');
 readln(D);
 InsertBefore(P0,D);

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

program Pointer33;

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 InsertBefore(P0:PNode;D:integer);

var

temp:PNode;

begin

new(temp);

temp.Data:=D;

temp.Prev:=P0.Prev;

temp.Next:=P0;

P0.Prev:=temp;

temp:=temp.Prev;

Temp.Next:=P0.Prev;

end;

var

P0,P1,P2:PNode;

a:^Word;

D:integer;

begin

CreateList(P1,P2);

P0:=P1.Next.Next.Next;

P1:=nil;

P2:=nil;

Write('D:');

readln(D);

InsertBefore(P0,D);

a:=Addr(P0.Prev);

Writeln('New: ',a^);

end.

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

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

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

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