ludaweb 发表于 2021-7-10 22:51:55

无聊，写了个猜数字的游戏，上班闲的时候可以摸鱼。

(defun c:tt( / randomnum i num Random)
(defun Random (x y / RandomObj rtn)
    (setq RandomObj (vlax-create-object "System.Random"))
    (setq rtn (fix (+ x (* (vlax-invoke RandomObj 'nextdouble) (- y x)))))
    (vlax-release-object RandomObj)
    rtn
)
(setq randomnum (Random 0 100))
(setq i 0)
(princ "\n猜数字游戏开始0-99!")
(while
    (setq i (1+ i))
    (setq num (getint "\n猜数字游戏，请输入你的答案:"))
    (if (= num randomnum)
      (progn
      (princ (strcat "\n太厉害了，你只猜了" (itoa i) "次就猜对了!"))
      (setq randomnum (Random 0 100))
      (setq i 0)
      (princ "\n猜数字游戏开始0-99!")
      )
      (progn
      (if (> num randomnum)
          (princ "\n太大了!")
          (princ "\n太小了!")
      )
      )
    )
)
)

ynhh 发表于 2021-7-12 13:32:07

建议大师来个
双色球
之类的奖票程序
说不定还能中个大奖

再见熊猫衣服 发表于 2022-4-9 09:11:20

本帖最后由 再见熊猫衣服 于 2022-4-9 13:59 编辑

楼主你好，我有比较重要的事情，想跟你及时沟通

jkop 发表于 2024-4-25 15:33:15

简单，上班模鱼用！没事猜数字，脑子放松！

tigcat 发表于 2021-7-11 01:51:36

大大，太有意思了，准备好，就看啥时摸鱼

mokson 发表于 2021-7-11 08:04:20

先得有个公司上班才说吧。

上善若水！@# 发表于 2021-7-12 09:21:50

有什么规律可循么

Bao_lai 发表于 2021-7-12 12:28:52

二分法应该比较快

tigcat 发表于 2021-7-12 12:37:42

我玩了一把，用了六次

甜兮兮 发表于 2021-7-14 21:17:30

谢谢分享支持下

juliana207 发表于 2021-7-16 10:43:31

哈哈, 上班从来没闲过

竹天 发表于 2021-8-27 09:43:30

我愿将其与推箱子并称两大快乐源泉
页: [1] 2
查看完整版本: 无聊，写了个猜数字的游戏，上班闲的时候可以摸鱼。