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

TestSamples/CompilationSamples/References.pas

35 строк893 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������� ������ ������ ���������� ��� �������� ������������ ������
// �� ����������� ������ ���� ������
type 
  Node = class
    data: integer;
    next: Node;
    constructor (d: integer; n: Node);
    begin
      data := d;
      next := n;
    end;
  end;

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