多點求多邊形面積(I)
程式編寫日期: 2006年1月20日
程式 (64 bytes)
Mem clear: ?→A: ?→B: A→X: B→Y: Lbl 0:
A→C: √M2 ÷ 2→A: B: ?→A: ?→B:
X Ans - YC + BC - Ans A+ YA - XBM+: Goto 0
例題1: 己知四點分別為(0,0),(3,4),(-1,7)及(- 4,3),求四邊形面積。
按 Prog 1 再按 0 EXE 0 EXE 3 EXE 4 EXE -1 EXE 7 EXE - 4 EXE 3 EXE (顯示面積為25)
計算完結請按AC終止程式。
注意: 輸入的點數多於3點,要依須時針或逆時針方向輸入,否則不能正確計算多邊形面積。
例題2: 己知三點分別為(2,3),(4,5)及(3,7),求三角形面積。
按 Prog 1 再按 2 EXE 3 EXE 4 EXE 5 EXE 3 EXE 7 EXE (顯示面積為3)
計算完結請按AC終止程式。