Проверяемые задания для исполнителя Чертёжник

Помогите, пожалуйста, разобраться с одной проблемой в Чертежнике. Составили процедуру проверяемого задания для вычерчивания картинки макета корабля, разумеется, красным цветом в поле Чертежника-постановщика. 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.

image

Составили програму в Чертежнике-исполнителе, который прорисовывает макет корабля синим цветом. 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.

image

Кррабль прорисовался, ничего не пропустили, а чертежник упорно выдает сообщение: Чертежник. Работа окончено, задание не выполнено. Объясните почему так. Вроде всё прорисовано, а сообщения: Чертёжник. Задание выполнено на зеленом фоне нет. Помогите разобраться. Ждем ответа, Заранее благодарны.

Код надо выделять так:

```
код
```

Знак ` находится за ё в англ раскладке.

Помогите, пожалуйста, разобраться с одной проблемой в Чертежнике. Составили процедуру проверяемого задания для вычерчивания картинки макета корабля, разумеется, красным цветом в поле Чертежника-постановщика.

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.

Получили проверяемую обстановку:

![image|341x230](upload://twvFVvYkRipMfLrHkCwX7h8yE0S.png)

Составили программу в Чертежнике-исполнителе, который прорисовывает макет корабля синим цветом.

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.

Получили картинку, перо поднято, находится в точке (0,0):

![image|340x230](upload://kZxrUqAXtV2wDXIktZE7yQDTeZX.png)

Корабль нарисовался, нигде ничего не пропустили, а чертежник упорно выдает сообщение: Чертежник. Работа окончено, задание не выполнено. Объясните почему так. Вроде всё прорисовано, а сообщения: Чертёжник. Задание выполнено на зеленом фоне нет. Помогите разобраться. Ждем ответа, Заранее благодарны.

Помогите, пожалуйста, разобраться с одной проблемой в Чертежнике. Составили процедуру проверяемого задания для вычерчивания картинки макета корабля, разумеется, красным цветом в поле Чертежника-постановщика.

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.

Получили проверяемое задание: :image

Составили программу в Чертежнике-исполнителе, который прорисовывает макет корабля синим цветом.

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.

image

Корабль про рисовался, ничего не пропустили, синий цвет полностью покрыл красный, ничего лишнего, а Чертежник упорно выдает сообщение: Чертежник. Работа окончена, задание не выполнено. Объясните почему так. Вроде всё прорисовано, а сообщения: Чертёжник. Задание выполнено на зеленом фоне нет. Помогите разобраться. Ждем ответа, Заранее благодарны.