如何用Pascal编一个画直线的程序
2个回答
展开全部
运行这个程序前,必须先做几件事:
1:下载crt补丁
2:把graph单元文件放在与源程序同一层目录下
3:把tp7中bgi文件夹下所有文件放在与源程序同一层目录下
uses graph,crt;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
line(x坐标1,y坐标1,x坐标2,y坐标2);
readkey;
end.
1:下载crt补丁
2:把graph单元文件放在与源程序同一层目录下
3:把tp7中bgi文件夹下所有文件放在与源程序同一层目录下
uses graph,crt;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
line(x坐标1,y坐标1,x坐标2,y坐标2);
readkey;
end.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
VSH艾羽
2024-10-27 广告
CAD（计算机辅助设计）技术在上海艾羽信息科技有限公司的应用极为广泛。我们利用先进的CAD软件工具，精确高效地绘制产品设计图纸，从二维草图到三维建模，无所不能。这一技术不仅优化了设计流程，缩短了产品从概念到实物的周期，还通过精准的数据分析提...
点击进入详情页
本回答由VSH艾羽提供
展开全部
begin
write('------------------------------');
end.
write('------------------------------');
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
