(defun c:asdf()
(setq n1(getint"\n첫번째 정수를 입력해주세요"))
(setq n2(getint"\n두번째 정수를 입력해주세요"))
(setq sum 0)
(if(< n1 n2)
(setq start n1 end n2)
(setq start n2 end n1)
)
(while (< start (- end 1))
(setq sum (+ sum start))
(setq start(1+ start))
(princ start)
(princ "+")
)
(princ "\t=")
(princ sum)
(princ)
)
댓글 없음 :
댓글 쓰기