fortran习题参考答案.docVIP

fortran习题参考答案 fortran习题参考答案 fortran习题参考答案 工程分析程序设计 上机作业(五) 模块化编程 上机目的:掌握内部例程、主程序、外部例程、模块等功能的使用方法。 有一个六边形,求其面积。为求面积,作了3条辅助线。如图所示:(提示,三角形面积=,其中,a、b、c为三个边长)。要求用内部函数来计算每个三角形的面积。 program main implicit none real :: A(9)=(/10,30,16,13,21,14,20,36,28/) integer i real s 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*,The area is,s contains function area(x,y,z) implicit none real x,y,z real p,area p=(x+y+z)/2 area=sqrt(p*(p-x)*(p-y)*(p-z)) end function end fortran习题参考答案全文共6页，当前为第1页。编写一个子例程子程序,SUM(S,T,N1,N