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

TestSamples/CompilationSamples/random_DM.pas

16 строк291 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������ ������������� ��������� ����� ��� ����������. ����
uses DrawMan;

begin
  Field(30,22);
  ToPoint(15,11);
  PenDown;
  for var i:=1 to 100 do
  begin
    var dx := Random(-10,10);
    var dy := Random(-10,10);
    OnVector(dx,dy);
    OnVector(-dx,-dy);
  end;
  PenUp;
end.