Создание заданий для исполнителя Робот / Описание языка PascalABC.NET / Библиотека (книги, учебники и журналы) / В помощь Веб-Мастеру

Обложка
Аннотация

Книги автора: Введение в Python Описание языка PascalABC.NET S. D. F. Справочкик по JavaScript Справочник по CSS Справочник по PHP Справочник по Flash Язык программирования Euphoria. Справочное руководство Программирование на Java Основы программирования на Java Графика DirectX в Delphi VBA для чайников Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/FireBird/Yaffil Фундаментальные алгоритмы и структуры данных в Delphi Курс "Язык программирования PHP"

Книга: Описание языка PascalABC.NET

Создание заданий для исполнителя Робот

Опишем последовательность создания группы заданий для исполнителя Робот. Создадим модуль RobTasks.pas со следующим текстом:

unit RobTasks;

interface

uses RobotTaskMaker;

implementation

procedure FirstRob;

begin

TaskText('Задание myrob1. Закрасить помеченные клетки');

Field(10,6);

HorizontalWall(0,3,4);

VerticalWall(4,3,2);

RobotBegin(1,4);

VerticalWall(5,1,5);

HorizontalWall(5,1,4);

RobotEnd(6,2);

Tag(6,2);

end;

begin

RegisterGroup('myrob','Мои задания для Робота','RobTasks',2);

RegisterTask('myrob1',FirstRob);

end.

Наберем и запустим основную программу (сохранять ее в каком-либо файле не требуется):

uses Robot, RobTasks;

begin

Task('myrob1');

end.

Будет выведено следующее задание для Робота:

Добавим задание, в котором конфигурация поля случайна:

procedure SecondRob;

var n,i: integer;

begin

TaskText('Задание myrob2. Закрасить клетки под закрашенными');

n:=Random(4)+7;

Field(n,4);

RobotBeginEnd(1,3,n,3);

MarkPainted(n,2);

Tag(n,3);

for i:=2 to n-1 do

if Random(3)=1 then

begin

MarkPainted(i,2);

Tag(i,3);

end;

Добавим вызов процедуры регистрации для данного задания; в результате секция инициализации примет следующий вид:

begin

RegisterGroup('myrob','Мои задания для Робота','RobTasks',2);

RegisterTask('myrob1',FirstRob);

RegisterTask('myrob2',SecondRob);

end.

Изменим основную программу:

uses Robot, RobTasks;

begin

Task('myrob2');

end.

При запуске этой программы в окне исполнителя Робот будет выведено новое задание:

При первом запуске программы с подключенным модулем DMTasks созданная нами группа была автоматически зарегистрирована в мастере по созданию программ-заготовок PT4Load. Если теперь нажать кнопку