FORTRAN77试题B

贵州大学2006-2007学年第一学期考试试卷 B
高级语言程序设计
注意事项：
1. 请考生按要求在试卷装订线内填写姓名、学号和年级专业。

2. 请仔细阅读各种题目的回答要求，在规定的位置填写答案。

3. 不要在试卷上乱写乱画，不要在装订线内填写无关的内容。

4. 满分100分，考试时间为120分钟。

一、选择题（共50分,每小题2分，各题中A）、B）、C）、D）
四个选项中，只有一个选项是正确的，请将正确的编号填在括号内）
1. 使用超大规模集成电路制造的计算机应该归属于（）
A) 第一代B) 第二代C) 第三代D) 第四代
2. 下列FORTRAN77运算符中，优先级最低的是（）A）逻辑运算符.AND. B）算术运算符*
C）关系运算符.GE. D）算术运算符＋
3．下列标识符中，不属于FORTRAN77常量的是（）A）.TRUE. B）FALSE C）ˊROOT＝ˊ D）ˊ123.0ˊ
4.下列叙述中错误的是（）A）PROGRAM语句可以是FORTRAN77主程序的第一个语句
B）每一个FORTRAN77程序块的最后一个语句必须是END语句
C）FORTRAN77的所有语句都是可执行语句
D）FORTRAN77的任何可执行语句都可以有标号
5.下列FORTRAN77表达式中，值为.FALSE.的是（）A）.NOT.(.FALSE. .AND. .NOT. .TRUE.)
B）.NOT. .FALSE. .OR. .NOT. .TRUE.
C）.NOT. .TRUE. .AND. .NOT. .FALSE.
D）X .GT. Y .OR. X .LE. Y
6. 在计算机内部，一切信息存取、处理和传送的形式是（）
A) ASCII码B) BCD码C) 二进制D) 十六进制
7.下列标识符中不能作为FORTRAN77的合法变量名的是（）
A)A_1 B) A1 C) A1A D) A+1
8.下列不是FORTRAN77赋值语句的是（）
A)X=.TURE. B) X=X*X C) X=X++ D) X=X**2**2
9.字符运算符‘AB’//‘CD’产生的新字符串的值为（□为空格）（）
A)‘ABCD’B) ‘AB//CD’C) ‘AB□CD’D) ‘AB□□CD’
10.阅读下列FORTRAN77程序：
READ(*，*) N
X＝1.0
IF (N.GE.0) X＝2*X－2.0
IF (N.GE.5) X＝2*X
IF (N.GT.15) X＝3*X－1.0
WRITE(*，*) X
END
运行上述程序时，如果从键盘输入
15<回车>
则最后输出的X值为（）A）5.0 B）2.0 C）－1.0 D）0.0
11.阅读下列FORTRAN77程序：
DO 20 M＝2，5，2
P＝1.0
DO 10 K＝M，5
10 P＝P＋K
20 CONTINUE
WRITE(*，*) P
END
运行上述程序后，输出的P值为（）A）11.0 B）10.0 C）9.0 D）24.0
12. 阅读下列FORTRAN77程序：
READ(*，100) X，Y，Z，S
WRITE(*，*) S
100 FORMA T(F2.1，3(1X，F3.1))
END
运行上述程序时，如果从键盘输入
9876543210987654321<回车>
则最后输出的S值为（）A）9.8 B）98.7 C）8.7 D）87.6
13.阅读下列FORTRAN77程序：
READ(*，*)A
B＝0.0
IF (A.GE.1.0) THEN
B＝B＋2.0
END IF
IF (A.GE.2.0) B＝B－1.0
WRITE(*，*) B
END
在执行时，从键盘输入
5.0<回车>
则输出的B值为（）A）2.0 B）－1.0 C）0.0 D）1.0
14. 阅读下列FORTRAN77程序：
P＝0.0
DO 20 N＝2，6，2
P＝P＋1/N
20 CONTINUE
WRITE(*，*) P
END
运行上述程序后，输出的P值为（）A）0.0 B）0.5 C）0.75 D）0.91
15. 阅读下列FORTRAN77程序：
READ(*，*) M
N＝1
K＝N
10 IF (K.LT.M) THEN
N=N*K
K＝K＋1
GOTO 10
END IF
WRITE(*，*) N
END
在执行上述程序时，如果从键盘输入
6<回车>
则执行后输出的N值为（）A）720 B）120 C）96 D）24
16.将二进制数10000001转换为十进制数应该是（）
A) 127 B) 129 C) 126 D) 128
17. 在FORTRAN77源程序中不能用作续行标志的字符是（）
A) 0 B) X C) + D) $
18. 要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是（）
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
19. 在FORTRAN77的变量类型说明语句中没有（）
A) REAl语句B) CHAR语句C) INTEGER语句D) LOGICAL语句
20. 一次成功的FORTRAN77源程序编译操作,不能（）
A) 同时编译一个主程序和一个子程序
B) 同时编译几个子程序
C) 同时编译一个主程序和几个子程序
D) 同时编译几个主程序
21. 阅读下列程序
LOGICAL L
READ(*,*)A,B
L=A.GT.B
IF(L)THEN
X=B+2*A
ELSE
X=B
END IF
WRITE(*,*)X
END
使用键盘为上述程序输入两个初值4和3,其输出的X值是（）
A) 4.0 B) 3.0 C) 11.0 D) 10.0
22. 阅读下列程序
READ(*,*)K
WRITE(*,100)K
100 FORMA T(I5)
END
程序运行时输入初始值12345,那么显示结果是（）
A) 12345 B) 2345 C) **** D) *****
23. 阅读下列程序
LOGICAL L1,L2,L3,L4,L5
DA TA L1,L2,L3/3*.TRUE./
L4=.NOT.L1.AND..NOT.L2.AND.L3
L5=.NOT.L1.OR..NOT.L2.OR.L3
WRITE(*,*)L4,L5
END
程序运行结果是（）
A) T T B) T F C) F F D) F T
24. 阅读下列程序
CHARACTER*4 A,B,C*5
DA TA A,B,C/'YOUR','BOYS','GIRLS'/
WRITE(*,'(1X,A4,A5,A6,A1)')A,B,C,'!'
END
程序运行结果是（）A) YOURBOYSGIRLS! B) YOUR□BOYS□GIRLS!
C) YOUR□BOYSGIRLS! D) YOURBOYS□GIRLS!
25.阅读下列FORTRAN77程序
PARAMETER （A=1.0）
READ（*，*）B
IF（B.LT.A）THEN
B=A
ELSE IF(B.GT.A) THEN
B=B－A
IF（B.GT.A）THEN
B= B－A
ENDIF
ELSE
B=0.0
ENDIF
WRITE(*,*) B
END
在执行时，从键盘输入5 〈回车〉输出的B值为（）A)1.0 B) 2.5 C) 1.5 D) 3.0
二、填空题（共20分,每小题2分）
1.16位计算机整数的表示范围为。

