主题：回帖者一帖30,二帖50!!!!!
mo19880630
[专家分：420] 发布于 2005-11-07 12:18:00
怎么样的语句执行清屏指令????
回帖者一帖30,二帖50!!!!![em10][em10][em19][em18]
[img]http://sports.sohu.com/upload/wallpapers/shaq_yao1024x768.jpg[/img]
回复列表 （共16个回复）
11 楼
天空飞雪 [专家分：960] 发布于 2005-11-13 20:46:00
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
writeln；
12 楼
小乖乖 [专家分：290] 发布于 2005-11-14 17:42:00
program a;
begin
uses crt;
clrscr;
end.
13 楼
tztyx [专家分：120] 发布于 2005-11-16 19:23:00
program clr;
uses crt;
begin
clrscr;
end
14 楼
mmsxzy [专家分：440] 发布于 2005-11-16 23:11:00
program clr;
uses crt;
begin
clrscr;
end.
15 楼
HarryPotter [专家分：20] 发布于 2005-11-17 22:08:00
好像是很简单的问题呦！！！
你可以执行“clrscr”命令！！！[em12][em13][em2]
16 楼
小田甜 [专家分：3910] 发布于 2005-11-18 18:46:00
uses graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
closegraph;
end.
我来回复
您所在位置：