Задача №5
Построитьи закрасить круг.
uses graph,crt-
vargd,gm,x,y,r:integer-
begin
initgraph(gd,gm,’c:\-bp\-bgi’)-
outtextxy(40,0,’Введите координаты центраокружности’)-
readln(x)-
readln(y)-
outtextxy(40,20,’Введите радиус окружности’)-
readln(r)-
CIRCLE (x, y, r)-
floodfill(x,y, 15)-
repeat-
until keypressed-
closegraph-
end.
|