ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ, ПОЖАЛУЙСТА Нарисуйте 10 окружностей разного цвета, пересекающихся в 2-х точках. Цвет областей пересечения должен отличаться от цветов окружностей, которые эту область образуют. ПРИМЕРНО КАК НА Р...
ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ, ПОЖАЛУЙСТА
Нарисуйте 10 окружностей разного цвета, пересекающихся в 2-х точках. Цвет областей пересечения должен отличаться от цветов окружностей, которые эту область образуют.
ПРИМЕРНО КАК НА РИСУНКЕ
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1128
uses
GraphABC;
var
i:integer;
begin
for i:=1 to 10 do begin
Pen.Color:=RGB(random(255),random(255),random(255));
Brush.Style:=bsClear;
Brush.Color:=Pen.Color;
Circle(25+i*50,100,40);
if i>1 then begin
Brush.Style:=bsSolid;
FloodFill(50*i,100,RGB(random(255),random(255),random(255)))
end;
FloodFill(25+i*50,100,Pen.Color)
end
end.
Не нашли ответ?
Похожие вопросы