【工程类职业资格】计算机程序设计语言(FORTRAN语言)及答案解析.doc
《【工程类职业资格】计算机程序设计语言(FORTRAN语言)及答案解析.doc》由会员分享,可在线阅读,更多相关《【工程类职业资格】计算机程序设计语言(FORTRAN语言)及答案解析.doc(26页珍藏版)》请在麦多课文档分享上搜索。
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*
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 工程 职业资格 计算机 程序设计语言 FORTRAN 语言 答案 解析 DOC
