2023年物理科学与技术学院fortran程序设计期末试卷（a卷）
一、选择题（每题2分，共40分）
1、若fortran 中一个integer 型数据占用2 个字节，那么该类型的数据值范围是___
a)-2147484648～2147483647 b)-32768～32767
c)0～4294967295d)0～65535
2、下列标识符中不能作为fortran 的合法变量名的是。
a) a_1 b) a1 c) a1a d) a+1
3、设a=3.0，c=6.0，l=.false.，则下列fortran 表达式中值为。false.的是。
a) b)
c) d)
4、不等式0≤y≤1 的fortran 表达式是。
a) c) d)
5、"整型变量m 能被整型变量k 整除"的fortran 表达式是。
a）mod(m，k)＝0b）m－m/k*k .eq. 0
c）mod(k，m)＝0d）mod(m，k)＝0 .eq. .true.
6、设有下列数组说明语句：real ::a(1:10，－1:10)
该数组说明语句定义了数组a中的元素个数为。
a）100 b）110 c）120 d）121
7、对于下列给定的fortran说明和赋初值语句：
integer ::a(2，2)=(3，4，5，6/)
数组元数a(2，1)的初值为。
a) 3 b) 5 c) 4 d) 6
8、fortran 表达式"3/4+0.5"的值是。
a) 0.5 b) 1 c) 1.0 d) 0
9、下面循环语句执行后，sum 的值是。
do i=1，5
sum=0do j=i，4，-1
sum=sum+i+j
enddoenddo
a) 0.0 b) 19.0 c) 27.0 d) 76.0
10、阅读下列fortran 程序。
do i=1, 5
sum=sum+i
enddowrite(*,sum
end上述程序运行后，输出结果是。
a) 15 b) 15.0 c) 不确定 d) 0
11、的fortran 表达式是___
a) 2**3**3b)(2**3)**3
c)(2*2*2)**3 d) 2*2*2**3
12、阅读下列fortran 程序。
integer,parameter ::l=3
integer ::n(l)
data n/3*0/
do i=1, l
do j= 1, l
n(j)=n(i)+1
enddoenddo
write(*,n(l)
end上述程序运行后，输出结果是。
a) 3 b) 5 c) 7 d) 9
13、阅读下列fortran 程序(其中□表示空格):
character*3 a(3)
a(1)='a□good□idea.'
write(*,a(1)
end执行该程序后，输出的结果是。
a) 'a□good□ideab) a□good□idea.
c) 'a□gd) a□g
14、 阅读下列fortran 程序。
read(*,100) no,m
if( then
m=m-10
elsem=m+10
end if
write(*,m
100 format(i2,i1)
end在执行上述程序时，从键盘上输入256,2↙后，输出结果是___
a) -4 b) -8 c) 16 d) 12
15、要选拔身高t>1.7 米且体重w<62.5 公斤的人，fortran的逻辑表达式是___
a) b)c) d)
16、将数学式改写为fortran 表达式，正确的是。
a) 1/2*(log(abs(x))+e**(5)) b) 1.0/2*(ln(abs(x))+e**-5)
c) 1/2.0*(ln(abs(x))+e-5) d) 1.0/2*(log(abs(x))+exp(-5))
17、阅读下列fortran 程序：
subroutine abc(x,y,z)
y=y-1.0
z=z+xend
program test
y=2.5call abc(6.5,y,y)
write(*,y
end运行上述程序后，输出的y 值为。
a）1.5 b）8.0 c）9.0 d）10.5
18、要想成功地打开名为"qw"的输出文件，应该使用语句。
a) open(unit=3,file='qw')
b) open(3,file=qw)
c) open(file='qw',3,status='old')
d) open(3,file=qw,status=unknown)
19、语句open(9,file=''打开的是（ ）文件。
a）无格式顺序文件 b）有格式顺序
c）无格式直接 d）有格式直接。
20、程序**如下。
character(len=10)::a='abcdefghij'
character(len=5)::c
c=a(:5)
a(:5)=a(3:7)
a(3:7)=c
write(*,a
end输出的结果为___
a）cdbcdefhij b）cdabcdehij c）fghiabcde d）abcdefghij
二、填空题（每空4分，共20分）：
1、以下程序的输出结果为。
integer ::arr2(2,3)
arr2 = reshape((/3,0,-3,5,-8,2/),2,3/))
where (arr2>0)
arr2 = 2*arr2
end where
write (*sum(arr2,mask=arr2>0.)
end2、以下程序中，第一个write的输出结果是。
第二个write的输出结果是。
program exam
implicit none
type ::ptr
integer, pointer ::p(:)
end type
type (ptr) :p1
integer,target ::a(4)=(1,2,3,4/)
integer,target ::b(4)=(5,6,7,8/)
integer,target ::c(4)=(9,10,11,12/)
p1(1)%p=>a
p1(2)%p=>b
p1(3)%p=>c
write(*,p1(3)%p
write(*,p1(2)%p(3)
end program exam
3、以下程序中，第一个write的输出结果是。
第二个write的输出结果是。
其中，dot_product()和matmul()为内置函数，前者是计算两个向量的点积，后者计算两个向量的叉积。
program main
implicit none
integer,allocatable::a(:)b(:)
integer,allocatable::x(:,y(:,z(:,
integer::c,i,j
allocate(a(1:10),b(1:10))
a=(/1,2,3,4,5,6,7,8,9,10/)
b=(/10,9,8,7,6,5,4,3,2,1/)
c=dot_product(a,b)
write(*,fmt='(i5)')c
allocate(x(1:2,1:2),y(1:2,1:2),z(1:2,1:2))
x=reshape((/1,2,3,4/),2,2/))
y=reshape((/4,3,2,1/),2,2/))
z=matmul(x,y)
write(*,fmt='(4i4)')z(i,j),j=1,2),i=1,2)
endprogram
三、程序填空（每空3分，共30分）：
1、已知牛顿迭代公式为。以下程序段用牛顿迭代法求方程在附近一个根的函数。其中a、b、c、d 及的值均在主程序中，输入、输出也在主程序中进行。
real function newton(a,b,c,d,x)
implicit none
real,intent(in)::a,b,c,d
real::x,f,f1,x1
integer::n=0
dox1=x
f=a*x**3+b*x*x+c*x+d
f1= (1
x=x1-f/f1
n=n+1if(abs(x-x1)<1e-5) (2)
if(n>=100)exit
end do
if(n>100)then
write (*发散'
newton=9999
elsenewton=x
end function
program main
implicit none
real::a,b,c,d,x0,x
write(*,请输入各系数a,b,c,d'
read(*,a,b,c,d
write(*,请输入迭代初值'
read(*,x0
write (*方程的一个根是',x
2023年武汉大学国学考研
一 武汉大学国学考研信息如何查询？了解国学考研信息，需要登陆武汉大学研究生院官网，查看院校公布的研究生招生简章与招生专业目录，从而获知院校招生专业 专业的研究方向和考试科目等信息。每年的招生简章与招生目录一般9月份公布，考生需要以院校每年最新的信息为准，往年信息可供参考。二 武汉大学国学考研可以考哪...
2023年武汉大学招生专业目录
码 名称及研究方向。计划招生人数。考试科目备注。复试以面试为主，无指定教材。205资源与环境科学学院。学术学位。070501自然地理学。01湖泊与湿地生态环境02水文地理与水资源。03环境变化与灾害。04自然资源利用与优化配置05资源环境决策支持系统06资源与环境遥感070502人文地理学。地理科学...
武汉大学党课心得
端正入党动机也是我们争取入党的时候应该仔细考虑的问题。端正入党动机不是入党前一时的问题，而是一辈子的事情。少数党员干部曾经为我党 社会做出了巨大的贡献，但是随着地位权利的不断提升，思想动机产生了扭曲变形，而最终做出了对不起党和人民的事。因此端正入党动机应时时牢记在心，只有如此才能成为一名合格优秀的共...