yang686526

如何求出十位以上的数?
www.dimcax.com
如何求出十位以上的数?如何求出十位以上的数?比如9.32 = 0;17.2 = 10;21.3 = 20;115 = 110 ...等等
d
command: (* (fix (/ 115 10)) 10)
110
command: (* (fix (/ 21.3 10)) 10)
20
command: (* (fix (/ 17.2 10)) 10)
10
command: (* (fix (/ 9.32 10)) 10)
0
d
学习了~
d
二楼的解释思路。先进行除10处理 然后再取整 乘10处理。同样也可以进行取5处理大于3取5 小于3取0
（defun c:qu5(x)
(setq y(/ x 5)
x(rem x 5)
)
(if (> 3 x)(setq y (+ 1 y)))
(setq y (fix y))
(setq x (* 5 y))
）
以后要求对某数x进行处理时只要（qu5 x）就行了。
d