《表面积计算程序.docx》由会员分享,可在线阅读,更多相关《表面积计算程序.docx(1页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
5800面积计算程序“POINT NUMBER:” ?-*N: “Xl = ?一A: “Yl = ? -*B: A-*C: B-*D: 0-*PZLbi !:IfN=l:ThenA-E: B-F: Goto2:IfEndZ“X(l)=?fE: Y(l)=?fF/Lbi 2:P+(C+E)(F-D)+2-P: N-1-*N: N=0=Goto 3/E-C: F-D: Goto 1 ZLbi 3:,AREA(M2)=,:Abs(P)-*Pzl“ AREA(MU 尸”:1.5P4-1000Z1“END” /输入步骤:1. POINT NUMBER=?2.X1=?3. Yl=?4. X (1) =?5. Y (1) =?6. X (1) =?7. Y (1) =?8. 。9. ooooooooAREA(M2)=10. AREA (Ml )= 输入计算的点数量 第个点的X坐标 第一个点的Y坐标 第二个点的X坐标 第二个点的Y坐标 第三个点的X坐标 第三个点的Y坐标 第N个点的X坐标 第N个点的Y坐标 得到这N个点的面积(平米) 得到这N个点的面积(亩)