Нарисовать закрашенный круг - Turbo Pascal (33596)

Формулировка задачи:

Как нарисовать закрашенный круг? Получается сделать белый, а если вписываю в процедуру floodfill другой цвет, то весь экран становится белым.

Код к задаче: «Нарисовать закрашенный круг - Turbo Pascal (33596)»

textual
uses graph,crt;
var i,g,x,y,r,d:integer;
begin
clrscr;
g:=0;
initgraph(g,d,'');
x:=20;
y:=200;
r:=40;
setcolor(15);
circle(200,200,40);
floodfill(200,200,15);
readln;
end.

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