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

Pointer29. Дан адрес $$P_2$$ записи типа TNode, содержащей поле Data (целого типа) и поля Prev и Next (типа PNode — указателя на TNode). Эта запись связана полями Prev и Next соответственно с предыдущей и последующей записью того же типа. Вывести значения полей Data предыдущей и последующей записи, а также адреса $$P_1$$ и $$P_3$$ предыдущей и последующей записи.

Решение:

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

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

begin
 new(p2);
 new(p1);
 new(p3);

 Write('p1.Data: ');
 Readln(p1.Data);

 Write('p3.Data: ');
 Readln(p3.Data);

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

 Writeln('P1.Data: ',p2.prev.Data);
 Writeln('P3.Data: ',p2.next.Data);

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

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

program Pointer29;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

var

P1,P2,P3:PNode;

D,i:integer;

a:^Word;

begin

new(p2);

new(p1);

new(p3);

Write('p1.Data: ');

Readln(p1.Data);

Write('p3.Data: ');

Readln(p3.Data);

P2.Prev:=P1;

P2.Next:=P3;

Writeln('P1.Data: ',p2.prev.Data);

Writeln('P3.Data: ',p2.next.Data);

a:=Addr(P2.prev);

Writeln('P1: ',a^);

a:=Addr(P2.next);

Writeln('P3: ',a^);

end.

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

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

program Dynamic29; //pabc.net

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

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

/// Создает и добавляет элемент TNode2 в конец двусвязного списка
procedure InsertLast(var L: T2List; data: integer);
begin
  L.last := NewNode2(data, L.last, nil);
  if L.last^.prev = nil then
    L.first := L.last
  else
    L.last^.prev^.next := L.last;
end;

begin
  var DL: T2List := (first: nil; last: nil);
  
  foreach var data in Seq(1, 2, 3) do
    InsertLast(DL, data);
  
  var P2 := DL.first^.next;
  
  Writeln(P2^.prev^.data, ' ', P2^.next^.data); // 1 3
  Writeln(P2^.prev, ' ', P2^.next)
end.

program Dynamic29; //pabc.net

type

PNode2 = ^TNode2;

TNode2 = record

data: integer;

next, prev: PNode2;

end;

T2List = record

first, last: PNode2;

end;

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

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

begin

New(Result);

Result^.data := data;

Result^.prev := prev;

Result^.next := next;

end;

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

procedure InsertLast(var L: T2List; data: integer);

begin

L.last := NewNode2(data, L.last, nil);

if L.last^.prev = nil then

L.first := L.last

else

L.last^.prev^.next := L.last;

end;

begin

var DL: T2List := (first: nil; last: nil);

foreach var data in Seq(1, 2, 3) do

InsertLast(DL, data);

var P2 := DL.first^.next;

Writeln(P2^.prev^.data, ' ', P2^.next^.data); // 1 3

Writeln(P2^.prev, ' ', P2^.next)

end.

Ответить

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

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

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

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