FORTRAN考试试题3Word文件下载.doc
《FORTRAN考试试题3Word文件下载.doc》由会员分享,可在线阅读,更多相关《FORTRAN考试试题3Word文件下载.doc(5页珍藏版)》请在冰豆网上搜索。
9.要选拔身高T>
1.7米且体重W<
62.5公斤的人,FORTRAN的逻辑表达式是__C_____。
A)T.ce.1.7.AND.w.le.62.5 B)T.le.1.7.OR.w.ge.62.5
C)T.gt.1.7.AND.w.lt.62.5 D)T.gt.1.7.OR.w.lt.62.5
10.FORTRAN90规定,变量类型声明的优先顺序是C。
A.隐含约定(I-N规则)、IMPLICIT声明、类型声明
D.IMPLICIT声明、类型声明、隐含约定(I-N规则)B.类型声明、隐含约定(I-N规则)、IMPLICIT声明
C.类型声明、IMPLICIT声明、隐含约定(I-N规则)
11、假设CH是一个字符型变量,并且具有足够的长度,则对于CH(3:
7),下面说法正确的是___D________。
A.它是一个数组片段 B.它是一个数组定义形式
C.它是CH的一个子串,并且长度是4 D.它是CH的一个子串,并且长度是5
12.数组声明语句为:
INTEGER,DIMENSION(-5:
-1,-3:
3,11:
15):
:
A
数组共有A个元素。
A.175B.150 C.120 D.17
13.下列DATA语句中正确的是______C____。
A)DATA/A,B/-1.0,-1.0/ B)DATAA,B/2*(-1.0)/
C)DATAA,B/2*-1.0/ D)DATAA/-1.0,B/-1.0
14.下列有关FORTRAN数组的说法正确的是______D_____。
A)数组定义语句只能定义一维或二维数组
B)数组元素下标不能出现负值
C)在赋值语句中出现的A(3)肯定是数组元素
D)程序中使用的数组必须进行说明
15.一个完整的FORTRAN源程序的组成不应该_____D______。
A)只有一个主程序没有子程序 B)有一个主程序和若干子程序
C)有一个主程序和一个子程序 D)只有子程序而没有主程序
16.阅读下列FORTRAN程序:
DOK=2,4,2
S=S+1/K
ENDDO
WRITE(*,*)S
END
执行上述程序后,输出的S值为C
A)0.75B)1.75C)0.0D)1.0
17.阅读下列程序
INTEGERM(3,3)
DATAM/1,2,3,4,5,6,7,8,9/
WRITE(*,10)(M(3,J),J=1,3)
10FORMAT(1X,3I2)
END
程序运行结果是______B_____。
A)258 B)369 C)456 D)789
18.阅读下列程序
K(X,Y)=X/Y+X
A=-2.0
B=4.0
B=1.0+K(A,B)
WRITE(*,10)B
10FORMAT(1X,F4.1)
END
程序运行结果是A
A)-1.0 B)1.0 B)2.0 D)3.0
19.阅读下列FORTRAN程序:
DOI=4,2,-1
A=1.0
DOJ=I,4,2
A=A+1.0
ENDDO
ENDDO
WRITE(*,*)A
运行上述程序后,输出的A值为______C_____。
A)5.0 B)4.0 C)3.0 D)2.0
20、可调数组__B_______中出现。
A.只能在主程序 B.只能在子程序
C.只能在主程序和子程序 D.可以在主程序、子程序和模块
二、填空题(每空2分,共36分)
1、结构化程序设计的三种基本结构为:
顺序结构、选择结构和循环结构。
2、已知A、B、C都是整型变量,且A=3,B=4,C=5,计算表达式C/2>
2.AND.A+B==C的值为:
.FALSE.。
3、将数学表达式e+ln|Sin2x-Sinx2|写成正确的FORTRAN表达式为:
EXP(3.14/2*X)+LOG(ABS(SIN(X)**2-SIN(X**2)))。
P.29第9题
4、N是一个个位不等于0的两位自然数,写一个表达式将N的个位数与十位数互换,得到一个新的数。
MOD(N,10)*10+N/10。
P.29第6.4题
5、已知I是整型变量,当DO结构从“正常出口”结束时,语句“DOI=3,15,2”共计完成了______7_______次循环。
6、下列程序的运行显示结果是什么.TURE.。
P.42第1.1题
LOGICALP
INTEGERI,I1,I2,I3
P=.FALSE.
I=123
I1=MOD(I,10)
I2=MOD(I/10,10)
I3=I/100
IF(I1+I3.EQ.2*I2)P=.TRUE.
PRINT*,P
END
7.下列程序的运行显示结果是什么K=6。
P.64第1.3题
K=0
DON=21,10,-1
IF(MOD(N,2)==0)K=K+1
PRINT*,"
K="
K
8.下列程序的运行显示结果是什么145。
P.64第1.4题
M=0
DOJ=1,4
DOK=J-1,4
M=M+1
ENDDO
WRITE(*,*)M,J
9.下列程序的运行显示结果是什么5167.0。
P.64第1.5题
SUM=1.0
J=1
DOWHILE(J.LE.3)
F=1
DOI=2,2*J+1
F=F*I
ENDDO
SUM=SUM+F
J=J+1
PRINT*,SUM
10.下列程序的运行显示结果是什么S=15.00。
P.124第1.4题
DIMENSIONX(3,3)
DATAX/1,2,3,4,5,6,7,8,9/
S=0
DOI=1,3
S=S+X(I,4-I)
ENDDO
WRITE(*,20)S
20
FORMAT(1X,’S=’,F6.2)
11.下列程序将一个数组的元素逆序重新存放,例如存放顺序为:
8,6,5,4,1。
要求改为:
1,4,5,6,8。
请在横线处填写适当语句,使程序完整。
P.126第3题
INTEGER,PARAMETER:
N=5
INTEGERA(N),I,T
DATAA/8,6,5,4,1/
WRITE(*,10)(A(I),I=1,5)
DOI=1,N/2
T=A(I)
A(I)=A(N-I+1)
A(N-I+1)=T
10FORMAT(1X,5I4)
12.下列程序完成按以下格式打印杨辉三角形的前N行:
1
11
121
1331
14641
P.126第12题
PARAMETER(N=10)
INTEGERA(N,N),I,J
DOI=1,N
A(I,1)=1
A(I,I)=1
DOI=3,N
DOJ=2,I-1
A(I,J)=A(I-1,J)+A(I-1,J-1)
WRITE(*,10)(A(I,J),J=1,I)
10FORMAT(1X,10I5)
13.下列子例行程序ProcMin(A,N,MIN)的作用是返回数组A中的最小值。
SUBROUTINEPROCMIN(A,N,MIN)
INTEGERA(N),N,MIN
MIN=A
(1)
DOI=2,N
IF(A(I)>
MIN)MIN=A(I)
14..采用变化的冒泡排序法将N个数按从大到小的顺序排列:
对N个数,从第一个直到第N个,逐次比较相邻的两个数,大者放前面,小者放后面,这样得到的第N个数是最小的,然后4个对前面N-1个数,从第N-1个到第1个,逐次比较相邻的两个数,大者放前面,小者放后面,这样得到的第1个数是最大的。
对余下的N-2个数重复上述过程,直至按从大到小的顺序排列完毕。
请在下列程序横线处填写适当语句,使程序完整。
P.126第5题
INTEGERX(N),I,J,T
X=(/10,55,25,70,45,15,25,85,45,35/)
WRITE(*,10)(X(I),I=1,10)
DOI=1,N-1
DOJ=2,N-I+1
IF(A(J-1)<
A(J))THEN
T=X(J-1)
X(J-1)=X(J)
X(J)=T
ENDIF
ENDDO
WRITE(*,