Если при каком-либо вызове будет указано неверное имя группы или неверный номер задания в пределах группы, то выведется сообщение об ошибке, и html-страница создана не будет.
В создаваемую html-страницу включаются стилевые настройки, которые берутся из файла PT4Tasks.css, который ищется в текущем каталоге, а при его отсутствии в этом каталоге -- в подкаталоге PT4 системного каталога PascalABC.NET. Если данный стилевой файл не найден, то стилевые настройки в html-страницу не добавляются.
При успешной генерации html-страницы она сохраняется в файле со стандартным именем PT4Tasks.html в рабочем каталоге приложения. Если в этом каталоге нельзя создать файл, то выводится сообщение об ошибке.
Возможность просмотра html-страниц с описанием текущей группы заданий добавлена и в программный модуль PT4Demo. Для этого предусмотрена кнопка 
(см. приведенный выше рисунок) и клавиша F2.
Модули констукторов заданий
Конструкторы проверяемых заданий: обзор
В системе PascalABC.NET можно создавать проверяемые задания для исполнителей Робот и Чертежник, а также для электронного задачника Programming Taskbook. Задания разрабатываются с помощью конструкторов RobotTaskMaker, DMTaskMaker и PT4TaskMaker; конструкторы RobotTaskMaker и DMTaskMaker реализованы в виде одноименных модулей, конструктор PT4TaskMaker реализован в виде модуля PT4TaskMakerNET. В данном разделе приводятся подробные описания каждого из конструкторов и примеры их использования для создания новых заданий:
Модуль RobotTaskMaker
Создание заданий для исполнителя Робот
Модуль DMTaskMaker
Создание заданий для исполнителя Чертежник
Модуль PT4TaskMakerNET: общее описание
Модуль PT4TaskMakerNET: основные компоненты
Модуль PT4TaskMakerNET: дополнительные компоненты
Модуль PT4TaskMakerNET: форматирование текста заданий
Модуль PT4TaskMakerNET: примеры разработки учебных заданий
Модуль PT4TaskMakerNET: разработка заданий, связанных с ЕГЭ по информатике
Модуль RobotTaskMaker
Типы модуля RobotTaskMaker
type TaskProcType = procedure;
Тип процедуры, генерирующей конкретное задание. Каждое задание реализуется в виде отдельной процедуры; для связывания этой процедуры с именем задания необходимо использовать процедуру RegisterTask, описываемую ниже.
|
Процедуры модуля RobotTaskMaker |
procedure Field(szx,szy: integer);
Задает поле Робота размера szx на szy клеток.
procedure HorizontalWall(x,y,len: integer);
Создает горизонтальную стену длины len и координатами левого верхнего угла (x, y).
procedure VerticalWall(x,y,len: integer);
Создает вертикальную стену длины len и координатами левого верхнего угла (x, y).
procedure RobotBegin(x,y: integer);
Задает начальное положение Робота в клетке с координатами (x, y).
procedure RobotEnd(x,y: integer);
Задает конечное положение Робота в клетке с координатами (x, y).
procedure RobotBeginEnd(x,y,x1,y1: integer);
Задает начальное положение Робота в клетке с координатами (x, y) и конечное в клетке с координатами (x1, y1).
procedure Tag(x,y: integer);
Помечает клетку (x, y) для закрашивания.
procedure TagRect(x,y,x1,y1: integer);
Помечает прямоугольник из клеток, задаваемый координатами противоположных вершин прямоугольника (x, y) и (x1, y1), для закрашивания.
procedure MarkPainted(x,y: integer);
Закрашивает клетку (x, y) (в задании некоторые клетки могут быть уже закрашены).
procedure TaskText(s: string);
Задает формулировку текста задания в строке s.
procedure RegisterGroup(name,description,unitname: string; count: integer);
Обеспечивает автоматическую регистрацию новой группы заданий в программном модуле PT4Load. В результате имя данной группы будет отображаться в окне модуля PT4Load в списке групп, связанных с исполнителем Робот, что позволит создать программу-заготовку для выполнения любого задания этой группы. В качестве параметров процедуры указывается имя группы name, краткое описание группы description, имя модуля unitname, в котором описана группа, и количество заданий count. Имя группы заданий должно содержать не более 7 символов (цифр и латинских букв) и не должно оканчиваться цифрой, количество заданий не должно превышать 999. Процедура RegisterGroup должна вызываться в секции инициализации модуля, содержащего реализацию новой группы заданий для Робота.
RegisterTask(name: string; p: TaskProcType);
Связывает имя задания name с процедурой p, в которой реализовано данное задание. Данную процедуру следует вызывать для каждого задания. Подобно описанной выше процедуре RegisterGroup, процедура RegisterTask должна вызываться в секции инициализации модуля, содержащего реализацию новой группы заданий для Робота. Порядок вызова этих процедур может быть произвольным.
Создание заданий для исполнителя Робот
Опишем последовательность создания группы заданий для исполнителя Робот. Создадим модуль 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;
end;