uses graph;
const x1=250; y1=350;
R=10;
begin
init;{процедура инициализации граф.режима}
circle(x1,y1,R);
Arc(x1,y1,90,360,3*R);
Arc(x1+6*R,y1,0,180,3*R);
circle(x1+12*R,y1,R);
Arc(x1+12*R,y1,180,90,3*R);
circle(x1+12*R,y1-12*R,R);
Arc(x1+12*R,y1-12*R,270,180,3*R);
Arc(x1+12*R,y1-6*R,90,270,3*R);
circle(x1,y1-12*R,R);
Arc(x1,y1-12*R,0,270,3*R);
Arc(x1+6*R,y1-12*R,180,360,3*R);
Arc(x1,y1-6*R,0,90,3*R);
Arc(x1,y1-6*R,270,360,3*R);
circle(x1+6*R,y1-6*R,10);
readln;
end.
Заполнить фигуру цветом |