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

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

Решение:

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

var
 P1:PNode;
 a:^Word;
begin
// подготовка к выполнению задания, в задании этой части нет, стек появляется из неоткуда.
 New(P1);
 Write('P1.data: ');
 Readln(P1^.Data);

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


// непосредственно решение
 Writeln('P1.data:',P1^.Data);

 a:=Addr(P1^.Next);
 Writeln('P1.next:',a^);

 Writeln('P2.data:',P1^.Next^.Data);
 readln;
end.

program Pointer1;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

var

P1:PNode;

a:^Word;

begin

// подготовка к выполнению задания, в задании этой части нет, стек появляется из неоткуда.

New(P1);

Write('P1.data: ');

Readln(P1^.Data);

New(P1^.Next);

Write('P2.data: ');

Readln(P1^.Next^.Data);

// непосредственно решение

Writeln('P1.data:',P1^.Data);

a:=Addr(P1^.Next);

Writeln('P1.next:',a^);

Writeln('P2.data:',P1^.Next^.Data);

readln;

end.

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

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

Рустам

04.06.2016 в 17:03

Можно ли обойтись без функции addr или ей есть какой-нибудь аналог? В моем компиляторе ее нет, и поэтому указывается как «неизвестное имя»

Ответить
Anton

04.06.2016 в 18:23

addr — альтернатива @
то есть можно записать:

a:=@(P1^.Next);

1

a:=@(P1^.Next);

Ответить
Рустам

05.06.2016 в 14:44

После замены addr на @ в том же месте возникла новая ошибка: «Нельзя преобразовать тип ^^TNode к ^word». Гуглил насчет этой проблемы и нашел только это —

серофим:
всё ,разобрался , в ABC нет ADDR , и присваивать вот так нельзя :
PascalВыделить код
STRUKAZ:=@(a[i]);
но можно так:
PascalВыделить код
var ch:char;
………..
ch := (a[i]);
STRUKAZ := @ch;

Видимо при моем PascalABC нужно данный момент — a := @(P1^.Next); — реализовать как — то по другому?

Ответить
- Anton
  
  05.06.2016 в 18:15
  
  немного поправил комментарий. заменил ссылку на инфу…
  но насколько я вижу в данном примере мы получаем адрес не a[i], а ch
  
  Ответить
Anton

05.06.2016 в 18:33

а можете по точнее назвать версию PascalABS на котором вы компилируете проект?

Ответить

PascalABC.NET
Версия 3.0. сборка 1039 (15.09.2015)

Ответить

Тогда можно попробовать так:

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

var
 P1:PNode;
begin
// подготовка к выполнению задания, в задании этой части нет, стек появляется из неоткуда.
 New(P1);
 Write('P1.data: ');
 Readln(P1^.Data);

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


// непосредственно решение
 Writeln('P1.data:',P1^.Data);

 Writeln('P1.next:',P1^.Next);

 Writeln('P2.data:',P1^.Next^.Data);
end.

program Pointer1;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

var

P1:PNode;

begin

// подготовка к выполнению задания, в задании этой части нет, стек появляется из неоткуда.

New(P1);

Write('P1.data: ');

Readln(P1^.Data);

New(P1^.Next);

Write('P2.data: ');

Readln(P1^.Next^.Data);

// непосредственно решение

Writeln('P1.data:',P1^.Data);

Writeln('P1.next:',P1^.Next);

Writeln('P2.data:',P1^.Next^.Data);

end.

Ответить

program dynamic01; //pabc.net
 
type
  PNode = ^TNode;
  TNode = record
    data: integer;
    next: PNode;
  end;
 
/// Создает элемент типа TNode и возвращает указатель на него
function NewNode(data: integer; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next;
end;
 
begin
  var p2 := NewNode(10, nil);
  var p1 := NewNode(20, p2);
  
  Writeln('data1: ', p1^.data, // 20
          NewLine, 'data2: ', p2^.data, // 10
          NewLine, 'p2: ', p2) // адрес второго элемента
end.

program dynamic01; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

/// Создает элемент типа TNode и возвращает указатель на него

function NewNode(data: integer; next: PNode): PNode;

begin

New(Result);

Result^.data := data;

Result^.next := next;

end;

begin

var p2 := NewNode(10, nil);

var p1 := NewNode(20, p2);

Writeln('data1: ', p1^.data, // 20

NewLine, 'data2: ', p2^.data, // 10

NewLine, 'p2: ', p2) // адрес второго элемента

end.

Ответить

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

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

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

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