首页 > 其他 > 详细

Pascal小游戏 文件的产生

时间:2014-07-14 10:15:03      阅读:332      评论:0      收藏:0      [点我收藏+]

一个整人的Pascal小程序

运行之后硬盘里面会有一大堆垃圾,当然更好的方法当然不是这样做!

var a,b,c,d:char;
begin
for a:=‘0‘ to ‘9‘ do
for b:=‘0‘ to ‘9‘ do
for c:=‘0‘ to ‘9‘ do
for d:=‘0‘ to ‘9‘ do
begin
assign(output,‘C:\‘+a+b+c+d+‘.txt‘);rewrite(output);
write(1);
close(output);
assign(output,‘D:\‘+a+b+c+d+‘.txt‘);rewrite(output);
write(1);
close(output);
assign(output,‘E:\‘+a+b+c+d+‘.txt‘);rewrite(output);
write(1);
close(output);
assign(output,‘F:\‘+a+b+c+d+‘.txt‘);rewrite(output);
write(1);
close(output);
end;
end.

Pascal小游戏 文件的产生,布布扣,bubuko.com

Pascal小游戏 文件的产生

原文:http://www.cnblogs.com/Chaobs/p/3837514.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!