首页 > 建筑工程类考试> 注册公用设备工程师
题目内容 (请给出正确答案)
[主观题]

阅读下列FORTRAN程序:DO20K=2,5,2S=1.0DO10J=K,510S=S+J20CONTINUE*WRITE(*,*) SEND执行上述程序

阅读下列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.0

查看答案
答案
收藏
如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“阅读下列FORTRAN程序:DO20K=2,5,2S=1.0…”相关的问题
第1题
阅读下列FORTRAN程序:DOI=1,5SUM=SUM+IENDDOWRITE(*,*) SUMEND上述程序运行后,输出结果是()。A.15

阅读下列FORTRAN程序: DO I=1,5 SUM=SUM+I ENDDO WRITE(*,*) SUM END 上述程序运行后,输出结果是()。

A.15

B.15.0

C.不确定

D.0

点击查看答案
第2题
(2008年) 阅读下列FORTRAN程序: MQIUH=N(5)+N(10) WRITE(*,‘(2X,15)’)MQIUH END

(2008年) 阅读下列FORTRAN程序: MQIUH=N(5)+N(10) WRITE(*,‘(2X,15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1,K N=N+J 10 CONTINUE RETURN END 程序运行后的输出结果是()。

A.65

B.85

C.90

D.70

点击查看答案
第3题
阅读下列FORTRAN程序: S=1.0 DO100K=3,1,-1 DO100N=-1,-3100S=2*S WRITE(*,*) S END运行上述程序

阅读下列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.8.0

C.512.0

D.4.0

点击查看答案
第4题
阅读下列FORTRAN程序:S(X)=2*X*X-Y+1.0DATAA,B,Y/3*2.0/P=S(A)*S(B-A)4-S(Y)-S(B)WRITE(*,*) PEN

阅读下列FORTRAN程序: 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) WRITE(*,*) P END 上述程序运行后,输出的P值为()。

A.9.0

B.-9.0

C.7.0

D.-7.0

点击查看答案
第5题
阅读下列FORTRAN程序:DIMENSIONA(3,4)DATAA/3*+4.0,3*-3.0,3*-2.0,3*-1.0/S=0.0DO20K=1,3D=A(K,1

阅读下列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.0

B.-12.0

C.9.0

D.6.0

点击查看答案
第6题
(2008年)阅读下列FORTRAN程序: DIMENSION M(4,3) DATE M/-10,12,24,11,20,-15,61,78,9

(2008年)阅读下列FORTRAN程序: DIMENSION M(4,3) DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/ N=M(1,1) DO 10 I=1,4 DO 10 J=1,3 IF (M(I,J).LT.N)THEN N=M(I,J) K1=I K2=J ENFIF 10 CONTINUE WRITE(*,‘(2x,314)’)N,K1,K2 END 程序运行后的输出结果是()。

A.93,3,1

B.-10,1,1

C.-45,4,3

D.78,3,2

点击查看答案
第7题
阅读下列FORTRAN程序:REALA(5)COMMON/CC/XDATA A/1,2,3,4,5/X=0Y=FUN(A,5) +FUN(A,5)WRITE(*,*)

阅读下列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(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.0

点击查看答案
第8题
阅读下列FORTRAN程序:LOGICAL P,QREAD(*,100)P,Q100FORMAT(2L4)F(P) THENY=1.0ELSE IF(Q) THENY=

阅读下列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 Y=3.0 ELSE Y=0.0 VENDIF WRITE(*,*) Y END 在执行上述程序时,由键盘输入FABDTXYZ,最后输出的Y值为()。

A.0.0

B.1.0

C.2.0

D.3.0

点击查看答案
第9题
阅读下列FORTRAN程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO101=1,3WRITE(*,100) (M(I,J),J=1

阅读下列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) END 上述程序执行后,输出结果是()。

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 9

点击查看答案
第10题
(2008年) 阅读下列FORTRAN程序: DIMENSION M(6) READ (*,*)M DO 10 J=1,6

(2008年) 阅读下列FORTRAN程序: DIMENSION M(6) READ (*,*)M DO 10 J=1,6 D0 10 K=J,6 IF(M(K).LTM(J)THEN N=M(K) M(K)=M(J) END IF 10 CONTINUE WRITE(*,100)(M(I),I=1,6) 100 FORMAT(2X,614) END 键盘输入10、7、9、2、1、3;程序运行后的输出结果是()。

A.1 2 3 7 9 10

B.10 9 7 3 2 1

C.7 9 2 1 3 10

D.3 1 2 9 7 10

点击查看答案
退出 登录/注册
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改