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

Question

Информатика

Вонифат

19 ноября, 22:07

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

+1

Ответы (1)

Знаете ответ?

Фридрих · 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.