任意多边形面积计算程序

Lbl 0:M：N：E＝M：F＝N：S＝0↙

Lbl 1:{XY}:S=S-(XN-YM)/2:X=E=>Y=F=>"S=":S◢Goto 0⊿⊿↙

M=X:N=Y:Goto 1

动行时，M、N输入第一点的坐标，以后提示X、Y则依次按顺时针或逆时针方向输入各点的坐标，特别注意的是，当所有点输入完成后，还需要再次输入第一点的坐标，这样就会自动显示计算结果。例：一三角形各点坐标分别为2,4；6,8；1,12。则依次输入完后，需再输一次2,4才会显示计算结果。不论顺时针或逆时针方向输入，都有可能导致计算的结果为负数，这时取其绝对值即可。