1998~2002年计算机考试二级FORTRAN(含答案).docVIP

1998~2002年计算机考试二级FORTRAN(含答案).doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
1998~2002年计算机二级考试FORTRAN部分 1998年4月二级笔试试题FORTRAN部分 21、下列中,所指定的FORTRAN表达式都是正确的D=B * B - 4 * A * C ②MOD(M,N).NE.O .NOT.FALSE..OR..NOT..TRUE ④A.GT.B.EQ.A.LT.C ⑤π*R**2 ⑥3*E-2 ⑦A.GT.B.EQ..TRUE. ⑧′123′//′ABC′ A、①、②、③ B、⑥、⑦、⑧ C、④、⑤、⑥ D、②、⑥、⑧ 22、执行下列程序,输入3456.789,则输出的结果为。 READ(8 ,100) S WRITE( 8,100)S100 FORMAT(2F4.1)END A.345.6 B.45.6 C.456. D.* * * 23、下列程序执行后输出DIMENSION M(5) READ(*,*)(M(I),I=1,5) DO 10 I=1,5 10 WRITE(*,22)(M(J),J=1,I) 22 FORMAT(1X,3I3) END A、7 B、8 C、9 D、5 24、FORTRAN 77规定,变量类型的优先顺序是 。 A、隐含约定(I-N规则)、Implicit说明、类型说明 B、类型说明、隐含约定(I-N规则)、Implicit说明 C、类型说明、Implicit说明、隐含约定(I-N规则) D、Implicit说明、类型说明、隐含约定(I-N规则) 25、设T=.TRUE.F=.FALSE.下列表达式中值为.TRUE.的是。 A、.T.AND.F.AND.7.GE.4 B、T.AND..NOT.T.AND.T C、((T.OR.F).AND.(T.AND.5.LE.4)).EQV.(.NOT.T.OR.(5.GE.1.AND.F)) D、.NOT.(T.OR.F).NEQV.(T.AND.8-2.EQ.4) 26 、下面循环语句执行后,SUM的值是。 DO 10 I=1,5 SUM=0 DO 10 J=I,4,-1 10 SUM=SUM+I+J A、0.0 B、19.0 C.27.0 D.76.0 27、下列语句中,正确的语句函数定义语句是。 A、FA(I,I)=8*I+I B、FB(B(5),X)=X+B(5) C、FC(X,8.)=X*X-SQRT(8.) D、FD(X)=MOD(X,2.)+SQRT(X) 28、在辅程序单位的各种变元中,一定要在哑元表中出现的是。 A、可调数组名 B、常数组名 C、可调维变量名 D、变量名 29、下列符号名中,可作为有名公用区名的是。 ②数组名 ③外部函数名 ④内部函数名 ⑥主程序名 ⑦语句函数名 A、①、②、③、④ B、①、②、④、⑦ C、①、②、⑥、⑦ D、③、④、⑤、⑥ 30、FORTRAN语言的文件读写单位是 。 A、字节 B、扇区 C、字长 D、记录 1、下述程序执行后,L(3,1)=()L(2,2)= ()L(1,3)=()。 INTEGER L(3,3) DATA L/9*0/ I=2 J=3 L(I,J)=1 DO 10 K=2,9 I=I+1 J=J+1 IF(J.GT.3.AND.I.LE.3)THEN J=1 ELSE IF(J.LE.3.AND.I.GT.3)THEN I=1 ELSE IF(I.GT.3.AND.L(I,J).NE.0).OR.(J.LE.3.AND.I.LE..3.AND.L(I,J).NE.0))THEN I=I-1 J=J-2 ENDIF 10 CONTINUE PRINT′(6X,3I3)′,((L(I,J),J=1,3),I=1,3) END 2、下列程序执行后输出的结果是( ,( )。 FUNCTION F(X,Y) INTEGER F,X,Y X=X+Y Y=X*Y F=X/Y END INTEGER F,FF,FFF DO 10 I=1,0,1 FF=2*F(I,I) 10 PRINT *,FF FFF=F(I,I)+F(I,I) PRINT *,I,FFF END 3、下述程序执行后,输出的第一行是(),第二行是( )。 REAL A(2,2,-1:1) DATA A/1,2,3,4,5,6,1,2,3,4,5,6/ F=FUN(A(1,2,0),3,A(2,1,1)) WRITE(*,′(1X,2HF=,F5.1)′)F END FUNCTION FUN(B,N,C) REAL B(N+1) FUN=3*C DO 11 I=1,N FUN=FUN+B(I) 11 CONTINUE C=B(I) WRITE(*,′(1X,2HC=,F5.1)′)

文档评论(0)

飞扬的岁月 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档