PASCAL实心圆

procedure Arc (坐标X,坐标Y;Integer;开始角度,结束角度,半径; Word);
备注：画弧

procedure Bar(坐标x1,坐标y1,坐标x2,坐标y2: Integer);
备注：画一个已填充的正方形

procedure Bar3D(坐标x1,坐标y1,坐标x2,坐标y2:Integer;高:Word;有没有顶:Boolean);
备注：画立方体

procedure Circle(坐标X,坐标Y:Integer;半径:Word);
备注：画圆

procedure ClearDevice;
备注：把指示器移到(0,0),用背景颜色去清屏，准备输出

procedure ClearViewPort;
备注：把填充颜色变为背景色，把指示器移到(0,0)

procedure CloseGraph
备注：关掉图象(garph)模式

procedure DetectGraph(var 驱动器,模式:Integer);
备注：检查硬件和找出用哪个驱动器和模式

procedure DrawPoly(点数: Word; var 坐标:PolyPoints);
备注：画多边形

procedure Ellipse(坐标X,坐标Y:Integer;开始角度,结束角度:Word;半径1,半径2:Word);
备注：画椭圆

procedure FillEllipse(坐标X,坐标Y:Integer;半径1,半径2: Word);
备注：画一个已填充的椭圆

procedure FillPoly(点数: Word; var 坐标:PolyPoints);
备注：画一个已填充的多边形

procedure FloodFill(坐标X,坐标Y:Integer;边界颜色: Word);
备注：填充一个边界的区域

procedure GetArcCoords(va