Question

Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize(500,500); setpenwidth(8); arc(150,300,100,0,180); arc(360,250,80,160,360); arc(370,240,60,160,360); line(443,252,428,242); setbrushcolor (clgray); circle(250,150,100); line(50,300,50,450); line(50,450,140,450); line(140,450,140,400); line(140,400,160,400); line(160,400,160,450); line(160,450,250,450); line(250,450,250,300); line(50,290,10,370); FloodFill (60,400,clgray); setpenwidth(3); circle(150,300,98); circle(250,150,98); setbrushcolor (clwhite); circle(300,180,20); setpenwidth(8); setbrushcolor(clskyblue); circle(300,175,10); end.

Answer 1

Проблема в том, что для закрашивания тела вы прописали вызов процедуры FloodFill(60,400,clgray), а для закрашивания хобота - нет, ни одна из строк кода его не должна закрашивать. Добавьте после первого FloodFill'а еще одну строку: FloodFill (400,300,clgray);  (координаты подобраны на глаз, но подходят)