《2022年2022年计算机程序设计语言 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机程序设计语言 .pdf（19页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、计算机程序设计语言(FORTRAN语言 )1. 编译程序能将高级语言编写的源程序转换成。A.解释程序B.汇编程序C.映象程序D.目标程序答案： D2. 一个完整的 FORTRAN 源程序。A.至少包括一个主程序B.至少包括一个主程序和一个子程序C.由一个主程序与一个以上的子程序组成D.由一个主程序与一个子程序组成答案： A3. 语句函数定义语句在程序内合法的位置是。A.在程序块开头语句之后，END语句之前B.在程序块开头语句之后，可执行语句之前C.在说明语句之后， END语句之前D.在说明语句之后，可执行语句之前答案： D4. 下列关于函数子程序虚实参数的错误说法是。A.可以没有形参数B.虚实
2、结合的数组长度可以不同名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 19 页 - - - - - - - - - C.实参表与虚参表类型可以不同D.函数名可以作为虚参答案： C5. 下列叙述中正确的是。A.FORTRAN 程序块中，无名公用语句只能有一个B.FORTRAN 子程序中，至少应有一个RETURN 语句C.FORTRAN 程序块中，最后一行必须是END语句D.FORTRAN 程序块中，必须有变量说明语句答案： C6. 运行下面的程序时得不到所需的结果，其主要原
3、因是。INTEGER X(11) DATA X/9 ，8，7，6，5，4，3，2，1，0，-1/ DO 10 1=1，X(1) ，-1 WRITE(* ，*)1.0/SQRT(25.0 -REAL(X(1) )* * 2) 10 CONTINUE END A.没有给 X(11) 赋初值B.发生除以零的情况C.发生负数开平方的情况D.循环参数设置错误答案： D7. 下列数据中，不符合FORTRAN 常量表示法的是。A.-25.6B.2.758D3名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -
4、- 第 2 页，共 19 页 - - - - - - - - - C.FOOT=D.TRUE答案： D8. 有一段说明语句如下：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的部分元素共用相同的存储单元答案： B9. 在数据块子程序中。A.只能给无名公用区中的成员赋初值B.只能给有名公用区中的成员赋初值C.不分有名或无名，凡是公用区成员皆
5、可赋初值D.只能给公用区中的数组赋初值答案： D10. 下列语句函数的定义中，正确的是。A.FUNCTION(I ，J，K)=I*J+J*J+K*KB.F(X ，Y，Q(I)=SIN(X)+COS(Y)+Q(I)C.S(X ，Y，Z)=(X+Y+Z)* * 2+S(X*X ，Y，Z)D.F(X ，Y)=(X+Y)/X/Y+P名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 19 页 - - - - - - - - - 答案： B11. 对任意输入的 X，下列程序执行后K的值
6、为。READ(* ，*) X K=SIN(X) WRITE(* ，*) K END A.在区间 -1，1中的一个值B.一定等于 0C.在区间 (-1，1) 中的一个值D.K=0或 K=1或 K=-1答案： A12. 设有格式输入语句如下：READ(* ，*，10) X 10 FORMAT(1X ，F5.2) 能使变量 X的值为 2.63 的键盘输入为。A.22.6300B.002630C.2.6300D.263000答案： A13. 当输入 1，2，3，4 下列程序执行后的输出结果为。DIMENSION A(2 ，2) READ(* ，*) A SUM=0 名师资料总结 - - -精品资料欢迎
7、下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 19 页 - - - - - - - - - DO 10 I=1 ，2 DO 20 J=1 ，2 10 A(I，J)=A(I ，J)+I+J WRITE(* ，*) A(1，2) END A.6B.5C.7D.4答案： B14. 阅读下列 FORTRAN 程序：DO I=1 ，5 SUM=SUM+I ENDDO WRITE(* ，*) SUM END 上述程序运行后，输出结果是。A.15B.15.0C.不确定D.0答案： D15. 阅读下列 FORTRAN 程
8、序：S(X)=2*X*X -Y+1.0 DATA A ，B，Y/3*2.0/ P=S(A)*S(B -A)4-S(Y) -S(B) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 19 页 - - - - - - - - - WRITE(* ，*) P END 上述程序运行后，输出的P值为。A.9.0B.-9.0C.7.0D.-7.0答案： A16. 下列程序执行后的输出结果为。CHARACTER *6 S S=ABCDEF CALL SS(S) END SUBROUTI
9、NE SS(S1) CHARACTER S1*3 WRITE(* ，*) S1 END A.ABCB.BCC.CDED.DEF答案： C17. 下列程序的执行结果K是。K=0 DO 10 I=1 ，2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 19 页 - - - - - - - - - DO 10 J=I ，2 10 K=K+I/J WRITE(* ，*)K END A.0B.2C.2.5D.1答案： C18. 下列关于子例行子程序虚实参数的正确说法是。A.应至少
10、有一个形参数B.数组元素可以作为实参C.数组元素可以作为虚参D.常数可以作为虚参答案： B19. 当输入 150 时，下列程序执行后的输出结果为。READ(* ，*) X Y=0.0 IF(X.GT.O.0) THEN Y=1.0 ELSE IF(X.GE.150) THEN Y=2.0 ELSE Y=3.0 END IF 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 19 页 - - - - - - - - - WRITE(* ，*) Y END A.0.0B.1.0
11、C.2.0D.3.0答案： B20. 当输入 1，2，3，4，5，6 下列程序执行后的输出结果为DIMENSION A(2 ，3) READ(* ，*) A CALL SS1(A) END SUBROUTINE SS1(B) DIMENSION B(3 ，2) WRITE(* ，*) B(3，1) END A.2B.3C.4D.5答案： D21. 下列程序执行后的输出结果为。F1(X)=2.0/(1.0+X) F2(Y)=F1(Y)*Y+1.0 A=F1(1.0)+F2(1.0) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - -
12、名师精心整理 - - - - - - - 第 8 页，共 19 页 - - - - - - - - - WRITE(* ，10) A 10 FORMAT(IX ，E8.2) END A.3.00B.3.0C.3.00E+00D.0.30E+01答案： A22. 阅读下列 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.0B.8.0C.512.0D.4.0答案： C23. 阅读下列 FORTRAN 程序：INTEGER A(4 ，5) DATA A/5
13、*1 ，5*2，5*3，5*4/ M=0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 19 页 - - - - - - - - - DO 10 K=1 ，4 10 M=M+A(K，K+1) WRITE(* ，*) M END 执行上述程序后，输出的M 值为。A.8B.9C.10D.11答案： C24. 阅读下列 FORTRAN 程序：INTEGER M(3 ，3) DATA M/1 ，2，3，4，5，6，7，8，9/ DO 10 1=1 ，3 WRITE(* ，100
14、) (M(I，J)，J=1，I) 10 CONTINUE 10 FORMAT (1X ，312) END 上述程序执行后，输出结果是。A.1 4 72 5 8 3 6 9 B.1 2 34 5 6 7 8 9 C.12 5 3 6 9 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 19 页 - - - - - - - - - D.14 5 7 8 9 答案： A25. 定义一个长度为 10 的一维整型数组 M，并且要求分别给数组元素赋值为M(K)=K+1 ，但 M(1
15、0)=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=2 ，10 10 M(K-1) =K D.DIMENSION M(10)DO 10 K=1 ，10 10 M(K)=K+1 M(10)=1 答案： C26. 阅读下列 FORTRAN 程序：M=3 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - -
16、 - - - 名师精心整理 - - - - - - - 第 11 页，共 19 页 - - - - - - - - - DO K=1 ，M M=5 WRITE(* ，*) K，M ENDDO END 上述程序的运行结果是。A.1 52 5 3 5 4 5 5 5 B.1 52 5 3 5 C.编译出错，不能运行D.1 32 3 3 3 答案： C27. 阅读下列 FORTRAN 程序：LOGICAL P，Q READ(* ，100)P，Q 100 FORMAT(2L4) F(P) THEN Y=1.0 ELSE IF(Q) THEN Y=2.0 ELSE IF(.NOT.P.OR.Q)THEN
17、 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 19 页 - - - - - - - - - Y=3.0 ELSE Y=0.0 VENDIF WRITE(* ，*) Y END 在执行上述程序时，由键盘输入FABDTXYZ ，最后输出的 Y值为。A.0.0B.1.0C.2.0D.3.0答案： B28. 阅读下列 FORTRAN 程序：PARAMETER(L=3) INTEGER N(L) DATA N/3*0/ DO 20 I=1 ，L DO 20 J=1 ，L N(
18、J)=N(1) +1 20 CONTINUE WRITE(* ，*) N(L) END 上述程序运行后，输出结果是。A.3B.5C.7D.9名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 19 页 - - - - - - - - - 答案： D29. 阅读下列 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，
19、B，X，Z) A=A+1 B=B+2 Y=1.0 X=Y+Z END 执行上述程序后，输出的结果为。A.2.05.0 4.0 B.4.01.0 2.0 C.4.02.0 4.0 D.2.04.0 4.0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 19 页 - - - - - - - - - 答案： C30. 下列程序执行后的输出结果为。K=0 DO 10 1=1 ，6，2 DO 10 J=I ，6，3 IF(K.LT.I*J) K=I*J 10 CONTINUE
20、WRITE(* ，*) K END A.18B.30C.25D.36答案： D31. 阅读下列 FORTRAN 程序：CHARACTER A*5 A=ABCDE CALL S(A) END SUBROUTINE S(X) CHARACTER X*3 WRITE(* ，*)X END 执行上述程序后，输出的X值为。A.ABB.DEC.CDE名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 19 页 - - - - - - - - - D.ABC答案： A32. 阅读下列 F
21、ORTRAN 程序：INTEGER S(2，4) ，A(2) DATA S/4*1 ，4*2/ CALL SUB(S，2，4，A) M=A(1) -A(2) WRITE(* ，*) 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.0B.1C.2D.3答案： B33. 当输入 150H，f1，下列程序执行后的输出结果为。名师资料总结 - - -精品
22、资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 19 页 - - - - - - - - - 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(* ，*)Y END A.0.0B.1.0C.2.0D.3.0答案： D34. 阅读下列 FORTRAN 程序：DO 20 K=2 ，5，2 S=1.0 DO 10 J=K ，5 10 S=S+J 20 CONTIN
23、UE* WRITE(* ，*) S END 执行上述程序后，输出的S值为。A.9.0B.1.0C.24.0名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 19 页 - - - - - - - - - D.10.0答案： D35. 阅读下列 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) R
24、EAL A(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.0B.5.0C.16.0D.33.0答案： B名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 19 页 - - - - - - - - - 36. 阅读下列 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.-15.0B.-12.0C.9.0D.6.0答案： B名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 19 页 - - - - - - - - -