TI_Voyage200测量程序(坐标法计算面积)2013.08.01

【MJ】坐标法计算面积作者：龚建成MJ() 作者：龚建成QQ:333690880（本程序仅供参考，作者不对其结果负责）

Prgm

Input“n?/”，n 点数

Input“xa?/”，a 第一点x坐标

Input“ya?/”，c 第一点Y坐标

Input“xb?/”，b 第二点x坐标

Input“yb?/”，d 第二点Y坐标

(a+b)*(c-d)/2→s

2→k

Lbl o b→e d→f

Input“xn?/”，b 第N点X坐标

Input“yn?/”，d 第N点Y坐标

S+(b+e)*(f-d)/2→s

k+1→k

if k﹤n then

goto o

elseif k=n then

abs(s+(a+b)*（d-c）/2)→s

endif

disp “mj=”,s “面积”

pause endprgm