IP属地:浙江
2楼2020-04-11 13:53
2楼2020-04-11 13:53收起回复
pascal游戏吧 关注：1,980贴子：4,974
- 4回复贴，共1页
清屏用这个:
uses dos;
procedure clrscrs;
var f:text;
begin
assign(f,'abc.bat');
rewrite(f);
writeln(f,'cls');
close(f);
exec('abc.bat','');
end;
begin
writeln('11111111111111');
clrscrs;
writeln('121212121212');
end.
uses dos;
procedure clrscrs;
var f:text;
begin
assign(f,'abc.bat');
rewrite(f);
writeln(f,'cls');
close(f);
exec('abc.bat','');
end;
begin
writeln('11111111111111');
clrscrs;
writeln('121212121212');
end.
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1HLE vs TES2253330
- 2315打假打到考研圈1931603
- 3抗抗分析TES连跪内幕1359428
- 4KC拒绝被翻盘战胜CFO进决赛1228419
- 5李嘉诚卖港口给美国被官方点名1137396
- 6具俊晔抱大S骨灰痛哭971300
- 7LPL耻辱外战哪个输得最惨851496
- 8湖人会跌到附加赛吗758839
- 9龙飞船出发准备接回滞留宇航员674388
- 10LPL第二赛段你看好哪队492870
