Ваши друзья не знают про этот решебник.
Урок 21. Задание 2.
|
Program usegraph2; uses graphABC; begin SetWindowSize(600,500); SetPenColor(clGray); Circle(300,100,30); Circle(300,165,35); Circle(300,250,50); Circle(255,150,15); Circle(345,150,15); SetBrushColor(clBlack); circle(290,90,5); circle(310,90,5); circle(300,170,5); circle(300,150,5); circle(300,225,5); circle(300,250,5); circle(300,275,5); line(300,100,340,105); line(300,110,340,105); line(300,100,300,110); SetBrushColor(clRed); FloodFill(303,105,clRed); line(270,70,330,70); line(280,50,320,50); line(280,50,270,70); line(330,70,320,50); FloodFill(300,60,clRed); SetPenWidth(4); SetPenColor(clBlack); line(360,60,360,300); line(360,100,340,60); line(360,100,380,60); End. |