1、计算机程序设计语言（FORTRAN 语言）练习试卷 2 及答案与解析一、单项选择题1 下列程序执行后的输出结果为( )。 F1(X)=2.0/(1.0+X) F2(Y)=F1(Y)*Y+1.0 A=F1(1.0)+F2(1.0) WRITE(*，10) A 10 FORMAT(IX，E8.2) END（A）3.00（B） 3.0（C） 3.00E+00（D）0.30E+012 阅读下列 FORTRAN 程序： S=1.0 DO 100 K=3，1，-1 DO 100 N=-1，-3 100 S=2*S WRITE(*，*) S END 运行上述程序后，输出的 S 值为( )。（A）1.0（B）
2、 8.0（C） 512.0（D）4.03 阅读下列 FORTRAN 程序： INTEGER A(4，5) DATA A/5*1，5*2，5*3，5*4/ M=0 DO 10 K=1，4 10 M=M+A(K，K+1) WRITE(*，*) M END 执行上述程序后，输出的 M 值为( )。（A）8（B） 9（C） 10（D）114 阅读下列 FORTRAN 程序： INTEGER M(3，3) DATA M/1， 2，3，4，5，6，7，8，9/ DO 10 1=1，3 WRITE(*，100) (M(I，J)，J=1 ，I) 10 CONTINUE 10 FORMAT (1X，312) E
3、ND 上述程序执行后，输出结果是( )。（A）1 4 7 2 5 8 3 6 9（B） 1 2 3 4 5 6 7 8 9（C） 1 2 5 3 6 9（D）1 4 5 7 8 95 定义一个长度为 10 的一维整型数组 M，并且要求分别给数组元素赋值为 M (K)=K+1，但 M(10)=1。下列各程序段中错误的是( )。（A）DIMENSION M(10) M(10)=1 DO 10 K=1，10 10 M(K)=K+1（B） DIMENSION M(10) M(10)=1 DO 10 K=1，9 10 M(K)=K+1（C） DIMENSION M(10) M(10)=1 DO 10 K
4、=2，10 10 M(K-1) =K（D）DIMENSION M(10) DO 10 K=1 ，10 10 M(K)=K+1 M(10)=16 阅读下列 FORTRAN 程序： M=3 DO K=1 ，M M=5 WRITE(*，*) K ，M ENDDO END 上述程序的运行结果是( )。（A）1 5 2 5 3 5 4 5 5 5（B） 1 5 2 5 3 5（C）编译出错，不能运行（D）1 3 2 3 3 37 阅读下列 FORTRAN 程序： LOGICAL P，Q READ(*，100)P ，Q 100 FORMAT(2L4) F(P) THEN Y=1.0 ELSE IF(Q)
5、THEN Y=2.0 ELSE IF(.NOT.P.OR.Q)THEN Y=3.0 ELSE Y=0.0 VENDIF WRITE(*，*) Y END 在执行上述程序时，由键盘输入 FABDTXYZ，最后输出的 Y 值为( )。（A）0.0（B） 1.0（C） 2.0（D）3.08 阅读下列 FORTRAN 程序： PAR AMETER(L=3) INTEGER N(L) DATA N/3*0/ DO 20 I=1，L DO 20 J=1，L N(J)=N(1) +1 20 CONTINUE WRITE(*，*) N(L) END 上述程序运行后，输出结果是( )。（A）3（B） 5（C）
6、7（D）99 阅读下列 FORTRAN 程序： X=1.0 Y=2.0 CALL SUB(X，Y ，Z ，3.0) WRITE(*，100) X，Y，Z 100 FORMAT(1X，13.1) END SUBROUTINE SUB(A，B ， X，Z) A=A+1 B=B+2 Y=1.0 X=Y+Z END 执行上述程序后，输出的结果为( )。（A）2.0 5.0 4.0（B） 4.0 1.0 2.0（C） 4.0 2.0 4.0（D）2.0 4.0 4.010 下列程序执行后的输出结果为( )。 K=0 DO 10 1=1，6，2 DO 10 J=I，6，3 IF(K.LT.I*J) K=I
7、*J 10 CONTINUE WRITE(*，*) K END（A）18（B） 30（C） 25（D）3611 阅读下列 FORTRAN 程序： CHAR ACTER A*5 A=ABCDE CALL S(A) END SUBROUTINE S(X) CHARACTER X*3 WRITE(*，*)X END 执行上述程序后，输出的 X 值为( ) 。（A）AB（B） DE（C） CDE（D）ABC12 阅读下列 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(* ，*
8、) M END SUBROUTINE SUB(S，N，K，A) INTEGER S(N，K)，A(N) DO 20 I=1，N A(I)=0 DO 10 J=1，K 10 A(I)=A(I)+S(I，J) A(I)=A(I)/K 20 CONTINUE END 执行上述程序后，输出的 M值为( )。（A）0（B） 1（C） 2（D）313 当输入 150H，f1，下列程序执行后的输出结果为( )。 READ(* ，*) X Y=0.0 IF(X.GT.O.C) THEN Y=1.0 ELSE IF(X.GE.150) THEN Y=2.0 ELSE Y=3.0 END IF WRITE(*，*
9、)Y END（A）0.0（B） 1.0（C） 2.0（D）3.014 阅读下列 FORTRAN 程序： DO 20 K=2 ，5，2 S=1.0 DO 10 J=K，5 10 S=S+J 20 CONTINUE* WRITE(*，*) S END 执行上述程序后，输出的 S 值为( ) 。（A）9.0（B） 1.0（C） 24.0（D）10.015 阅读下列 FORTRAN 程序： REAL A(5) COMMON /CC/X DATA A/1，2，3，4，5/ X=0 Y=FUN(A，5) +FUN(A，5) WRITE(*，*) Y END FUNCTION FUN(A，N) REAL A
10、(N) COMMON /CC/X X=X+1 F=1 DO 10 I=N，1 F=F+A(I) 10 CONTINUE FUN=F+X END 上述程序执行后，输出结果是( )。（A）4.0（B） 5.0（C） 16.0（D）33.016 阅读下列 FORTRAN 程序： DIMENSION A(3，4) DATA A/3*+4.0 ，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K ，1) DO 10J=2，4 IF(A(K，J) D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END（A
11、）-15.0（B） -12.0（C） 9.0（D）6.0计算机程序设计语言（FORTRAN 语言）练习试卷 2 答案与解析一、单项选择题1 【正确答案】 A【知识模块】 计算机程序设计语言(FORTRAN 语言)2 【正确答案】 C【知识模块】 计算机程序设计语言(FORTRAN 语言)3 【正确答案】 C【知识模块】 计算机程序设计语言(FORTRAN 语言)4 【正确答案】 A【知识模块】 计算机程序设计语言(FORTRAN 语言)5 【正确答案】 C【知识模块】 计算机程序设计语言(FORTRAN 语言)6 【正确答案】 C【知识模块】 计算机程序设计语言(FORTRAN 语言)7 【正
12、确答案】 B【知识模块】 计算机程序设计语言(FORTRAN 语言)8 【正确答案】 D【知识模块】 计算机程序设计语言(FORTRAN 语言)9 【正确答案】 C【知识模块】 计算机程序设计语言(FORTRAN 语言)10 【正确答案】 D【知识模块】 计算机程序设计语言(FORTRAN 语言)11 【正确答案】 A【知识模块】 计算机程序设计语言(FORTRAN 语言)12 【正确答案】 B【知识模块】 计算机程序设计语言(FORTRAN 语言)13 【正确答案】 D【知识模块】 计算机程序设计语言(FORTRAN 语言)14 【正确答案】 D【知识模块】 计算机程序设计语言(FORTRAN 语言)15 【正确答案】 B【知识模块】 计算机程序设计语言(FORTRAN 语言)16 【正确答案】 B【知识模块】 计算机程序设计语言(FORTRAN 语言)
