1、计算机程序设计语言(FORTRAN 语言)及答案解析(总分：36.00，做题时间：90 分钟)1.编译程序能将高级语言编写的源程序转换成( )。A解释程序 B汇编程序 C映象程序 D目标程序（分数：1.00）A.B.C.D.2.一个完整的 FORTRAN 源程序( )。A至少包括一个主程序B至少包括一个主程序和一个子程序C由一个主程序与一个以上的子程序组成D由一个主程序与一个子程序组成（分数：1.00）A.B.C.D.3.语句函数定义语句在程序内合法的位置是( )。A在程序块开头语句之后，END 语句之前B在程序块开头语句之后，可执行语句之前C在说明语句之后，END 语句之前D在说明语句之后，
2、可执行语句之前（分数：1.00）A.B.C.D.4.下列关于函数子程序虚实参数的错误说法是( )。A可以没有形参数 B虚实结合的数组长度可以不同C实参表与虚参表类型可以不同 D函数名可以作为虚参（分数：1.00）A.B.C.D.5.下列叙述中正确的是( )。AFORTRAN 程序块中，无名公用语句只能有一个BFORTRAN 子程序中，至少应有一个 RETURN 语句CFORTRAN 程序块中，最后一行必须是 END 语句DFORTRAN 程序块中，必须有变量说明语句（分数：1.00）A.B.C.D.6.运行下面的程序时得不到所需的结果，其主要原因是( )。INTEGER X(11) DATA
3、X/9，8，7，6，5，4，3，2，1，0，-1/DO 10 1=1，X(1) ，-1WRITE(*，*)1.0/SQRT(25.0-REAL(X(1) )* * 2) 10 CONTINUEENDA没有给 X(11) 赋初值 B发生除以零的情况C发生负数开平方的情况 D循环参数设置错误（分数：1.00）A.B.C.D.7.下列数据中，不符合 FORTRAN 常量表示法的是( )。A-25.6 B2.758D3CFOOT“= DTRUE（分数：1.00）A.B.C.D.8.有一段说明语句如下：DIMENSION A(5) ，B(5) EQUIVALENCE(A(3) ，B(4) )说明语句 E
4、QUIVALENCE(A(3) ，B(4) )在程序中的作用是( )A用于在数组 A 和 B 之间传递数据B说明数组 A 和 B 是同一个数组C说明数组 A 和 B 共用相同的存储单元D说明数组 A 和 B 的部分元素共用相同的存储单元（分数：1.00）A.B.C.D.9.在数据块子程序中( )。A只能给无名公用区中的成员赋初值B只能给有名公用区中的成员赋初值C不分有名或无名，凡是公用区成员皆可赋初值D只能给公用区中的数组赋初值（分数：1.00）A.B.C.D.10.下列语句函数的定义中，正确的是( )。AFUNCTION(I，J，K)=I*J+J*J+K*KBF(X，Y，Q(I)=SIN(X
5、)+COS(Y)+Q(I)CS(X，Y，Z)=(X+Y+Z)* * 2+S(X*X，Y，Z)DF(X，Y)=(X+Y)/X/Y+P（分数：1.00）A.B.C.D.11.对任意输入的 X，下列程序执行后 K 的值为( )。READ(*，*) XK=SIN(X)WRITE(*，*) KENDA在区间-1，1中的一个值 B一定等于 0C在区间(-1，1) 中的一个值 DK=0 或 K=1 或 K=-1（分数：1.00）A.B.C.D.12.设有格式输入语句如下：READ(*，*，10) X10 FORMAT(1X，F5.2) 能使变量 X 的值为 2.63 的键盘输入为( )。A22.6300 B
6、002630 C2.6300 D263000（分数：1.00）A.B.C.D.13.当输入 1，2，3，4 下列程序执行后的输出结果为( )。DIMENSION A(2，2) READ(*，*) ASUM=0DO 10 I=1，2DO 20 J=1，210 A(I，J)=A(I，J)+I+JWRITE(*，*) A(1，2) ENDA6 B5 C7 D4（分数：1.00）A.B.C.D.14.阅读下列 FORTRAN 程序：DO I=1，5SUM=SUM+IENDDOWRITE(*，*) SUMEND上述程序运行后，输出结果是( )。A15 B15.0 C不确定 D0（分数：1.00）A.B.
7、C.D.15.阅读下列 FORTRAN 程序：S(X)=2*X*X-Y+1.0DATA A，B，Y/3*2.0/P=S(A)*S(B-A)4-S(Y)-S(B)WRITE(*，*) PEND上述程序运行后，输出的 P 值为( )。A9.0 B-9.0 C7.0 D-7.0（分数：1.00）A.B.C.D.16.下列程序执行后的输出结果为( )。CHARACTER *6 SS=ABCDEFCALL SS(S)ENDSUBROUTINE SS(S1) CHARACTER S1*3WRITE(*，*) S1ENDAABC BBC CCDE DDEF（分数：1.00）A.B.C.D.17.下列程序的执
8、行结果 K 是( )。K=0DO 10 I=1，2DO 10 J=I，210 K=K+I/JWRITE(*，*)KENDA0 B2 C2.5 D1（分数：1.00）A.B.C.D.18.下列关于子例行子程序虚实参数的正确说法是( )。A应至少有一个形参数 B数组元素可以作为实参C数组元素可以作为虚参 D常数可以作为虚参（分数：1.00）A.B.C.D.19.当输入 150 时，下列程序执行后的输出结果为( )。READ(*，*) XY=0.0IF(X.GT.O.0) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITE(*，*) YE
9、NDA0.0 B1.0 C2.0 D3.0（分数：1.00）A.B.C.D.20.当输入 1，2，3，4，5，6 下列程序执行后的输出结果为DIMENSION A(2，3) READ(*，*) ACALL SS1(A)ENDSUBROUTINE SS1(B)DIMENSION B(3，2) WRITE(*，*) B(3，1) ENDA2 B3 C4 D5（分数：1.00）A.B.C.D.21.下列程序执行后的输出结果为( )。F1(X)=2.0/(1.0+X)F2(Y)=F1(Y)*Y+1.0A=F1(1.0)+F2(1.0)WRITE(*，10) A10 FORMAT(IX，E8.2) EN
10、DA3.00 B3.0 C3.00E+00 D0.30E+01（分数：1.00）A.B.C.D.22.阅读下列 FORTRAN 程序：S=1.0DO 100 K=3，1，-1DO 100 N=-1，-3100 S=2*SWRITE(*，*) SEND运行上述程序后，输出的 S 值为( )。A1.0 B8.0 C512.0 D4.0（分数：1.00）A.B.C.D.23.阅读下列 FORTRAN 程序：INTEGER A(4，5) DATA A/5*1，5*2，5*3，5*4/M=0DO 10 K=1，410 M=M+A(K，K+1) WRITE(*，*) MEND执行上述程序后，输出的 M 值
11、为( )。A8 B9 C10 D11（分数：1.00）A.B.C.D.24.阅读下列 FORTRAN 程序：INTEGER M(3，3) DATA M/1，2，3，4，5，6，7，8，9/DO 10 1=1，3WRITE(*，100) (M(I，J)，J=1，I)10 CONTINUE10 FORMAT (1X，312) END上述程序执行后，输出结果是( )。A1 4 72 5 83 6 9B1 2 34 5 67 8 9C12 53 6 9D14 57 8 9（分数：1.00）A.B.C.D.25.定义一个长度为 10 的一维整型数组 M，并且要求分别给数组元素赋值为 M(K)=K+1，但
12、 M(10)=1。下列各程序段中错误的是( )。ADIMENSION M(10)M(10)=1DO 10 K=1，1010 M(K)=K+1BDIMENSION M(10)M(10)=1DO 10 K=1，910 M(K)=K+1CDIMENSION M(10)M(10)=1DO 10 K=2，1010 M(K-1) =KDDIMENSION M(10)DO 10 K=1，1010 M(K)=K+1M(10)=1（分数：1.00）A.B.C.D.26.阅读下列 FORTRAN 程序：M=3DO K=1，MM=5WRITE(*，*) K，MENDDOEND上述程序的运行结果是( )。A1 52
13、53 54 55 5B1 52 53 5C编译出错，不能运行D1 32 33 3（分数：1.00）A.B.C.D.27.阅读下列 FORTRAN 程序：LOGICAL P，QREAD(*，100)P，Q100 FORMAT(2L4) F(P) THENY=1.0ELSE IF(Q) THENY=2.0ELSE IF(.NOT.P.OR.Q)THENY=3.0ELSEY=0.0VENDIFWRITE(*，*) YEND在执行上述程序时，由键盘输入 FABDTXYZ，最后输出的 Y 值为( )。A0.0 B1.0 C2.0 D3.0（分数：1.00）A.B.C.D.28.阅读下列 FORTRAN
14、程序：PARAMETER(L=3) INTEGER N(L)DATA N/3*0/DO 20 I=1，LDO 20 J=1，LN(J)=N(1) +120 CONTINUEWRITE(*，*) N(L)END上述程序运行后，输出结果是( )。A3 B5 C7 D9（分数：1.00）A.B.C.D.29.阅读下列 FORTRAN 程序：X=1.0Y=2.0CALL SUB(X，Y，Z，3.0)WRITE(*，100) X，Y，Z100 FORMAT(1X，13.1) ENDSUBROUTINE SUB(A，B，X，Z)A=A+1B=B+2Y=1.0X=Y+ZEND执行上述程序后，输出的结果为(
15、)。A2.05.04.0B4.01.02.0C4.02.04.0D2.04.04.0（分数：1.00）A.B.C.D.30.下列程序执行后的输出结果为( )。K=0DO 10 1=1，6，2DO 10 J=I，6，3IF(K.LT.I*J) K=I*J10 CONTINUEWRITE(*，*) KENDA18 B30 C25 D36（分数：1.00）A.B.C.D.31.阅读下列 FORTRAN 程序：CHARACTER A*5A=ABCDECALL S(A)ENDSUBROUTINE S(X)CHARACTER X*3WRITE(*，*)XEND执行上述程序后，输出的 X 值为( )。AAB
16、 BDE CCDE DABC（分数：1.00）A.B.C.D.32.阅读下列 FORTRAN 程序：INTEGER S(2，4) ，A(2) DATA S/4*1，4*2/CALL SUB(S，2，4，A)M=A(1) -A(2) WRITE(*，*) MENDSUBROUTINE SUB(S，N，K，A)INTEGER S(N，K)，A(N)DO 20 I=1，NA(I)=0DO 10 J=1，K10 A(I)=A(I)+S(I，J)A(I)=A(I)/K20 CONTINUEEND执行上述程序后，输出的 M 值为( )。A0 B1 C2 D3（分数：1.00）A.B.C.D.33.当输入
17、150H，f1，下列程序执行后的输出结果为( )。READ(*，*) XY=0.0IF(X.GT.O.C) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITE(*，*)YENDA0.0 B1.0 C2.0 D3.0（分数：1.00）A.B.C.D.34.阅读下列 FORTRAN 程序：DO 20 K=2，5，2S=1.0DO 10 J=K，510 S=S+J20 CONTINUE*WRITE(*，*) SEND执行上述程序后，输出的 S 值为( )。A9.0 B1.0 C24.0 D10.0（分数：1.00）A.B.C.D.35.阅
18、读下列 FORTRAN 程序：REAL A(5) COMMON /CC/XDATA A/1，2，3，4，5/X=0Y=FUN(A，5) +FUN(A，5) WRITE(*，*) YENDFUNCTION FUN(A，N)REAL A(N)COMMON /CC/XX=X+1F=1DO 10 I=N，1F=F+A(I)10 CONTINUEFUN=F+XEND上述程序执行后，输出结果是( )。A4.0 B5.0 C16.0 D33.0（分数：1.00）A.B.C.D.36.阅读下列 FORTRAN 程序：DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*
19、-1.0/S=0.0DO 20 K=1，3D=A(K，1) DO 10J=2，4IF(A(K，J)D) D=A(K，J)10 CONTINUES=S+D20 CONTINUEWRITE(*，*) SENDA-15.0 B-12.0 C9.0 D6.0（分数：1.00）A.B.C.D.计算机程序设计语言(FORTRAN 语言)答案解析(总分：36.00，做题时间：90 分钟)1.编译程序能将高级语言编写的源程序转换成( )。A解释程序 B汇编程序 C映象程序 D目标程序（分数：1.00）A.B.C.D. 解析：2.一个完整的 FORTRAN 源程序( )。A至少包括一个主程序B至少包括一个主程序
20、和一个子程序C由一个主程序与一个以上的子程序组成D由一个主程序与一个子程序组成（分数：1.00）A. B.C.D.解析：3.语句函数定义语句在程序内合法的位置是( )。A在程序块开头语句之后，END 语句之前B在程序块开头语句之后，可执行语句之前C在说明语句之后，END 语句之前D在说明语句之后，可执行语句之前（分数：1.00）A.B.C.D. 解析：4.下列关于函数子程序虚实参数的错误说法是( )。A可以没有形参数 B虚实结合的数组长度可以不同C实参表与虚参表类型可以不同 D函数名可以作为虚参（分数：1.00）A.B.C. D.解析：5.下列叙述中正确的是( )。AFORTRAN 程序块中，
21、无名公用语句只能有一个BFORTRAN 子程序中，至少应有一个 RETURN 语句CFORTRAN 程序块中，最后一行必须是 END 语句DFORTRAN 程序块中，必须有变量说明语句（分数：1.00）A.B.C. D.解析：6.运行下面的程序时得不到所需的结果，其主要原因是( )。INTEGER X(11) DATA X/9，8，7，6，5，4，3，2，1，0，-1/DO 10 1=1，X(1) ，-1WRITE(*，*)1.0/SQRT(25.0-REAL(X(1) )* * 2) 10 CONTINUEENDA没有给 X(11) 赋初值 B发生除以零的情况C发生负数开平方的情况 D循环参
22、数设置错误（分数：1.00）A.B.C.D. 解析：7.下列数据中，不符合 FORTRAN 常量表示法的是( )。A-25.6 B2.758D3CFOOT“= DTRUE（分数：1.00）A.B.C.D. 解析：8.有一段说明语句如下：DIMENSION A(5) ，B(5) EQUIVALENCE(A(3) ，B(4) )说明语句 EQUIVALENCE(A(3) ，B(4) )在程序中的作用是( )A用于在数组 A 和 B 之间传递数据B说明数组 A 和 B 是同一个数组C说明数组 A 和 B 共用相同的存储单元D说明数组 A 和 B 的部分元素共用相同的存储单元（分数：1.00）A.B.
23、 C.D.解析：9.在数据块子程序中( )。A只能给无名公用区中的成员赋初值B只能给有名公用区中的成员赋初值C不分有名或无名，凡是公用区成员皆可赋初值D只能给公用区中的数组赋初值（分数：1.00）A.B.C.D. 解析：10.下列语句函数的定义中，正确的是( )。AFUNCTION(I，J，K)=I*J+J*J+K*KBF(X，Y，Q(I)=SIN(X)+COS(Y)+Q(I)CS(X，Y，Z)=(X+Y+Z)* * 2+S(X*X，Y，Z)DF(X，Y)=(X+Y)/X/Y+P（分数：1.00）A.B. C.D.解析：11.对任意输入的 X，下列程序执行后 K 的值为( )。READ(*，*
24、) XK=SIN(X)WRITE(*，*) KENDA在区间-1，1中的一个值 B一定等于 0C在区间(-1，1) 中的一个值 DK=0 或 K=1 或 K=-1（分数：1.00）A. B.C.D.解析：12.设有格式输入语句如下：READ(*，*，10) X10 FORMAT(1X，F5.2) 能使变量 X 的值为 2.63 的键盘输入为( )。A22.6300 B002630 C2.6300 D263000（分数：1.00）A. B.C.D.解析：13.当输入 1，2，3，4 下列程序执行后的输出结果为( )。DIMENSION A(2，2) READ(*，*) ASUM=0DO 10 I
25、=1，2DO 20 J=1，210 A(I，J)=A(I，J)+I+JWRITE(*，*) A(1，2) ENDA6 B5 C7 D4（分数：1.00）A.B. C.D.解析：14.阅读下列 FORTRAN 程序：DO I=1，5SUM=SUM+IENDDOWRITE(*，*) SUMEND上述程序运行后，输出结果是( )。A15 B15.0 C不确定 D0（分数：1.00）A.B.C.D. 解析：15.阅读下列 FORTRAN 程序：S(X)=2*X*X-Y+1.0DATA A，B，Y/3*2.0/P=S(A)*S(B-A)4-S(Y)-S(B)WRITE(*，*) PEND上述程序运行后，
26、输出的 P 值为( )。A9.0 B-9.0 C7.0 D-7.0（分数：1.00）A. B.C.D.解析：16.下列程序执行后的输出结果为( )。CHARACTER *6 SS=ABCDEFCALL SS(S)ENDSUBROUTINE SS(S1) CHARACTER S1*3WRITE(*，*) S1ENDAABC BBC CCDE DDEF（分数：1.00）A.B.C. D.解析：17.下列程序的执行结果 K 是( )。K=0DO 10 I=1，2DO 10 J=I，210 K=K+I/JWRITE(*，*)KENDA0 B2 C2.5 D1（分数：1.00）A.B.C. D.解析：1
27、8.下列关于子例行子程序虚实参数的正确说法是( )。A应至少有一个形参数 B数组元素可以作为实参C数组元素可以作为虚参 D常数可以作为虚参（分数：1.00）A.B. C.D.解析：19.当输入 150 时，下列程序执行后的输出结果为( )。READ(*，*) XY=0.0IF(X.GT.O.0) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITE(*，*) YENDA0.0 B1.0 C2.0 D3.0（分数：1.00）A.B. C.D.解析：20.当输入 1，2，3，4，5，6 下列程序执行后的输出结果为DIMENSION A(2
28、，3) READ(*，*) ACALL SS1(A)ENDSUBROUTINE SS1(B)DIMENSION B(3，2) WRITE(*，*) B(3，1) ENDA2 B3 C4 D5（分数：1.00）A.B.C.D. 解析：21.下列程序执行后的输出结果为( )。F1(X)=2.0/(1.0+X)F2(Y)=F1(Y)*Y+1.0A=F1(1.0)+F2(1.0)WRITE(*，10) A10 FORMAT(IX，E8.2) ENDA3.00 B3.0 C3.00E+00 D0.30E+01（分数：1.00）A. B.C.D.解析：22.阅读下列 FORTRAN 程序：S=1.0DO
29、100 K=3，1，-1DO 100 N=-1，-3100 S=2*SWRITE(*，*) SEND运行上述程序后，输出的 S 值为( )。A1.0 B8.0 C512.0 D4.0（分数：1.00）A.B.C. D.解析：23.阅读下列 FORTRAN 程序：INTEGER A(4，5) DATA A/5*1，5*2，5*3，5*4/M=0DO 10 K=1，410 M=M+A(K，K+1) WRITE(*，*) MEND执行上述程序后，输出的 M 值为( )。A8 B9 C10 D11（分数：1.00）A.B.C. D.解析：24.阅读下列 FORTRAN 程序：INTEGER M(3，3
30、) DATA M/1，2，3，4，5，6，7，8，9/DO 10 1=1，3WRITE(*，100) (M(I，J)，J=1，I)10 CONTINUE10 FORMAT (1X，312) END上述程序执行后，输出结果是( )。A1 4 72 5 83 6 9B1 2 34 5 67 8 9C12 53 6 9D14 57 8 9（分数：1.00）A. B.C.D.解析：25.定义一个长度为 10 的一维整型数组 M，并且要求分别给数组元素赋值为 M(K)=K+1，但 M(10)=1。下列各程序段中错误的是( )。ADIMENSION M(10)M(10)=1DO 10 K=1，1010 M
31、(K)=K+1BDIMENSION M(10)M(10)=1DO 10 K=1，910 M(K)=K+1CDIMENSION M(10)M(10)=1DO 10 K=2，1010 M(K-1) =KDDIMENSION M(10)DO 10 K=1，1010 M(K)=K+1M(10)=1（分数：1.00）A.B.C. D.解析：26.阅读下列 FORTRAN 程序：M=3DO K=1，MM=5WRITE(*，*) K，MENDDOEND上述程序的运行结果是( )。A1 52 53 54 55 5B1 52 53 5C编译出错，不能运行D1 32 33 3（分数：1.00）A.B.C. D.解
32、析：27.阅读下列 FORTRAN 程序：LOGICAL P，QREAD(*，100)P，Q100 FORMAT(2L4) F(P) THENY=1.0ELSE IF(Q) THENY=2.0ELSE IF(.NOT.P.OR.Q)THENY=3.0ELSEY=0.0VENDIFWRITE(*，*) YEND在执行上述程序时，由键盘输入 FABDTXYZ，最后输出的 Y 值为( )。A0.0 B1.0 C2.0 D3.0（分数：1.00）A.B. C.D.解析：28.阅读下列 FORTRAN 程序：PARAMETER(L=3) INTEGER N(L)DATA N/3*0/DO 20 I=1，
33、LDO 20 J=1，LN(J)=N(1) +120 CONTINUEWRITE(*，*) N(L)END上述程序运行后，输出结果是( )。A3 B5 C7 D9（分数：1.00）A.B.C.D. 解析：29.阅读下列 FORTRAN 程序：X=1.0Y=2.0CALL SUB(X，Y，Z，3.0)WRITE(*，100) X，Y，Z100 FORMAT(1X，13.1) ENDSUBROUTINE SUB(A，B，X，Z)A=A+1B=B+2Y=1.0X=Y+ZEND执行上述程序后，输出的结果为( )。A2.05.04.0B4.01.02.0C4.02.04.0D2.04.04.0（分数：1
34、.00）A.B.C. D.解析：30.下列程序执行后的输出结果为( )。K=0DO 10 1=1，6，2DO 10 J=I，6，3IF(K.LT.I*J) K=I*J10 CONTINUEWRITE(*，*) KENDA18 B30 C25 D36（分数：1.00）A.B.C.D. 解析：31.阅读下列 FORTRAN 程序：CHARACTER A*5A=ABCDECALL S(A)ENDSUBROUTINE S(X)CHARACTER X*3WRITE(*，*)XEND执行上述程序后，输出的 X 值为( )。AAB BDE CCDE DABC（分数：1.00）A. B.C.D.解析：32.阅
35、读下列 FORTRAN 程序：INTEGER S(2，4) ，A(2) DATA S/4*1，4*2/CALL SUB(S，2，4，A)M=A(1) -A(2) WRITE(*，*) MENDSUBROUTINE SUB(S，N，K，A)INTEGER S(N，K)，A(N)DO 20 I=1，NA(I)=0DO 10 J=1，K10 A(I)=A(I)+S(I，J)A(I)=A(I)/K20 CONTINUEEND执行上述程序后，输出的 M 值为( )。A0 B1 C2 D3（分数：1.00）A.B. C.D.解析：33.当输入 150H，f1，下列程序执行后的输出结果为( )。READ(*
36、，*) XY=0.0IF(X.GT.O.C) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITE(*，*)YENDA0.0 B1.0 C2.0 D3.0（分数：1.00）A.B.C.D. 解析：34.阅读下列 FORTRAN 程序：DO 20 K=2，5，2S=1.0DO 10 J=K，510 S=S+J20 CONTINUE*WRITE(*，*) SEND执行上述程序后，输出的 S 值为( )。A9.0 B1.0 C24.0 D10.0（分数：1.00）A.B.C.D. 解析：35.阅读下列 FORTRAN 程序：REAL A(5
37、) COMMON /CC/XDATA A/1，2，3，4，5/X=0Y=FUN(A，5) +FUN(A，5) WRITE(*，*) YENDFUNCTION FUN(A，N)REAL A(N)COMMON /CC/XX=X+1F=1DO 10 I=N，1F=F+A(I)10 CONTINUEFUN=F+XEND上述程序执行后，输出结果是( )。A4.0 B5.0 C16.0 D33.0（分数：1.00）A.B. C.D.解析：36.阅读下列 FORTRAN 程序：DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/S=0.0DO 20 K=1，3D=A(K，1) DO 10J=2，4IF(A(K，J)D) D=A(K，J)10 CONTINUES=S+D20 CONTINUEWRITE(*，*) SENDA-15.0 B-12.0 C9.0 D6.0（分数：1.00）A.B. C.D.解析：
