Question

Нарисуйте дерево на солнечной поляне, пользуясь прямоугольниками и окружностями при необходимости заливкой в паскале

Answer 1

//Обычный вариант
uses GraphABC;
begin
  Rectangle(0,350,Window.Width,Window.Height);
  Circle(0, 0, 100);
  Rectangle(390,400,415,250);
  Circle(400, 170, 100);
  Circle(350, 170, 15);
  Circle(420, 130, 10);
  Circle(420, 230, 10);
end.


//===================================
//Вариант с заливкой
uses GraphABC;
begin
  Rectangle(0,350,Window.Width,Window.Height);
  FloodFill(1,351, clGreen);
  Circle(0, 0, 100);
  FloodFill(1,1, clYellow);
  Rectangle(390,400,415,250);
  FloodFill(395,255, clBrown);
  Circle(400, 170, 100);
  FloodFill(401,171, clLime);
  Circle(350, 170, 15);
  FloodFill(350,170, clRed);
  Circle(420, 130, 10);
  FloodFill(421,131, clRed);
  Circle(420, 230, 10);
  FloodFill(421,231, clRed);
end.