FORTRAN考试试题3Word格式.doc
《FORTRAN考试试题3Word格式.doc》由会员分享，可在线阅读，更多相关《FORTRAN考试试题3Word格式.doc（5页珍藏版）》请在冰点文库上搜索。
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
10FORMAT（1X,10I4）
三、编程题（每小题8分，共24分）
1、输入年月，输出该月所对应的天数。
编写程序。
P.37例3.4
2、设计一个子例行程序，计算一个任意矩阵A中的最大元素和最小元素。
P.126第7题
3、对任意自然数n，设计一个求n的各位数字的立方和的函数子程序F（n）（如F（121）=1**3+2**3+1**2=1+8+1=10），并调用F（n）求1000以内的所有水仙花数（当一个数各个数位的立方和等于这个数本身时，称这样的数为水仙花数）P.176第8题
5
升级会员 