cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 4368|回复: 6

[fx-9860/9750系列] 赌博游戏

[复制链接]
发表于 2010-6-16 19:44:37 | 显示全部楼层 |阅读模式
计算器程序
程序名称: fx-5800p,其他也可以,游戏程序
平台: fx-9860GII fx-9860G & Slim fx-9750GII fx-9750G系列  fx-7400G Plus 其他 fx-4800系列 fx-5800系列 
系统/软件要求:
版本号: v1.0
类型: 游戏 
作者: ROUREN
大小(K): 500
更新日期: 2010-06-16
描述: 先下赌注,按exe,会提示输还是赢
已知缺陷: 弱智,脑残
源代码: 开源/部分开源
"============="

"=== GAMBLER ==="

"=     ROU-REN      ="

"============="

输出


  1. cls

  2. "left money":5000->n输出

  3. while n>0

  4. LBI A

  5. Cls

  6. "MONEY"?->A

  7. If A>N Or A≤0 Or Frac(a)≠0

  8. Then

  9. Goto A

  10. IfEnd

  11. RanInt#(1.6)->C

  12. If C=1 Or C=3 Or C=5

  13. Then

  14. Cls

  15. Locate 5,2,[YOU WIN]输出

  16. "LEFT MONEY":2A+N->N输出

  17. IfEnd

  18. If C=2 Or C=4 Or C=6

  19. Then

  20. Cls

  21. Locate 5,2,"[YOU LOSE]"输出

  22. "LEFT MONEY":N-A->N输出

  23. IfEnd

  24. WhileEND

  25. Cls

  26. "OUT OF MONEY!"

  27. "YOU ARE NC!"输出

  28. ClrMemory

  29. Stop

复制代码

评分

参与人数 1金钱 +4 收起 理由
疯不狂 + 4 谢谢分享

查看全部评分

发表于 2010-6-16 19:55:03 | 显示全部楼层
感谢分享!
发表于 2010-6-16 20:22:13 | 显示全部楼层
没必要把代码写上吧?
提示:用code函数代码更好看
发表于 2010-7-23 14:27:47 | 显示全部楼层
真的很无聊啊~
发表于 2010-8-16 21:27:21 | 显示全部楼层
还是不要打击别人吧,你也做个更好的给我们看看啊。
(我本不想回复老帖)
发表于 2010-8-17 12:41:44 | 显示全部楼层
真是好啊,好的不得了啊,好的我不想玩了
发表于 2014-12-20 17:29:44 | 显示全部楼层
什么。。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-11-25 11:13 , Processed in 0.115724 second(s), 28 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表