您所在位置：主题：求助！！！pascal图形问题！！
sixhomeland
[专家分：0] 发布于 2007-08-26 22:06:00
我将EGAVGA.BGI和Graph.tpu拷贝到BIN目录后，运行
Program ex1;
Uses graph;
Var Gm,Gd,R :integer;
Begin
Gd:=0;
Write('Please enter the radius:');readln(R);
Initgraph(Gm,Gd,' ');
Setcolor(Green);
Circle(320,240,R);
Readln;
Closegraph;
End.
然后屏幕闪了几下，然后退出了。怎么回事？？？
还有crt补丁如何安装？？
请教了！
补充：我用的是TP7.0
Program ex1;
Uses graph;
Var Gm,Gd,R :integer;
Begin
Gd:=0;
Write('Please enter the radius:');readln(R);
Initgraph(Gm,Gd,' ');
Setcolor(Green);
Circle(320,240,R);
Readln;
Closegraph;
End.
然后屏幕闪了几下，然后退出了。怎么回事？？？
还有crt补丁如何安装？？
请教了！
补充：我用的是TP7.0
