多邊形面積(邊及夾角)

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

程式編寫日期: 2014年7月30日

程式 (109 bytes)

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

A>2πr => A - 2πr→A:  √( Y2 + B2 - 2YB cos(A→C:

2-1YB sin(AM+: cos-1( (B2 + C2 - Y2) ÷ (2BC→X:

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

 

註1: 如果是使用fx-3650P II或fx-50FH II,上述程式碼中 (B2 + C2 - Y2) ÷ (2BC→X:  可以簡化為 (B2 + C2 - Y2) ÷ 2BC→X:  可節省1 byte。

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

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

註4: 注意輸入的夾角是內角,而內角是可以大於180o

 

例題1: 一五邊形,其中四個邊及三個內角順序為 2、30o、2、300o、2、30o及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=40o ,求三角形面積及c。

注意:要在DEG Mode執行

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

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

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting