การหาพื้นที่สามเหลี่ยมด้วยวิธี
Heron's formula
;; Area of a triangle (Heron's formula)
(defun c:Arheron ()
(setq a (getdist "\nEnter Length of Side a :
"))
(setq b (getdist "\nEnter Length of Side b :
"))
(setq c (getdist "\nEnter Length of Side c :
"))
(setq s (/(+ a b c) 2))
(setq as (sqrt(* s (- s a)(- s b)(- s c))))
(princ (strcat "Area = " (rtos as 2 2)))
(princ)
)
ไม่มีความคิดเห็น:
แสดงความคิดเห็น