多邊形面積(邊及夾角)

多邊形面積(邊及夾角)

若已知多邊形的N - 1個邊長及N-2個內角，程式可以計算多邊形的面積及最後一邊的長度。

程式編寫日期: 2008年3月27日

程式 (109 bytes)

ClrMemory: ?→Y: While 1: ?→A: ?→B: A - X→A:

A>2π^r => A - 2π^r→A: √( Y² + B² - 2YB cos(A→C:

2^-1YB sin(AM+: cos^-1( (B² + C² - Y²) ÷ (2BC→X:

(A<0) + (A>π^r => -X→X: M→A: C→B: C→Y: WhileEnd

註1: 順序輸入數據，第一邊長、第一邊及第二邊的內角、第二邊長、第二邊及第三邊的內角、第三邊長 .....，當輸入至第N-1邊後顯示面積及第N邊長度。

註2: 輸入的邊長及內角必須順多相連，否則計算不成立。

註3: 注意輸入的夾角是內角，而內角是可以大於180^o。

例題1: 一五邊形，其中四個邊及三個內角順序為 2、30^o、2、300^o、2、30^o及2，求五邊形的面積及第五邊的長度。

注意:要在DEG Mode執行

按 Prog 1再按 2 EXE 30 EXE 2 EXE 300 EXE 2 EXE

30 EXE 2 EXE (顯示面積為2.26795) EXE (顯示第五邊的長度為2)

計算完後，請按 AC 終止程式

例題2: a=4, b=5, ∠C=40^o ，求三角形面積及c。

注意:要在DEG Mode執行

按 Prog 1 再按 4 EXE 40 EXE 5 EXE (顯示面積為6.42788) EXE (顯示c為3.21842)

計算完後，請按 AC 終止程式