n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Pointers2.pas

43 строки820 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��������� ������������ ������
// ������������� ���������� ��� �������� ������������ ������
type 
  PNode = ^TNode;
  TNode = record
    data: integer;
    next: PNode;
  end;

function NewNode(d: integer; n: PNode): PNode;
begin
  New(Result);
  Result^.data := d;
  Result^.next := n;
end;

var first: PNode;
  
begin
  first := nil;
  // ��������� � ������ ������������ ������
  first := NewNode(3,first);
  first := NewNode(7,first);
  first := NewNode(5,first);
  
  // ����� ������������ ������
  writeln('���������� ������������ ������: ');
  var p := first;
  while p<>nil do
  begin
    write(p^.data,' ');
    p := p^.next;
  end;
  
  // ���������� ������������ ������
  p := first;
  while p<>nil do
  begin
    var p1 := p;
    p := p^.next;
    Dispose(p1); // ������ ����������� ����������
  end;
end.