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

TestSamples/CompilationSamples/SystemUnitTest.pas

12 строк484 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ������ ���� ������� ������ ������ � ������ uses, � ����� � ��������� ������ PABCSystem 
uses System;

begin
  // ��� Random, ������������ � ������������ ���� System, ����������� ��� Random 
  // � ������ PABCSystem, ������� ������ ������������ ������
  var r: Random := new Random();
  writeln(r.Next(10));
  // ������ ������� ����� ������ Random ���������� ���� ��������� ��� ������, � ������� �� ���������
  var i: integer := PABCSystem.Random(10);
  writeln(i);
end.