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

Автор: Bronislav

Bronislav — Tue, 25 Dec 2018 19:12:02 +0000

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.

Автор: Anton

Anton — Sun, 05 Jun 2016 16:47:17 +0000

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

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.

Автор: Рустам

Рустам — Sun, 05 Jun 2016 16:11:19 +0000

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

Автор: Anton

Anton — Sun, 05 Jun 2016 14:33:37 +0000

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

Автор: Anton

Anton — Sun, 05 Jun 2016 14:15:04 +0000

В ответ на Рустам. немного поправил комментарий. заменил ссылку на инфу... но насколько я вижу в данном примере мы получаем адрес не a[i], а ch

Автор: Рустам

Рустам — Sun, 05 Jun 2016 10:44:48 +0000

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

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

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

Автор: Anton

Anton — Sat, 04 Jun 2016 14:23:04 +0000

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

a:=@(P1^.Next);

1	a:=@(P1^.Next);

Автор: Рустам

Рустам — Sat, 04 Jun 2016 13:03:30 +0000

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