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

TestSamples/CompilationSamples/RobotAddTasks.pas

18 строк299 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

unit RobotAddTasks;

uses Robot,RobotTaskMaker;

procedure my1;
begin
  TaskText('������� my1. ��������� ���������� ������');
  Field(15,11);
  RobotBeginEnd(1,1,15,11);
  Tag(8,6);
  HorizontalWall(3,5,5);
  HorizontalWall(3,6,5);
  VerticalWall(8,5,1);
end;

begin
  RegisterTask('my1',my1);
end.