2011년 7월 2일 토요일

입력된 두수사이의 수들의 합을 구하는 거



(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)
)

댓글 없음 :

댓글 쓰기