Помогите, пожалуйста, разобраться с одной проблемой в Чертежнике. Составили процедуру проверяемого задания для вычерчивания картинки макета корабля, разумеется, красным цветом в поле Чертежника-постановщика. unit DMTasks;
interface
uses DMTaskMaker;
implementation
procedure mdav17; var k:byte; begin TaskText(‘Задание mdav17. Начертите макет корабля, используя команду OnVector(a,b)’); k:=10; Field(20,20,-k,-k); DoToPoint(10-k,7-k); DoPenDown; DoToPoint(8-k,3-k); DoToPoint(7-k,2-k); DoToPoint(5-k,1-k); DoToPoint(1-k,5-k); DoToPoint(7-k,5-k); DoToPoint(9-k,6-k); DoToPoint(10-k,7-k); DoToPoint(10-k,1-k); DoToPoint(5-k,1-k); DoPenUp; DoToPoint(2-k,5-k);DoPenDown; DoToPoint(2-k,6-k); DoToPoint(1-k,6-k);DoPenUp; DoToPoint(2-k,6-k);DoPenDown; DoToPoint(3-k,7-k); DoToPoint(4-k,7-k); DoToPoint(4-k,5-k);DoPenUp; DoToPoint(6-k,5-k);DoPenDown; DoToPoint(6-k,8-k); DoToPoint(7-k,9-k); DoToPoint(9-k,9-k); DoToPoint(9-k,11-k); DoToPoint(7-k,11-k); DoToPoint(7-k,12-k); DoToPoint(8-k,13-k); DoToPoint(10-k,13-k); DoToPoint(10-k,15-k); DoToPoint(7-k,15-k);DoPenUp; DoToPoint(10-k,15-k);DoPenDown; DoToPoint(10-k,17-k); DoToPoint(9-k,17-k);DoPenUp; DoToPoint(10-k,17-k);DoPenDown; DoToPoint(10-k,18-k); DoToPoint(9-k,18-k);DoPenUp; DoToPoint(10-k,18-k);DoPenDown; DoToPoint(10-k,19-k);DoPenUp; DoToPoint(10-k,18-k);DoPenDown; DoToPoint(11-k,18-k);DoPenUp; DoToPoint(10-k,18-k); DoToPoint(10-k,17-k);DoPenDown; DoToPoint(11-k,17-k);DoPenUp; DoToPoint(10-k,17-k); DoToPoint(10-k,15-k);DoPenDown; DoToPoint(13-k,15-k);DoPenUp; DoToPoint(10-k,15-k); DoToPoint(10-k,13-k);DoPenDown; DoToPoint(12-k,13-k); DoToPoint(13-k,12-k); DoToPoint(13-k,11-k); DoToPoint(11-k,11-k); DoToPoint(11-k,9-k); DoToPoint(13-k,9-k); DoToPoint(14-k,8-k); DoToPoint(14-k,5-k); DoToPoint(13-k,5-k); DoToPoint(11-k,6-k); DoToPoint(10-k,7-k); DoToPoint(12-k,3-k); DoToPoint(13-k,2-k); DoToPoint(15-k,1-k); DoToPoint(19-k,5-k); DoToPoint(18-k,5-k); DoToPoint(18-k,6-k); DoToPoint(19-k,6-k);DoPenUp; DoToPoint(18-k,6-k);DoPenDown; DoToPoint(17-k,7-k); DoToPoint(16-k,7-k); DoToPoint(16-k,5-k);DoPenUp; DoToPoint(14-k,5-k);DoPenDown; DoToPoint(18-k,5-k);DoPenUp; DoToPoint(15-k,1-k);DoPenDown; DoToPoint(10-k,1-k); end;
RegisterGroup(‘mdav’,‘Мои задания для Чертежника’,‘DMTasks’,20);
RegisterTask(‘mdav17’,mdav17);
end.
Составили програму в Чертежнике-исполнителе, который прорисовывает макет корабля синим цветом. uses Drawman, DMTasks; begin Task(‘mdav17’); OnVector(0,-3); PenDown; OnVector(2,-4); OnVector(1,-1); OnVector(2,-1); OnVector(4,4); OnVector(-6,0); OnVector(-2,1); OnVector(-1,1); OnVector(0,-6); OnVector(5,0); OnVector(4,4); OnVector(-1,0); OnVector(0,1); OnVector(1,0); OnVector(-1,0); OnVector(-1,1); OnVector(-1,0); OnVector(0,-2); OnVector(-2,0); OnVector(0,3); OnVector(-1,1); OnVector(-2,0); OnVector(0,2); OnVector(2,0); OnVector(0,1); OnVector(-1,1); OnVector(-2,0); OnVector(0,2); OnVector(3,0); OnVector(-3,0); OnVector(0,2);
OnVector(1,0); OnVector(-1,0); OnVector(0,1); OnVector(1,0); OnVector(-1,0); OnVector(0,1); OnVector(0,-1); OnVector(-1,0); OnVector(1,0); OnVector(0,-1); OnVector(-1,0); OnVector(1,0); OnVector(0,-2); OnVector(-3,0); OnVector(3,0); OnVector(0,-2); OnVector(-2,0); OnVector(-1,-1); OnVector(0,-1); OnVector(2,0); OnVector(0,-2); OnVector(-2,0); OnVector(-1,-1); OnVector(0,-3); OnVector(-2,0); OnVector(0,2); OnVector(-1,0); OnVector(-1,-1); OnVector(-1,0); OnVector(1,0); OnVector(0,-1); OnVector(2,0); OnVector(-3,0); OnVector(4,-4); OnVector(2,1); OnVector(1,1); OnVector(2,4); OnVector(-1,-1); OnVector(-2,-1); OnVector(-6,0); OnVector(4,-4); OnVector(5,0); PenUp; OnVector(0,9); end.
Кррабль прорисовался, ничего не пропустили, а чертежник упорно выдает сообщение: Чертежник. Работа окончено, задание не выполнено. Объясните почему так. Вроде всё прорисовано, а сообщения: Чертёжник. Задание выполнено на зеленом фоне нет. Помогите разобраться. Ждем ответа, Заранее благодарны.