求一程序:求三角形面积
小弟刚刚开始学LISP,如题,写一段<font color="#ff3300"><strong>求三角形面积的程序</strong></font>,现在有一些思路,但是一直不能形成于纸上,想让各位高手大大帮忙写一下,也好能让我有个实例观摩研究。。。 (defun area3 (a b c) ;;;返回三角形的面积,a、b、c为三边长<br/> (setq s (* (+ a b c) 0.5))<br/> (sqrt (* s (- s a) (- s b) (- s c)))<br/>)<br/> 非常感谢!是我给想复杂了,还不会这个计算工式,刚才BAIDU了一下,才知道。。。 本帖最后由 作者 于 2008-11-4 22:46:32 编辑你试下这个程序,看可以不??
页:
[1]