主题：请教高手们，pascal中的清屏命令是什么，怎么用
波利克思
[专家分：0] 发布于 2007-11-21 15:59:00
当pascal的屏幕输出结果太多都满了的话，怎么用清屏命令
回复列表 （共12个回复）
沙发
angwuy [专家分：2280] 发布于 2007-11-21 17:59:00
for i:=1 to 32 do writeln;
如果在crt单元模式下用clrscr;清屏
如果在graph单元模式下用cleardevicel;清屏
板凳
迷路的天使 [专家分：1340] 发布于 2007-11-21 18:40:00
[quote]for i:=1 to 32 do writeln;
如果在crt单元模式下用clrscr;清屏
如果在graph单元模式下用cleardevicel;清屏[/quote]
[em1][em1][em1][em1][em6][em6][em9][em9]
3 楼
迷路的天使 [专家分：1340] 发布于 2007-11-21 18:49:00
[quote][quote]for i:=1 to 32 do writeln;
如果在crt单元模式下用clrscr;清屏
如果在graph单元模式下用cleardevicel;清屏[/quote]
[em1][em1][em1][em1][em6][em6][em9][em9][/quote]
4 楼
波利克思 [专家分：0] 发布于 2007-11-22 14:40:00
请问大侠以下是我写的求n!的程序，屏幕输出信息太多，请问您教我用的代码加到下面程序的那个位置？跪求！！！！
program abc;
var x,a,b,c,d,i,t:integer;
begin
x:=0;
for a:=1 to 7 do
for b:=a+7 to 14 do
for c:=b+7 to 21 do
for d:=c+7 to 28 do
begin
for i:=1 to a do write(i:3);
for i:=a+7 to b do write(i:3);
for i:=b+7 to c do write(i:3);
for i:=c+7 to d do write(i:3);
for i:=d+7 to 35 do writeln(i:3);
x:=x+1;
writeln(x);
end;
end.
5 楼
angwuy [专家分：2280] 发布于 2007-11-22 17:33:00
建议你用文件输出
6 楼
迷路的天使 [专家分：1340] 发布于 2007-11-22 17:56:00
[quote]建议你用文件输出[/quote]
7 楼
angwuy [专家分：2280] 发布于 2007-11-22 18:19:00
6L你无聊呀?
先是把n年前的东西全翻出来,
然后又不断引用别人的回帖
8 楼
在蓝天fi5 [专家分：80] 发布于 2007-11-22 20:04:00
[quote]6L你无聊呀?
先是把n年前的东西全翻出来,
然后又不断引用别人的回帖[/quote]
我要对迷迷说:我十分赞同7楼的话
[fly][size=6]李梦云,不要太猖狂鸟挖[/size][/fly]
9 楼
迷路的天使 [专家分：1340] 发布于 2007-11-24 07:19:00
对,我很无聊,而且我不是李梦云!
10 楼
波利克思 [专家分：0] 发布于 2007-11-30 20:25:00
谢谢大家这么帮我，我回努力的
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 请教高手们，pascal中的清屏命令是什么，怎么用