AutoCAD LISP自然数的和,根据输入的数值,求自然数的和,代码如下。
(defun c:test()
(setq intputin (getint "请输入数值:"))
(setq snum 1)
(setq sum 0)
(repeat intputin
(setq sum (+ snum sum))
(setq snum (+ 1 snum))
)
(princ "1+2+3+……+")
(princ intputin)
(princ "=")
(princ sum)
)
代码完。
while循环自然数的和,代码如下。
(defun c:test()
(setq snum 1)
(setq sum 0)
(while (<= snum 100)
(setq sum (+ snum sum))
(setq snum (+ 1 snum))
)
(princ "连加和=")
(princ sum)
)
代码完。