Ваши друзья не знают про этот решебник.
Урок 20. Задание 4.
|
Program usegraph3; uses graphABC,crt; begin SetWindowSize(600,500); SetPenColor(clRed); SetBrushColor(clPurple); SetPenWidth(4); SetBrushStyle(bsVertical); line(50,100,150,100); line(150,100,100,200); line(100,200,50,100); Floodfill(100,120,clRed); TextOut(50,70,'Треугольник'); SetPenColor(clBlue); SetBrushStyle(bsCross); Circle(250,150,50); TextOut(210,70,'Окружность'); SetPenColor(clGreen); SetBrushStyle(bsBDiagonal); Rectangle(350,100,500,200); TextOut(380,70,'Прямоугольник'); End. |