大家快来帮忙啊

铆钉 · 发表于 2004-5-29 10:16:00

各位大侠请帮个忙
我要完成一个这样的程序给定一个数求比这个数小的一个能被某数正除的一个数
例如：比387又能被20整除的第一个数是380

无痕 · 发表于 2004-5-29 10:31:00

(defun xrem (n r)
   (- n (rem n r))
)
(xrem 387 20)    -> 380
(defun xrem2 (n r)
   (* r (fix(/ n r)))
)
(xrem2 387 20)    -> 380

铆钉 · 发表于 2004-5-29 10:36:00

无痕谢谢

铆钉 · 发表于 2004-5-29 10:39:00

我看不懂

无痕 · 发表于 2004-5-29 10:44:00

你先看看cad帮助里面vlisp部分： fix rem 的解释

铆钉 · 发表于 2004-5-29 10:44:00

我看懂了谢谢

wzh · 发表于 2004-5-29 10:46:00

rem返回两个数的余数，fix取整，再看不懂就是数学问题了。