刚学LISP几天编个面积求和哪里错给个修改

diablo_xie

各位这个求三角形面积之和的程序哪里 (defun c:add() (setq a (getreal "输入三角形边长a :")
b (getreal "输入三角形边长b :")
c (getreal "输入三角形边长c :")
d (sqrt(/ (+ a b c) 2)))

(princ "三角形面积等于 :")
(setq s (sqrt(* d (- d a) (- d b) (- d c))))
(princ))

王咣生

(setq d (/ (+ a b c) 2))