查看单个帖子
旧 2009-04-27, 09:55 AM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 求一程序:求三角形面积

求一程序:求三角形面积
www.dimcax.com
求一程序:求三角形面积
小弟刚刚开始学lisp,如题,写一段求三角形面积的程序,现在有一些思路,但是一直不能形成于纸上,想让各位高手大大帮忙写一下,也好能让我有个实例观摩研究。。。
d
(defun area3 (a b c) ;;;返回三角形的面积,a、b、c为三边长
(setq s (* (+ a b c) 0.5))
(sqrt (* s (- s a) (- s b) (- s c)))
)
踅摸
d
非常感谢!是我给想复杂了,还不会这个计算工式,刚才baidu了一下,才知道。。。
d
你试下这个程序,看可以不??
通过工具菜单->加载应用程序 可加载该程序,然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序,则可以将该文件放在启动组中。
文件预览:
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)