Re: [VB6 ] 判斷為何種三角形

[fumizuki (小獅子)]

※ 引述《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
推 soonsoondog:較小兩邊平方和與最大邊平方相比
推 fumizuki:喔喔
推 fumizuki:那就不能用 And 啦@@
推 neplayer:他問的應該是數學, 不是程式XD
推 fumizuki:這邊寫的規則就跟首篇寫的不一樣了@@"
推 johnnydepp:先排序就只需兩個規則，應該會快些？