fortran习题参考答案.pdfVIP

工程分析程序设计 上机作业（五） 模块化编程 上机目的：掌握内部例程、主程序、外部例程、模块等功能的使用方法。 1、 有一个六边形，求其面积。为求面积，作了 3 条辅助线。如图所示： （提示，三角形面 a b c 积= s(s a)(s b)(s c) ，其中 s ，a 、b、c 为三个边长） 。要求 用内部函 2 数来计算每个三角形的面积。 l 1=10 l6 =14 l =28 9 l =36 8 l5 =21 l =30 2 l =20 7 l =13 4 l =16 3 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)) 1 / 7 end function end 2、 编写一个子例程子程序， SUM(S ，T ，N1 ，N2) 。把整型数 N1 到 N2 进行求和，并把求 和的结果放置到 S，把整型数 N1 到 N2 进行求积，并把求积的结果放置到 T 。并用这个 子程序来计算： y (1 2 3 4) (3 4 5 6 7 8) (3*4*5*6) (1*2*3) program main implicit none integer A(8) integer i,b,c,d,e,f,g,m,n,y b=0;d=0;g=1;n=1 do i=1,8 A(i)=i end do