- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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)