pascal作图 — 编程爱好者社区

主题：pascal作图

明月清风 [专家分：0] 发布于 2009-09-07 16:03:00

终于把PASCAL前面那些东东看看，想用PASCAL学做点小游戏，但一起步就遇到了一个大难题
要做游戏，那么画图肯定是必需的，我把书上一个例题输入到编译器了，运行就遇到了两个问题
1.error 200:division by zero 这个问题我已经解决了，到网上打个补丁，好像是个这东西;t7tplfix
2.error 15 :file not found(graph.tpu), 这个问题没解决，我在UNITS目录下找到graph.tpu然后把它复制到BIN目录下，后来编译通过了，运行的时候又出现了error 200那样的错误提示

我现在就想编个很简单的程序，不如划一条直线
我把程序写出来，各位大侠帮我看一下是否正确
program lines;
uses crt,graph;
procedure line(a,b,c,d:integer);
begin
line(10,20,30,35);
end.

本帖地址： http://bbs.pfan.cn/post/308396.html

回复列表（共6个回复）

沙发

小田甜 [专家分：3910] 发布于 2009-09-07 21:37:00

应该先初始化一下
  uses Graph;
  procedure GraphIni;
    var Gd, Gm: Integer;
  begin
    Gd := Detect;
   InitGraph(Gd, Gm, ' ');
   if GraphResult <> grOk then
     Halt(1);
  end;
begin
  grahini;
  line(0,0,getmaxx,getmaxy);
end.

另外，line在graph里本来就有，你那个程序时死循环

板凳

明月清风 [专家分：0] 发布于 2009-09-08 14:45:00

这个程序我运行了，没问题，但运行结果什么都没有
还有三条语句我没搞懂:
1.gd:=detect;   detect 是个什么东西？
2.if GraphResult <> grOk then   GraphResult , grOk 是什么？
3.line(0,0,getmaxx,getmaxy)    这里getmaxx,getmaxy的值是不是自己赋个值就可以了？
期待大侠的回复

3 楼

小田甜 [专家分：3910] 发布于 2009-09-08 22:52:00

哦，对不起，我忘记了一句readln（加在end前）。
至于上面两个是什么意思——我也不知道，反正能用就完了……
GetMaxX、GetMaxY是屏幕右下角的坐标值，随便改。

4 楼

明月清风 [专家分：0] 发布于 2009-09-09 12:27:00

大侠，我把程序运行了下，还是什么都没有
你再给我个程序，比如在屏幕里画个圆，算做我学习的例题
（程序运行了，要让我看到那个圆哦！！）[em4][em4][em5]
谢谢了~~~

5 楼

明月清风 [专家分：0] 发布于 2009-09-09 12:48:00

小田甜大侠，我再<如何根据数据画坐标图>这个帖子里看了你回的一个程序
我把它考到我的电脑运行，还是什么没有，
是不是跟我安装的这个TRUBO PASCAL有关啊或者跟我的电脑的显示模式有关啊？？？

6 楼

@左思@ [专家分：110] 发布于 2009-10-11 11:34:00

你可以看看我的教程
http://bbs.pfan.cn/post-291187.html
还有，你的程序无法运行很可能有以下两个原因：
1.用crt单元没打补丁，补丁在我的教程里（t7tplfix.zip）；
2.没指定graph要的文件（就是InitGraph(Gd, Gm, ' ');的' '里要指定BGI路径），BGI文件夹一般在TP根目录下，你把它粘到游戏的根目录下，在' '里填上BGI就可以了。
更多问题请看教程。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：pascal作图

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：pascal作图

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）