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

TestSamples/CompilationSamples/random_Robot.pas

17 строк350 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

 // ������������ ������������� ��������� ����� ��� ������. ��������� ���������
uses Robot;

begin
  Field(50,40);
  while True do
  begin
    var r := Random(4);
    case r of
      0: if FreeFromUp then Up;
      1: if FreeFromDown then Down;
      2: if FreeFromLeft then Left;
      3: if FreeFromRight then Right;
    end;
    Paint;
  end;
end.