Тем, кто работает с 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.

Question

Информатика

Инуся

29 августа, 03:44

Тем, кто работает с 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.

+5

Ответы (1)

Знаете ответ?

Арсеныч · Answer 1

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