沒什麼技術含量,乙個餘弦定理搞定:
function angle(byval a as double, byval b as double, byval c as double)
angle = (b * b + c * c - a * a) / (2 * b * c)
angle = atn(-angle / sqr(1 - angle * angle)) + 2 * atn(1)
angle = format(angle * 45 / atn(1), "0.00") & "°"
end function
sub getangles(byval a as double, byval b as double, byval c as double)
dim x(6) as string
x(0) = "if a=" & a
x(1) = " b=" & b
x(2) = " c=" & c
x(3) = "then"
x(4) = "∠abc=" & angle(b, c, a)
x(5) = "∠bac=" & angle(a, b, c)
x(6) = "∠acb=" & angle(c, a, b)
msgbox join(x, vbcrlf), vbinformation, "result"
end sub
private sub command1_click()
getangles 1, 2, 1.732
end sub
C 已知三角形三邊，求三角形的面積
area 根號 s s a s b s c s a b c 2 三角形三邊長度由cin輸入，需判斷三邊是否構成乙個三角形，若是，則計算其面積並輸出，否則輸出錯誤資訊。程式須有兩個函式，乙個函式用來判斷，另乙個函式用來計算三角形的面積 段 include include using namespace...
判斷三個數是否能構成三角形 三角形的面積
問題描述 輸入三角形三邊長a,b,c 保證能構成三角形 輸出三角形面積。輸入 一行三個用乙個空格隔開的實數a,b,c，表示三角形的三條邊長。輸出 輸出三角形的面積，答案保留四位小數。樣例輸入 3 4 5，樣例輸出 6.0000。資料範圍限制 1 a,b,c 10000 問題分析 數學基礎 已知三角形...
三角形的邊
給定三個已知長度的邊，確定是否能夠構成乙個三角形，這是乙個簡單的幾何問題。我們都知道，這要求兩邊之和大於第三邊。實際上，並不需要檢驗所有三種可能，只需要計算最短的兩個邊長之和是否大於最大那個就可以了。這次的問題就是 給出三個正整數，計算最小的數加上次小的數與最大的數之差。每一行包括三個資料a,b,c...