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

Pointer30. Дан указатель $$P_1$$ на начало непустой цепочки элементов-записей типа TNode, связанных между собой с помощью поля Next. Используя поле Prev записи TNode, преобразовать исходную (односвязную) цепочку в двусвязную, в которой каждый элемент связан не только с последующим элементом (с помощью поля Next), но и с предыдущим (с помощью поля Prev). Поле Prev первого элемента положить равным $$nil$$. Вывести указатель на последний элемент преобразованной цепочки.

Решение:

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

procedure CreateStack(var P1:PNode);
var
 p,q:PNode;
 i,N:integer;
begin
 Write('N:');
 Readln(N);

 New(P1);
 Write('data: ');
 Readln(P1^.Data);
 P1^.Next := nil;

 q:=P1;
 for i:=1 to N-1 do
  begin
   new(p);
   Write('data: ');
   Readln(P^.Data);
   p^.Next := nil;
   q^.Next := p;
   q:=q^.Next
  end;
end;


var
 P1,p,q:PNode;
 a:^Word;
begin
 CreateStack(P1);
 p:=P1;
 p.Prev:=nil;
 while (p.Next<>nil) do
  begin
   q:=p;
   p:=p.Next;
   p.Prev:=Q;
  end;

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

end.

program Pointer30;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

procedure CreateStack(var P1:PNode);

var

p,q:PNode;

i,N:integer;

begin

Write('N:');

Readln(N);

New(P1);

Write('data: ');

Readln(P1^.Data);

P1^.Next := nil;

q:=P1;

for i:=1 to N-1 do

begin

new(p);

Write('data: ');

Readln(P^.Data);

p^.Next := nil;

q^.Next := p;

q:=q^.Next

end;

var

P1,p,q:PNode;

a:^Word;

begin

CreateStack(P1);

p:=P1;

p.Prev:=nil;

while (p.Next<>nil) do

begin

q:=p;

p:=p.Next;

p.Prev:=Q;

end;

a:=Addr(P);

Writeln('end: ',a^);

end.

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

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

program dynamic30; //pabc.net

type
  PNode2 = ^TNode2;
  TNode2 = record
    data: integer;
    next, prev: PNode2;
  end;

/// Создает элемент типа TNode2 и возвращает его адрес
function NewNode2(data: integer; prev, next: PNode2): PNode2;
begin
  New(Result);
  Result^.data := data;
  Result^.prev := prev;
  Result^.next := next;
end;

/// Используя поле Prev записи TNode2, преобразует односвязную цепочку 
/// элементов типа TNode2 в двусвязную и возвращает адрес последнего эл-та 
function MakeT2List(p1: PNode2): PNode2;
begin
  if p1 = nil then exit;
  while p1^.next <> nil do
  begin
    p1^.next^.prev := p1;
    p1 := p1^.next
  end;
  result := p1
end;

begin
  var first, last: PNode2;
  first := nil;
  last := nil;
  
  // создаем односвязную цепочку из элементов TNode2
  for var i := 1 to 5 do
    first := NewNode2(i * 2 - 1, nil, first); // 5->4->3->2->1
  
  var P1 := first;
  
  last := MakeT2List(P1);
  
  Write(last)
end.

program dynamic30; //pabc.net

type

PNode2 = ^TNode2;

TNode2 = record

data: integer;

next, prev: PNode2;

end;

/// Создает элемент типа TNode2 и возвращает его адрес

function NewNode2(data: integer; prev, next: PNode2): PNode2;

begin

New(Result);

Result^.data := data;

Result^.prev := prev;

Result^.next := next;

end;

/// Используя поле Prev записи TNode2, преобразует односвязную цепочку

/// элементов типа TNode2 в двусвязную и возвращает адрес последнего эл-та

function MakeT2List(p1: PNode2): PNode2;

begin

if p1 = nil then exit;

while p1^.next <> nil do

begin

p1^.next^.prev := p1;

p1 := p1^.next

end;

result := p1

end;

begin

var first, last: PNode2;

first := nil;

last := nil;

// создаем односвязную цепочку из элементов TNode2

for var i := 1 to 5 do

first := NewNode2(i * 2 - 1, nil, first); // 5->4->3->2->1

var P1 := first;

last := MakeT2List(P1);

Write(last)

end.

Ответить

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

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

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

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