Question

По приведенному ниже набору векторных команд определить, что изображено на рисунке (зарисовать). Цвет рисования Голубой, Прямоугольник 12, 2, 18, 8 . Прямоугольник 10, 1, 20, 21 .Прямоугольник 20, 6, 50, 21 . Цвет рисования Желтый . Цвет закраски Зеленый .Окружность 20, 24, 3 . Окружность 40, 24, 3 . Закрасить 20, 24, Желтый .Закрасить 40, 24, Желтый . Цвет закраски Голубой . Закрасить 30, 10, Голубой .Закрасить 15, 15, Голубой . Цвет закраски Розовый .Закрасить 16, 6, Голубой .

Answer 1

Uses graphABC;
begin;
setpencolor(clBlue);
rectangle(12, 2, 18, 8);
rectangle(10, 1, 20, 21);
rectangle(20, 6, 50, 21);
setpencolor(clyellow);
circle(20, 24, 3);
floodfill(20, 24, clyellow);
circle(40, 24, 3);
floodfill(40, 24, clyellow);
floodfill(30, 10, clblue);
floodfill(15, 15, clblue);
floodfill(16, 6, clblue);
end.