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