Помогите нарисовать в паскале ABC забор простой, раскрашенный в любой цвет, без контуров,...

Question

Помогите нарисовать в паскале ABC забор простой, раскрашенный в любой цвет, без контуров, просто одноцветный забор, желательно 5 досок. Кто сможет скиньте код.

---

Comments

Мой супер сложный код не подошел?

---

???

---

извините, но нет((((

---

слишком сложный

---

сказали что то на подобие этого

---

поможете?)

Answer 1

Uses GraphABC;
 begin
  line(50, 100, 50, 400);
  line(550, 100, 550, 400);
  line(50, 400, 550, 400);
  line(50, 100, 100, 50);
  line(100, 50, 150, 100);
  line(150, 100, 200, 50);
  line(200, 50, 250, 100);
  line(250, 100, 300, 50);
  line(300, 50, 350, 100);
  line(350, 100, 400, 50);
  line(400, 50, 450, 100);
  line(450, 100, 500, 50);
  line(500, 50, 550, 100);
  FloodFill(60, 150, clBurlyWood);
end.

Comments

спасибо))