fortran习题参考答案

工程分析程序设计 上机作业（五）模块化编程上机目的：掌握内部例程、主程序、外部例程、模块等功能的使用方法。有一个六边形，求其面积。为求面积，作了3条辅助线。如图所示：（提示，三角形面积=，其中，a

工程分析程序设计上机作业（五） 模块化编程 上机目的：掌握内部例程、主程序、外部例程、模块等功能的使用方法。 1、 3 有一个六边形，求其面积。为求面积，作了条辅助线。如图所示：（提示，三角形面 abc = 积，其中，、、为三个边长）。要求 用内部 函数来计算每个三角形的面积。 programmain implicitnone real::A(9)=(/10,30,16,13,21,14,20,36,28/) integeri reals s=area(A(3),A(4),A(7))+area(A(2),A(7),A(8))+& area(A(1),A(8),A(9))+area(A(5),A(6),A(9)) print*,'Theareais',s contains functionarea(x,y,z) implicitnone realx,y,z realp,area p=(x+y+z)/2 area=sqrt(p*(p-x)*(p-y)*(p-z)) 1/7