Ваши друзья не знают про этот решебник.
Урок 22. Задание 2.
|
Program elka; uses graphABC; begin SetWindowSize(600,400); SetBrushColor(clYellow); Circle(500,100,30); SetBrushColor(clGreen); line(300,50,250,100); line(300,50,350,100); line(350,100,250,100); line(300,100,230,200); line(300,100,370,200); line(230,200,370,200); line(300,200,400,300); line(300,200,200,300); line(400,300,200,300); rectangle(290,300,310,330); MoveTo(0,300); Lineto(100,350); lineTo(200,330); LineTo(400,330); lineTo(600,370); floodfill(200,380,clGreen); floodfill(300,80,clGreen); floodfill(300,110,clGreen); floodfill(300,210,clGreen); End. |