n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/DrawManAddTasks.pas

24 строки467 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

/// �������������� ������ ��� ����������� ��������� � ���������
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.