Скачиваний:
288
Добавлен:
04.03.2014
Размер:
462 б
Скачать
program elf;
uses graph, Crt;
var gd,gm,d,f:integer;
x, i :integer;
h, y:real;
procedure z(x,y,cp,cg:integer);
begin
setfillstyle(1,cp);
floodfill(x,y,cg);
end;
begin
gd:=detect;
initgraph(gd,gm,'d:\bp7\bgi');
z(50,50,6,6);
setcolor(0);
setlinestyle(0, 0, 3);
ellipse(100, 280, 0, 360, 10, 15);
ellipse(120, 240, 190, 250, 20, 30);
ellipse(80, 240, 290, 350, 20, 30);
ellipse(100, 280, 150, 210, 20, 60);
readln

end.
Соседние файлы в папке Alex