25 lines
467 B
ObjectPascal
25 lines
467 B
ObjectPascal
/// Дополнительный модуль для исполнителя Чертежник с заданиями
|
||
unit DrawManAddTasks;
|
||
// После компиляции pcu-файл модуля желательно разместить в папке PascalABC.NET\bin\Lib
|
||
|
||
uses DrawMan,DMTaskMaker;
|
||
|
||
procedure my1;
|
||
begin
|
||
TaskText('Задание my1. Начертите, используя циклы');
|
||
Field(14,14);
|
||
DoToPoint(1,7);
|
||
var k := 1;
|
||
DoPenDown;
|
||
for var i:=1 to 12 do
|
||
begin
|
||
DoOnVector(1,i*k);
|
||
k:=-k;
|
||
end;
|
||
DoPenUp;
|
||
end;
|
||
|
||
begin
|
||
RegisterTask('my1',my1);
|
||
end.
|