贵州大学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. Y6. 在计算机内部，一切信息存取、处理和传送的形式是（）A) ASCII码B) BCD码C) 二进制D) 十六进制7.下列标识符中不能作为FORTRAN77的合法变量名的是（）A)A_1 B) A1 C) A1A D) A+18.下列不是FORTRAN77赋值语句的是（）A)X=.TURE. B) X=X*X C) X=X++ D) X=X**2**29.字符运算符‘AB’//‘CD’产生的新字符串的值为（□为空格）（）A)‘ABCD’B) ‘AB//CD’C) ‘AB□CD’D) ‘AB□□CD’10.阅读下列FORTRAN77程序：READ(*，*) NX＝1.0IF (N.GE.0) X＝2*X－2.0IF (N.GE.5) X＝2*XIF (N.GT.15) X＝3*X－1.0WRITE(*，*) XEND运行上述程序时，如果从键盘输入15<回车>则最后输出的X值为（）A）5.0 B）2.0 C）－1.0 D）0.011.阅读下列FORTRAN77程序：DO 20 M＝2，5，2P＝1.0DO 10 K＝M，510 P＝P＋K20 CONTINUEWRITE(*，*) PEND运行上述程序后，输出的P值为（）A）11.0 B）10.0 C）9.0 D）24.012. 阅读下列FORTRAN77程序：READ(*，100) X，Y，Z，SWRITE(*，*) S100 FORMA T(F2.1，3(1X，F3.1))END运行上述程序时，如果从键盘输入9876543210987654321<回车>则最后输出的S值为（）A）9.8 B）98.7 C）8.7 D）87.613.阅读下列FORTRAN77程序：READ(*，*)AB＝0.0IF (A.GE.1.0) THENB＝B＋2.0END IFIF (A.GE.2.0) B＝B－1.0WRITE(*，*) BEND在执行时，从键盘输入5.0<回车>则输出的B值为（）A）2.0 B）－1.0 C）0.0 D）1.014. 阅读下列FORTRAN77程序：P＝0.0DO 20 N＝2，6，2P＝P＋1/N20 CONTINUEWRITE(*，*) PEND运行上述程序后，输出的P值为（）A）0.0 B）0.5 C）0.75 D）0.9115. 阅读下列FORTRAN77程序：READ(*，*) MN＝1K＝N10 IF (K.LT.M) THENN=N*KK＝K＋1GOTO 10END IFWRITE(*，*) NEND在执行上述程序时，如果从键盘输入6<回车>则执行后输出的N值为（）A）720 B）120 C）96 D）2416.将二进制数10000001转换为十进制数应该是（）A) 127 B) 129 C) 126 D) 12817. 在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.5C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.519. 在FORTRAN77的变量类型说明语句中没有（）A) REAl语句B) CHAR语句C) INTEGER语句D) LOGICAL语句20. 一次成功的FORTRAN77源程序编译操作,不能（）A) 同时编译一个主程序和一个子程序B) 同时编译几个子程序C) 同时编译一个主程序和几个子程序D) 同时编译几个主程序21. 阅读下列程序LOGICAL LREAD(*,*)A,BL=A.GT.BIF(L)THENX=B+2*AELSEX=BEND IFWRITE(*,*)XEND使用键盘为上述程序输入两个初值4和3,其输出的X值是（）A) 4.0 B) 3.0 C) 11.0 D) 10.022. 阅读下列程序READ(*,*)KWRITE(*,100)K100 FORMA T(I5)END程序运行时输入初始值12345,那么显示结果是（）A) 12345 B) 2345 C) **** D) *****23. 阅读下列程序LOGICAL L1,L2,L3,L4,L5DA TA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND..NOT.L2.AND.L3L5=.NOT.L1.OR..NOT.L2.OR.L3WRITE(*,*)L4,L5END程序运行结果是（）A) T T B) T F C) F F D) F T24. 阅读下列程序CHARACTER*4 A,B,C*5DA 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（*，*）BIF（B.LT.A）THENB=AELSE IF(B.GT.A) THENB=B－AIF（B.GT.A）THENB= B－AENDIFELSEB=0.0ENDIFWRITE(*,*) BEND在执行时，从键盘输入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 AA=（2.15，6.10）B=AA=BWRITE(*,*) AEND程序的输出结果为。

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

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

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

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

DO 10，I=-2，-11，-3 F=F*I10 CONTINUE END10．阅读下面的FORTRAN 程序：LOGICAL P ，Q READ （*，10） P ，Q 10 FORMA T （1X ，2L4）X=0.0 Y=0.0IF(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=812．求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为止。