大家快来帮忙啊

铆钉

各位大侠请帮个忙


我要完成一个这样的程序给定一个数求比这个数小的一个能被某数正除的一个数


例如：比387又能被20整除的第一个数是380

无痕

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

铆钉

无痕谢谢

铆钉

我看不懂

无痕

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

铆钉

我看懂了谢谢

wzh

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