Тем, кто работает с Pascal ABC!Не заливается хобот у слона. В чем проблема?Program elephant_Meri_13;uses graphABC;beginsetwindowsize (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.
Проблема в том, что для закрашивания тела вы прописали вызов процедуры FloodFill (60,400, clgray), а для закрашивания хобота - нет, ни одна из строк кода его не должна закрашивать. Добавьте после первого FloodFill'а еще одну строку: FloodFill (400,300, clgray) ; (координаты подобраны на глаз, но подходят)