2021年fortran习题参考答案.docx

精品学习资料 名师归纳总结——欢迎下载 fortran习题参考答案工程分析程序设计上机作业( 五)模块化编程上机目的 :把握内部例程，主程序，外部例程，模块等功能的使用方法；1， 有一个六边形 ,求其面积；为求面积,作了3 条帮助线；如下列图:( fortran 习题参考答案 工程分析程序设计 上机作业 ( 五) 模块化编程 上机目的 :把握内部例程，主程序，外部例程，模块等功能的使用方法； 1， 有一个六边形 ,求其面积；为求面积 ,作了 3 条帮助线；如下列图 :( 提示 , 三角形面积 a b 2 c = s(s a)( s b)(s c) ,其中 s ,a，b，c 为三个边长 )；要求 用内部函数来计 算每个三角形的面积； l 1=10 l 6=14 l 9=28 l 8=36 l 5=21 l2=30 l 7=20 l 4=13 l 3=16 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 2， 编写一个子例程子程序 ,SUM(S,T,N1,N2) ；把整型数 N1 到 N2 进行求与 ,并把求与的结果 放置到 S,把整型数 到 N2 进行求积 ,并把求积的结果放置到 T；并用这个子程序来计 N1 第 1 页，共 6 页 精品学习资料 名师归纳总结——欢迎下载 fortran习题参考答案算:y(1 23 4)(345678)(3*4*5*6)(1*2*3)programmainimplicit noneinteger A(8)integer i,b,c,d,e,f,g,m,n,y b=0;d=0;g=1;n=1do i=1,8A(i)=i end fortran 习题参考答案 算: 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 call sum(b,c,1,4) call sum(d,e,3,8) call sum(f,g,3,6) call sum(m,n,1,3) y=b+d+g-n print*,y=(1+2+3+4)+(3+4+5+6+7+8)+(3*4*5*6)-(1*2*3)=,y contains subroutine sum(s,t,N1,N2) integer s,t,N1,N2,i do i=N1,N2 s=s+A(i) t=t*A(i) end do end end subroutine 3， 编写函数子程序 GDC 求两个数的最大公约数；求最大公约数的算法如下 :把两个数中大 的那个数作为被除数 ,两数相除得到一个余数； 把余数去除除数得到新一轮的余数； 不断 重复这一过程直到余数为 0,这时的除数就就是两个数的最大公约数； 调用此函数 ,求 1260,198,72 三个数的最大公约数； program main implicit none integer a,b,c,m,n,temp print*, 请输入三个数 : print*,a read*,a,b,c if (ab) then temp=a a=b b=temp end if b c 第 2 页，共 6 页 精品学习资料 名师归纳总结——欢迎下载 fortran习题参考答案call GDC(a,b,m)if (cm) thentemp=c c=m m=temp end ifcall GDC(m,c,n)print*, 最大公约数为 ,n containssubroutine GDC(x,y,z) integer x,y,z,kdo while(mod(x,y)/=0) k=mod(x,y) fortran 习题参考答案 call GDC(a,b,m) if (cm) then temp=c c=m m=temp end if call GDC(m,c,n) print*, 最大公约数为