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