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

TestSamples/CompilationSamples/DMpp17.pas

27 строк363 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ���������� ������� pp17 ��� ����������
uses Drawman;

procedure Spir(n: integer);
begin
  PenDown;
  var i := n;
  while i>=1 do
  begin
    OnVector(0,i);
    OnVector(i,0);
    i -= 1;
    OnVector(0,-i);
    OnVector(-i,0);
    i -= 1;
  end;
  PenUp;
end;

begin
  Task('pp17');
  ToPoint(2,2);
  Spir(10);
  ToPoint(16,2);
  Spir(8);
  ToPoint(0,0);
end.