Ваши друзья не знают про этот решебник.
Урок 21. Задание 1.
|
Program dz; uses graphABC; var r:integer; begin SetWindowSize(600,500); readln(r); SetPenColor(clGreen); Circle(300,200,r); End. 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. |