2.“Ｍ不能被N整除”的FORTRAN表达式为。

3.书写FORTRAN源程序时，每行最多为列。

4.当I=2，K=2，M=7，L=-3时，表达式(I*(K-M))/(9+L)的计算结果是。

5.阅读下面的程序
COMPLEX A
A=（2.15，6.10）
B=A
A=B
WRITE(*,*) A
END
程序的输出结果为。

6．两个字符型数据进行比较，一般按其代码的值进行比较，其中字符最小。

7．INDEX（‘FOLLOW□ME’，‘E’）的函数值为。

8．下面的程序执行后，输入6.0时，Y的值为。

READ（*，*）X
IF（X.LT.0.0）Y=0.0
IF(X.LT.5.0) Y=1.0
IF(X.LT.10.0) Y=5.0
Y=6.0
WRITE(*,*) Y
END
9.下面的程序段中，循环的执行次数为次。

DO 10，I=-2，-11，-3 F=F*I
10 CONTINUE END
10．阅读下面的FORTRAN 程序：
LOGICAL P ，Q READ （*，10） P ，Q 10 FORMA T （1X ，2L4）
X=0.0 Y=0.0
IF(P) X=1.0 IF(Q) Y=1.0 WRITE(*,*) X,Y END
执行以上程序，输入FTTFFTTFFTT ，最后输出的X 与Y 的值分别为 ， 。

三、编程题（共30分,每小题10分）
1. 设计程序打印“九九表”，即1×1=1， 1×2=2……，直到9×8=72，9×9=81
2．求Y 值，X 由键盘输入。

Y=
X ( 0 ≤X<10 )
X 2+1 ( 10≤X<20 )X 3+X 2+1 ( 20≤X<30 )
3． 设计程序用于求级数
)
1(1......321211+⨯++⨯+⨯n n 的值，直到级数中某一项的值小于10-4为止。