[求助]如何将一个表中的实数求出最大值是第几个输入的

cecile

不断向用户要实数，并用表储存，直到回车结束，求最大值是第几个输入的，谢谢

nzl1116

(defun fun (/ n fltnum asList sepList maxnum)

(setq n 0

      fltnum T

)

(while fltnum

(setq n (1+ n))

(setq fltnum (getreal "\n输入实数："))

(setq asList (append asList (cons fltnum n)))

(setq sepList (append sepList (list fltnum)))

)

(setq maxnum (apply 'max sepList))

(cdr (assoc maxnum asList))

)

cecile

有列表错误呀~~

nzl1116

(defun fun ()
  (setq n 0)
  (while (>= n 0)
    (if (setq fltnum (getreal "\n输入实数："))
      (progn
 (setq n (1+ n))
 (setq asList (append asList (list (cons fltnum n))))
 (setq sepList (append sepList (list fltnum)))
      )
      (setq n -1)
    )
  )
  (setq maxnum (apply 'max sepList))
  (cdr (assoc maxnum asList))
)

nzl1116

这下调试过，没问题

caoyin

(defun c:tt (/ ral lst)
  (while (setq ral (getreal "\n输入实数: "))
    (setq lst (append lst (list ral)))
  )
  (princ "\n第 ")
  (princ (1+ (car (vl-sort-i lst '>))))
  (princ " 次输入值最大。")
  (princ)
)