Ваши друзья не знают про этот решебник.
Урок 20. Задание 6.
|
Program usegraph6; uses graphABC; begin SetWindowSize(600,500); SetPenColor(clNavy); line(0,200,100,300); line(100,300,500,300); line(500,300,600,200); line(600,200,0,200); line(100,200,200,150); floodfill(250,250,clNavy); SetBrushColor(clGray); rectangle(200,100,350,200); fillrect(200,100,350,200); line(350,200,350,50); SetBrushColor(clRed); FillRect(350,50,400,70); SetBrushColor(clGreen); FillRect(350,70,400,80); End. |