首先要用USES 调用GRAPH单元,然后在BEGIN后加gd:=detect;
initgraph(gd,gm,' ');这两句话.接着就可画图了.
画图的标准函数:
·Arc(x,y,as,ae,r)   画弧,(X,Y)圆心坐标,As为开始角,Ae为结束角,取角度制,R半径
·Bar(x1,y1,x2,y2)  条形,即填充矩形,(X1,Y1)矩形左上角坐标,(X2,Y2)右下角坐标
·Bar3D(x1,y1,x2,y2,Depth,Top)  三维条形，Depth三维深度值，Top顶部画否，取Topon画顶部，Topoff不画顶部
·Circle(x,y,r)        画圆，(x,y)圆心，r半径
·Ellipse(x,y,as,ae,RX,RY)  画椭圆，RX为横半轴，RY为纵半轴
·Fillellipse(x,y,RX,RY)  填充椭圆
·Floodfill(x,y,c1)      填充颜色，(x,y)为填充起点，c1为图形边界色
·Line(x1,y1,x2,y2)   从(x1,y1)到(x2,y2)画直线
·Linerel(Dx,Dy)    用相对坐标画线，Dx,Dy为坐标增量
·Lineto(x,y)       从前一点到(x,y)画线
·Moverel(Dx,Dy)    相对移动画线点，Dx,Dy为坐标增量
·Moveto(x,y)      将画线点移动到(X,Y)处，用在Lineto句的前面
·Pieslice(x,y,as,ae,r)    圆饼图，参数意义同Arc
·Putpixel(x,y,c)          在(x,y)点用色号c画点
·Rectangle(x1,y1,x2,y2)   画矩形,(x1,y1)和(x2,y2)分别为左上和右下角坐标
·Pieslice(x,y,as,ae,r)  画圆扇形，参数意义同弧
·Sector(x,y,as,ae,RX,RY)画椭圆扇形，参数意义同椭圆


表忘了加分~~~

能不能把开头说详细点

uses graph;
var
  gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,' ');
画图部分；
closegraph;
end.

谢谢