Question

Нарисовать в паскале дом и дерево

Answer 1

Uses  GraphABC;
begin  writeln(WindowWidth, '   ', windowheight);  line(0, 160 * 2, 640, 160 * 2);  line(340, 320, 340, 170);  line(490, 320, 490, 170);  line(305, 170, 525, 170);  line(305, 170, 415, 170);  line(415, 100, 525, 170);  line(415, 100, 305, 170);  line(170, 320, 170, 220);   line(150, 320, 150, 220);  line(170, 220, 150, 220);  Ellipse(100, 230, 220, 70);  Rectangle(375, 210, 455, 290);  line(415, 210, 415, 290);  line(375, 250, 455, 250);   circle(600, 40, 30);  line(540, 40, 500, 40);  line(600, 100, 600, 140);  line(555, 80, 520, 110); end.