回 帖 发 新 帖 刷新版面

主题:回帖者一帖30,二帖50!!!!!

怎么样的语句执行清屏指令????
回帖者一帖30,二帖50!!!!![em10][em10][em19][em18]

[img]http://sports.sohu.com/upload/wallpapers/shaq_yao1024x768.jpg[/img]

回复列表 (共16个回复)

沙发

writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;

板凳

program clr;
uses crt;
begin
  clrscr;
  readln;
end.

3 楼

uses crt;
begin
writeln('Press any key to clean the screen...');
readkey;
clrscr;
readln;
end.

4 楼

{$M 8192,0,0}
uses Dos;
begin
write('Press <Enter> to clean the screen');
readln;
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C CLS');
SwapVectors;
readln;
end.

5 楼

program clr;
uses crt;
begin
  clrscr;
end.

6 楼

program clr;
uses crt;
begin
  clrscr;

end.

7 楼

File-DOS shall-cls-exit
从dos里清屏,好用的很.

8 楼

use crt
.....
....
clrscr

9 楼

uses crt;
begin
  clrscr;

10 楼

writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;

我来回复

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