AREA（面积计算） Mcl:Lbl 1: A”X0”B”Y0”:Pol(C”Xn”-A,D”Yn”-B)Firm:H=I:J<0=> Q=J+360: ≠ > Q=J ⊿ {E、F} : Pol(E”Xn-i”-A,F”Yn-i”-B):Firm:M=I:J<0=> O=J+360：≠> O=J⊿ G=HM Sin(Q-O)/2:Abs(E-C)+Abs(F-D) ≠ 0 =>G=E:F=D:S=S+G: Goto 1⊿
AREA（面积计算）
Mcl:Lbl 1: A”X0”B”Y0”:Pol(C”Xn”-A,D”Yn”-B)Firm:H=I:J<0=> Q=J+360: ≠ > Q=J ⊿ {E、F} : Pol(E”Xn-i”-A,F”Yn-i”-B):Firm:M=I:J<0=> O=J+360：≠> O=J⊿ G=HM Sin(Q-O)/2:Abs(E-C)+Abs(F-D) ≠ 0 =>G=E:F=D:S=S+G: Goto 1⊿
Abs S “AREA” ◣“THE END”
注：1、此程序适用于4800计算器，要求输入数据为点位坐标，且输入的点数至少为三个，其计算结果为按顺序顺次连接起来的一个封闭图形的面积。
2、由于4800（4850）、4500计算器Pol()函数变量储存字母不同，使用时应注意。
