L1  A:XY:M=X:N=Y:C=0:S=0:D=0:B=0:Lbl 1:C=C+1:S=S+3(－BX+ DY)/4000:D=X:B=Y:C=A→X=M:Y=N:Goto 1△C≠A+1→{XY}:Goto 1△S
说明：①程序12采用多边形顶点坐标计算多边形的面积；
②程序中A=多边形边数(或顶点数)、X=多边形各顶点的纵坐标、Y=多边形各顶点的横坐标；
③计算时如果是按顺时针方向输入多边形各顶点的纵横坐标，则面积显示为正值，反之则为负
④面积是以亩为单位，亩与平方米的换算常数是：2000/3，即 1亩=2000/3M2、1M2=3/2000亩；
⑤算例：按Prog 12调用程序显示A？输入多边形的边数(或顶点数)4，按EXE键、显示X？输入顶点1的纵坐标10，按EXE键、显示Y？输入顶点1的横坐标10，按EXE键、显示X？输入顶点2的纵坐标40，按键、显示Y？输入顶点2的横坐标10，按EXE键、显示X？输入顶点3的纵坐标40，按EXE键、显示Y？输入顶点3的横坐标 60，按EXE键、显示X？输入顶点4的纵坐标10，按EXE键、显示Y？输入顶点4的横坐标60，按EXE键、显示四边形的面积2.25(亩)。
⑥坐标法计算多边形面积的公式如下：
  （1）
  （2）
其中：i=1、2、3、4…n
公式（1）和（2）中：S=多边形面积、n=图形界址点个数、
Xi=界址纵坐标、Yi=界址点横坐标；当i=1时，i－1=n；i=n时，i+1=1