6个回答
展开全部
不能,
只能用uses graph;
画线:line(x1,y1,x2,y2);
画点:putpixel(x,y,color);
ClearDevice 清屏
PutPixel(X, Y: Integer; Pixel: Word); 描点。x,y是坐标,piexl是颜色,颜色都可以用整形代号 0-15
Line(x1, y1, x2, y2: Integer); 画 (x1,y1)到(x2,y2)的直线
Circle(X,Y: Integer; Radius: Word); 画圆,圆心 (x,y) ,半径 Radius
Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius:Word);
画椭圆,中心(x,y), 起始角度StAngle, 终止角EndAngle,长短轴半径XRadius, YRadius
Sector(x, y: Integer; StAngle,EndAngle, XRadius, YRadius: Word); 扇形,类Ellipse
SetFillStyle(Pattern: Word; Color: Word);设填充模式,及填充的颜色。
SetLineStyle(LineStyle: Word; Pattern: Word; Thickness: Word); 设定线条型的样子,粗细
OutTextXY(X,Y: Integer; TextString: string); 在(x,y)输出文本。 (作图下不要用write)
SetBkColor(c),SetColor(c) 设定背景和前景颜色。
RestoreCrtMode; 切换到我们常用的文本模式。
SetGraphMode(GetGraphMode); 切换到作图方式, 不能在closegraph关闭图形之后用。
只能用uses graph;
画线:line(x1,y1,x2,y2);
画点:putpixel(x,y,color);
ClearDevice 清屏
PutPixel(X, Y: Integer; Pixel: Word); 描点。x,y是坐标,piexl是颜色,颜色都可以用整形代号 0-15
Line(x1, y1, x2, y2: Integer); 画 (x1,y1)到(x2,y2)的直线
Circle(X,Y: Integer; Radius: Word); 画圆,圆心 (x,y) ,半径 Radius
Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius:Word);
画椭圆,中心(x,y), 起始角度StAngle, 终止角EndAngle,长短轴半径XRadius, YRadius
Sector(x, y: Integer; StAngle,EndAngle, XRadius, YRadius: Word); 扇形,类Ellipse
SetFillStyle(Pattern: Word; Color: Word);设填充模式,及填充的颜色。
SetLineStyle(LineStyle: Word; Pattern: Word; Thickness: Word); 设定线条型的样子,粗细
OutTextXY(X,Y: Integer; TextString: string); 在(x,y)输出文本。 (作图下不要用write)
SetBkColor(c),SetColor(c) 设定背景和前景颜色。
RestoreCrtMode; 切换到我们常用的文本模式。
SetGraphMode(GetGraphMode); 切换到作图方式, 不能在closegraph关闭图形之后用。
展开全部
好像还有use crt也可以
program kjuu;
use crt;
......
不过用pascal做图形好像也太不合适了吧,我以前学了2年pascal,从来就没用过那些东西。
想用pascal插入图片的话,用Delphi应该可以
program kjuu;
use crt;
......
不过用pascal做图形好像也太不合适了吧,我以前学了2年pascal,从来就没用过那些东西。
想用pascal插入图片的话,用Delphi应该可以
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼上是错的 use crt 是清屏
pascal不能插入图片
pascal不能插入图片
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要用库。。。。。具体自己查
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不能
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询