Залить фигуру цветом

[Poma][a]

Или точно на границу попали

Неа.. Тогда бы вся граница была не черная, а желтая..

[Serge_Bliznykov]

так устроит?

program labrab4; {Калеганов А.В. группа ПБТ-32}
uses crt,graph;

const ColorBorder = Red;
var
  gd,gm:integer;
begin
 clrscr;
 gd:=detect;
 initgraph (gd,gm,'');
 if graphresult <> 0 then
begin
 write('ошибка графики:',grapherrormsg (graphresult));
 halt;
end;
 setbkcolor(15);
 setlinestyle(0,0,3);
 setcolor(ColorBorder);
  fillellipse(270,180,90,90);
  setcolor(ColorBorder);

  line(250,280,290,280);
  line(250,280,270,345);
  line(290,280,270,345);

  line(170,160,170,200);
  line(170,160,105,180);
  line(170,200,105,180);

  line(250,80,290,80);
  line(250,80,270,15);
  line(290,80,270,15);

  line(370,160,370,200);
  line(370,160,435,180);
  line(370,200,435,180);

    line(330,95,360,125);
    line(330,95,400,60);
    line(400,60,360,125);

    line(210,95,180,125);
    line(210,95,140,60);
    line(140,60,180,125);

     line(360,235,330,265);
     line(360,235,400,300);
     line(400,300,330,265);

     line(180,235,210,265);
     line(180,235,140,300);
     line(140,300,210,265);

     setfillstyle(solidfill,yellow);
     floodfill(190,250,ColorBorder);

{
     circle(365,260,3);
     circle(265,290,3);
     circle(160,180,3);
     circle(265,65,3);
     circle(380,170,3);
     circle(350,100,3);
     circle(180,100,3);
}
     floodfill(365,260,ColorBorder);
     floodfill(265,290,ColorBorder);
     floodfill(160,180,ColorBorder);
     floodfill(265,65,ColorBorder);
     floodfill(380,170,ColorBorder);
     floodfill(350,100,ColorBorder);
     floodfill(180,100,ColorBorder);

    {сам шарик}
     floodfill(270,180,ColorBorder);

 readkey;
{ readln;}
 closegraph;
end.

p.s. там, где закомментированы Circle - это я центры для заливки подбирал вручную

[Alexmur07]

не закрасилось, в какой начало после какой строчки поставить ?

[Serge_Bliznykov]

Сообщение от Alexmur07

не закрасилось, в какой начало после какой строчки поставить ?

Что "не закрасилось" ???!

Я выложил ЦЕЛИКОМ программу.
Я у себя её проверил (TurboPascal под DOSBox).
Она отработала нормально.

Что у Вас не закрасилось? приведите, пожалуйста, скриншот (как это Вы прекрасно делали ранее).