搜题
网友您好,请在下方输入框内输入要搜索的题目:
搜题
题目内容 (请给出正确答案)
提问人:网友lyftcs 发布时间:2022-01-06
[主观题]

阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(Kl+K2+K3)WRITE(*,100)K4100 FORMAT

阅读以下FORTRAN程序:

K1=M(5)

K2=M(K1)

K3=M(K1)+M(K2)

K4=M(Kl+K2+K3)

WRITE(*,100)K4

100 FORMAT(2X,’K4=’,l3)

END

FUNCTl0N M(N)

M=N+1

RETURN

END

程序的输出结果是()。

A.K4=28

B.K4=27

C.K4=30

D.K4=29

简答题官方参考答案 (由简答题聘请的专业题库老师提供的解答)
查看官方参考答案
更多“阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(Kl+K2+K3)WRITE(*,100)K4100 FORMAT”相关的问题
第1题
阅读以下FORTRAN程序:K1=M(5)K2=M(K1)K3=M(K1)+M(K2)K4=M(Kl+K2+K3)WRITE(*,100)K4100 FORMAT

阅读以下FORTRAN程序:

K1=M(5)

K2=M(K1)

K3=M(K1)+M(K2)

K4=M(Kl+K2+K3)

WRITE(*,100)K4

100 FORMAT(2X,’K4=’,l3)

END

FUNCTl0N M(N)

M=N+1

RETURN

END

程序的输出结果是()。

A.K4=28

B.K4=27

C.K4=30

D.K4=29

点击查看答案
第2题
(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

点击查看答案
第3题
阅读以下FORTRAN程序:READ(*,*)M,NK=MOD(M,N)10IF(K.GT.0)THENM=NN=KK=MOD(M,N)COTO10ENDIFWRITE

阅读以下FORTRAN程序:

READ(*,*)M,N

K=MOD(M,N)

10IF(K.GT.0)THEN

M=N

N=K

K=MOD(M,N)

COTO10

ENDIF

WRITE(*,*)N

END

若运行以上程序时,由键盘输入:25,11则程序输出为()。

(A)3

(B)2

(C)1

(D)0

点击查看答案
第4题
阅读下列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

点击查看答案
第5题
阅读以下FORTRAN程序 READ(*,*)M,NK=MOD(M,N)M=NN=KK=MOD(M,N)GOTO 10END IFWRITE(*,*)NEND若运

阅读以下FORTRAN程序

READ(*,*)M,N

K=MOD(M,N)

M=N

N=K

K=MOD(M,N)

GOTO 10

END IF

WRITE(*,*)N

END

若运行以上程序时,由键盘输入25,11,则程序输出为()。

A.3

B.2

C.1

D.0

点击查看答案
第6题
阅读下列FORTRAN程序: I=1; J=1; M=4; N=4 IF(I==1)THEN IF(J==0)THEN M=M+1 ELSE IF(J==1)THEN N=N+1 END IF ELSE M=M+1 N=N-1 END IF PRINT *, M, N END 执行上述程序后,输出的结果为: 。 [A] 4 4 [B] 4 5 [C]5 4 [D]5 3

A.不正确

B.正确

C.不正确

D.不正确

点击查看答案
第7题
阅读下列FORTRAN程序: i=1; j=0; m=3; n=4 select case(i) case(1) select case(j) case(0) m=m+
1 case(1) n=n+1 end select case(2) m=m+1 n=n-1 end select print *, m, n end 执行上述程序后,输出的结果为: A)4 4 B)4 5 C)5 4 D)9 13

A、正确

B、不正确

C、不正确

D、不正确

点击查看答案
第8题
阅读以下 FORTRAN 程序:READ(* , *)XIF(X , LE , 0)RHENY=0.0ELSEIF(X , LT , 5 , 0) , AND , (X

阅读以下 FORTRAN 程序:

READ(* , *)X

IF(X , LE , 0)RHEN

Y=0.0

ELSEIF(X , LT , 5 , 0) , AND , (X , NE , 2 , 0)THEN

Y=1 / X

ELSEIF(X , LE , 10 , 0)THEN

Y=1 / (X+2)

ELSE

Y=10.0

ENDIF

WRITE

WRITE(* , *)Y

END

运行上述程序时,若由键盘输入: 2 ,则程序输出结果为 () 。

(A)0.0

(B)0.5

(C)0.25

(D)10.0

点击查看答案
第9题
(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

点击查看答案
第10题
阅读下列FORTRAN程序:INTEGERS(2,4) ,A(2)DATAS/4*1,4*2/CALLSUB(S,2,4,A)M=A(1) -A(2)WRITE(*,*

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

B.1

C.2

D.3

点击查看答案
第11题
(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

点击查看答案
重要提示: 请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案
购买前请仔细阅读《购买须知》
请选择支付方式
微信支付
支付宝支付
点击支付即表示你同意并接受《服务协议》《购买须知》
立即支付
搜题卡使用说明

1. 搜题次数扣减规则:

功能 扣减规则
基础费
(查看答案)
加收费
(AI功能)
文字搜题、查看答案 1/每题 0/每次
语音搜题、查看答案 1/每题 2/每次
单题拍照识别、查看答案 1/每题 2/每次
整页拍照识别、查看答案 1/每题 5/每次

备注:网站、APP、小程序均支持文字搜题、查看答案;语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP(或打开微信小程序)。

3. 搜题卡过期将作废,不支持退款,请在有效期内使用完毕。

请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

- 微信扫码关注简答题 -
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
- 微信扫码关注简答题 -
请用微信扫码测试
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

简答题
下载APP
关注公众号
TOP