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采用多邊形頂點坐標(biāo)計算多邊形的面積；
②程序中A=多邊形邊數(shù)(或頂點數(shù))、X=多邊形各頂點的縱坐標(biāo)、Y=多邊形各頂點的橫坐標(biāo)；
③計算時如果是按順時針方向輸入多邊形各頂點的縱橫坐標(biāo)，則面積顯示為正值，反之則為負(fù)
④面積是以畝為單位，畝與平方米的換算常數(shù)是：2000/3，即 1畝=2000/3M2、1M2=3/2000畝；
⑤算例：按Prog 12調(diào)用程序顯示A？輸入多邊形的邊數(shù)(或頂點數(shù))4，按EXE鍵、顯示X？輸入頂點1的縱坐標(biāo)10，按EXE鍵、顯示Y？輸入頂點1的橫坐標(biāo)10，按EXE鍵、顯示X？輸入頂點2的縱坐標(biāo)40，按鍵、顯示Y？輸入頂點2的橫坐標(biāo)10，按EXE鍵、顯示X？輸入頂點3的縱坐標(biāo)40，按EXE鍵、顯示Y？輸入頂點3的橫坐標(biāo) 60，按EXE鍵、顯示X？輸入頂點4的縱坐標(biāo)10，按EXE鍵、顯示Y？輸入頂點4的橫坐標(biāo)60，按EXE鍵、顯示四邊形的面積2.25(畝)。
⑥坐標(biāo)法計算多邊形面積的公式如下：
  （1）
  （2）
其中：i=1、2、3、4…n
公式（1）和（2）中：S=多邊形面積、n=圖形界址點個數(shù)、
Xi=界址縱坐標(biāo)、Yi=界址點橫坐標(biāo)；當(dāng)i=1時，i－1=n；i=n時，i+1=1