原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
fortran 习题参考答案
工程分析程序设计 上机作业 (五)
模块化编程
上机目的:掌握内部例程、主程序、外部例程、模块等功能的使用方法。
1、有一个六边形,求其面积。为求面积,作了 3 条辅助线。如图所示:(提示, 三角形面积
a b c
= s(s a)(s b)(s c) ,其中 s ,a 、b 、c 为三个边长)。要求用内部函数来计
2
算每个三角形的面积。
l =10 l =14
1 6
l =28
l =36 9
8
l =21
l =30 5
2
l =20
7
l =13
l =16 4
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))
end function
end
2 、编写一个子例程子程序,SUM(S,T,N1,N2)。把整型数 N1 到 N2 进行求与,并把求与的结果
放置到 S,把整型数 N1 到 N2 进行求积,并把求积的结果放置到 T 。并用这个子程序来计
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
文档评论（0）