Pascal小游戏 文件的产生

一个整人的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.

posted @   Chaobs  阅读(257)  评论(0编辑  收藏  举报
编辑推荐:
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
阅读排行:
· 周边上新:园子的第一款马克杯温暖上架
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?
· 使用C#创建一个MCP客户端
点击右上角即可分享
微信分享提示