Помогите пожалуйста решить задачу, очень прошу
Мы раньше писали её на Паскале, на С++ я ещё не работал...
Заранее спасибо!
uses graphABC;
procedure Fig(x1,y1,x2,y2,x3,y3,r,c,k:integer);
begin
SetPenColor(c);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
floodfill((x2+x3)div 2,y2-5,c);
if k=3 then {красный нужно в трех точках заливать}
begin
floodfill((x2+5),y2-5,c);
floodfill((x3-5),y2-5,c);
end ;
circle(x1,y1,r);
floodfill(x1,y1,c);
end ;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight-50;
Fig(x-180,y-200,x-100,y,x,y,10,clBlue,1); {синий}
Fig(x+180,y-200,x,y,x+100,y,10,clLime,2); {зеленый}
Fig(x,y-230,x-50,y,x+50,y,10,clRed,3); {красный}
end .