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

TestSamples/CompilationSamples/TreeDraw.pas

19 строк373 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ��������� ��������� ������
uses GraphABC;

const dy=60;

procedure DrawTree(x,y,dx,level: integer);
// �����: �����, ������, ������
begin
  if level=0 then Exit;
  DrawTree(x-dx,y+dy,dx div 2,level-1);
  Line(x,y,x-dx,y+dy);
  Line(x,y,x+dx,y+dy);
  Sleep(10);
  DrawTree(x+dx,y+dy,dx div 2,level-1);
end;

begin
  DrawTree(WindowWidth div 2,10,190,8);
end.