25 lines
467 B
ObjectPascal
25 lines
467 B
ObjectPascal
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
unit DrawManAddTasks;
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> pcu-<2D><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> PascalABC.NET\bin\Lib
|
|||
|
|
|
|||
|
|
uses DrawMan,DMTaskMaker;
|
|||
|
|
|
|||
|
|
procedure my1;
|
|||
|
|
begin
|
|||
|
|
TaskText('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> my1. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
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.
|