作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] 判断为何种三角形
时间Thu Jun 23 11:08:59 2005
※ 引述《clifflu ( 雪宝也要变强喔)》之铭言：
: ※ 引述《fumizuki (小狮子)》之铭言：
: : 我数学都忘光了 O_Q
: : 给个规则来吧，应该只是简单几行不会有问题吧 @_@?
: 三角型三边长 a,b,c,
: 假设 a >= b >= c
: 若 a^2 < b^2 + c^2, 则其为锐角三角型
: a^2 > b^2 + c^2 则为钝角三角型
: 当数值使用 float / double 时, 请注意数值上会有的问题.
: 大约是这样.
这不是 c 没有 float 型态，应该是 single / double
是
任意两边的平方和 与 第三边的平方和 做比较吗？
If (a ^ 2 < b ^ 2 + c ^ 2) And (b ^ 2 < a ^ 2 + c ^ 2) And _
(c ^ 2 < a ^ 2 + b ^ 2) Then MsgBox "锐角三角型"
浮点数的话 最好用 double 型态
如果是平方和相等呢？
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.222.155.162
1F：推 soonsoondog:较小两边平方和与最大边平方相比 218.165.75.5 06/23
2F：推 fumizuki:喔喔 61.222.155.162 06/23
3F：推 fumizuki:那就不能用 And 啦@@ 61.222.155.162 06/23
4F：推 neplayer:他问的应该是数学, 不是程式XD140.120.134.239 06/23
5F：推 fumizuki:这边写的规则就跟首篇写的不一样了@@" 210.58.156.43 06/24
6F：推 johnnydepp:先排序就只需两个规则，应该会快些？140.119.143.186 06/25