源程序 F1 A2

L1 N:P=A:Q=B:S=0:I=2
L2 Lbl 0:{C,D}:F=(A+C)(B-D):S=S+F
L3 A=C:B=D:I=I+1 L4 I≦N=>GOTO 0⊿
L5 F=(C+P)(D-Q):S=S+F:S”W”=S/2◢

说明：
（1）、本程序适用于所测断面为多边形闭合图形的面积计算。
（2）、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样 的。

程序代号注释
A、B—计算面积起始点纵横坐标；
C、D—各转折点的纵横坐标；
S—代表计算过程中的有关面积；
S“W”—为图形最后需要的计算面积。
N—多边形的折点个数。