我用free pascal编了个程序,是用来画线的,但运行过后,什么也没有,这里是代码大神们帮帮忙
usescrt,graph;vargd,gm:integer;begingd:=detect;initgraph(gd,gm,'');bar(100,100,200,20...
uses crt,graph; var gd,gm:integer; begin gd:=detect; initgraph(gd,gm,''); bar(100,100,200,200); line(400,400,300,300); end.为什么?请给一个能画出线的代码
展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询