(这条文章已经被阅读了 132 次) 时间：2000-08-22 14:36:08 来源：苍白女孩 (苍白女孩) 原创-IT
算法1.
for i := 1 to 1000000 do
begin
存1元
end;
showmessage(‘百万富翁!’);
算法2:
借 1000000
showmessage(‘现在是百万富翁!?’);
算法3:
repeat
找百万富婆(80岁以上)
until 找到;
嫁给她;
repeat
忍受 until
继承遗产;
showmessage(百万富翁@#$~*&?’);
算法4:
while i < 1000000 do
begin
i := i + 打工赚钱
repeat
i := i + 炒股
if i >= 10000000 then
break
until i <= 0;
end;
showmessage('终于是百万富翁!');
算法5:
注册一家公司;
repeat
惨淡经营
until 被Microsoft收购 or 上市;
showmessage('我不是百万富翁,我是2?3?4?5?,算不清了,都是股票');
算法6:
.....
howto about millionaire - 林兴陆 - 2000-08-22 19:09:50
bug太多了,建议改用c写 :-)
Re:howto about millionaire - luoqian - 2000-08-22 20:01:19
创意不错，可惜太没有可读性。