原创力文档- 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语言程序设计 ；试卷编号：A 卷；考试时间：120分钟
题号 一 二 三 四 总分 应得分 30 10 20 40 实得分 一、填空题（30分，每题2分）
得分 评卷人 复查人 Fortran语言中有：整数型 逻辑型 字符型 实数型 复数型五种基本数据类型。
Fortran程序的书写格式有两种固定格式 自由格式。
3. 字符型常数’this”s’的字符长度为6
4. 下列程序运行结果为125。
Program main
Implicit none
Integer::floor=5,i
Do i=1, floor
If(i==3)cycle
If(i==4)cycle
Write(*,*)i
End do
end
5. 下列程序的运行结果为76.0,2.0。
Program main
Implicit none
Real :: a, b, m
A=2.0
B=76.0
If(ab)then
M=a
A=b
B=m
End if
Write(*,*) “a=”,a “b=”,b
end
6. 下列程序的运行结果是10302。
Program test
Implicit none
Integer::sum,i
sum=0.0
do i=1,203,2
sum=sum+i
end do
write(*,*) i
end
7. 下列程序的运行结果是12000。
Program test
Implicit none
Integer::i
Integer::a(5)=(/ (i, i=1,5) /)
Integer::b(5)=0
Where (a3)
b=a
End where
Write(*,”(5(i3,1x))”) b
end
8. 下列程序的运行结果是30。
Program test
Implicit none
Integer,parameter:: limit=10
Integer counter
Integer:: ans=0
Counter=2
do while(counter=limit)
ans=ans+counter
counter=counter+2
end do
Wrte(*,*)ans
end
9. 下列程序的运行结果是2,3。
Program main
implicit none
integer ::a=1
integer ::b=2
call add ( a )
Call add ( b)
Write(*,*) a , b
Stop
end
Subroutine add (sum)
Implicit none
integer :: sum
sum=sum+1
Return
end
10. 下列程序的运行结果是3。
Program main
implicit none
integer, target :: a=1
integer, pointer :: p
p=a
p=3
write(*,*)a
end
11.二维数组在内存中的存储顺序为： 1324 。
12. 下列程序的运行结果是55555 。
Program test
Implicit none
Integer::i
Integer::a(5)
Forall ( i=1:5 )
A(I)=5
End forall
Write(*,*)a
Stop
end
13.数学表达式13-1/2的值为：13。
14.逻辑表达式(（35）Program test
Implicit none
Complex a,b,c
A=(1.0,2.0)
b= (2.0,4.0)
c=a+b
Write(*,*) c
Stop
end
二、程序说明题（10分，每空2分）
得分 评卷人 复查人
Fortran语句中，“！”后的内容为对整个程序或某行程序的说明，请在下面程序中感叹号后，对相应for
文档评论（0）