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.