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

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

Решение:

program Pointer36;

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

var

temp:PNode;

begin

new(temp);

temp.Data:=D;

temp.Prev:=P0;

temp.Next:=P0.Next;

P0.Next:=temp;

if temp.Next<>nil then

begin

temp:=temp.Next;

temp.Prev:=P0.Next;

end;

var

P1,P2:PNode;

a:^Word;

begin

CreateList(P1,P2);

InsertAfter(P1,P1.Data);

InsertAfter(P2,P2.Data);

P2:=P2.Next;

a:=Addr(P2);

Writeln('end: ',a^);

end.

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

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

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

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