网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目内容（请给出正确答案）

提问人：网友suanptzhw 发布时间：2022-01-06

[主观题]

阅读下列FORTRAN程序：X=1.0Y=2.0CALL SUB（X，Y，Z，3.0)WRITE（*，100) X，Y，Z100FORMAT（1X，13.1)ENDSU

阅读下列FORTRAN程序： X=1.0 Y=2.0 CALL SUB(X，Y，Z，3.0) WRITE(*，100) X，Y，Z 100 FORMAT(1X，13.1) END SUBROUTINE SUB(A，B，X，Z) A=A+1 B=B+2 Y=1.0 X=Y+Z END 执行上述程序后，输出的结果为()。

A．2.0 5.0 4.0

B．4.0 1.0 2.0

C．4.0 2.0 4.0

D．2.0 4.0 4.0

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“阅读下列FORTRAN程序：X=1.0Y=2.0CALL SUB（X，Y，Z，3.0)WRITE（*，100) X，Y，Z100FORMAT（1X，13.1)ENDSU”相关的问题

第1题

阅读下列FORTAN77程序：X=1.0Y=3.0Z=P(X，Y)WRITE(*，100)X，Y，Z100 FORMAT(1X，3F6.2)ENDFUNCTIONP(T，W)T=T+WW=T+WP=T+WEND上述程序运行后，输出结果为()。

A.6.00 6.00 9.00

B.4.00 7.00 11.00

C.8.00 7.00 9.00

D.2.00 6.00 8.00

点击查看答案

第2题

阅读下列FORTRAN程序：CHARACTER A*5A='ABCDE'CALLS（A)ENDSUBROUTINES（X)CHARACTER X*3WRITE（*，*)

阅读下列FORTRAN程序： CHARACTER A*5 A='ABCDE' CALL S(A) END SUBROUTINE S(X) CHARACTER X*3 WRITE(*，*)X END 执行上述程序后，输出的X值为()。

A．'AB

B．DE'

C．CDE

D．ABC

点击查看答案

第3题

阅读下列FORTRAN程序：DIMENSIONA（3)DATAA/3.0，2.0，1.0/X＝F（A) WRITE（*，100)X100FORMAT（1X，F3.1)E

阅读下列FORTRAN程序：

DIMENSIONA(3)

DATAA/3.0，2.0，1.0/

X＝F(A)

WRITE(*，100)X

100FORMAT(1X，F3.1)

END

FUNCTIONF(B)

DIMENSIONA(3)，B(3)

DO10I＝1，3

10A(1)＝B(1)-I

F＝A(1)+A(2)+A(3)

X＝1.0-F

END

执行上述程序后，输出的X值为()。

(A) 1.0

(B) 0.0

(D) -5.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程序：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

点击查看答案

第6题

阅读下列FORTRAN程序： INTEGER X（7) DATA X／4，5，7，8，l0，12，11／ D0 10 K=1。7 IF（MOD（X（K)，2)．N

阅读下列FORTRAN程序：

INTEGER X(7)

DATA X／4，5，7，8，l0，12，11／

D0 10 K=1。7

IF(MOD(X(K)，2)．NE．O)THEN‘

S—S+X(K)

N=N+1

END IF

10 CONTINUE

T—S／N

WRITE(*，20)S，T

20 FORMAT(20X，3F6．1)

END

程序运行后的输出结果是()：

A.23．0 7．7

B.47．0 6．7

C.34．0 8．5

D.57．0 11．4

点击查看答案

第7题

阅读下列FORTRAN程序:READ(*,10)A,B,C10FORMAT(1X,F3.1,2X,2F3.2)WRITE(*,*)BEND如果在执行该程序时从键盘输入1234567890↙(其中↙为回车键)则运行后输出的B值为：()。

A.7.89

B.6.78

C.4.56

D.0.67

点击查看答案

第8题

阅读下列FORTRAN程序INTEGERX（3，3)，ADATA X/1，2，3，4，5，6，7，8，9/DO 10 I=1，3DO 10 J=I+1，3A=X（I，J

阅读下列FORTRAN程序

INTEGERX(3，3)，A

DATA X/1，2，3，4，5，6，7，8，9/

DO 10 I=1，3

DO 10 J=I+1，3

A=X(I，J)

X(I，J)=x(J，I)

X(J，I)=A

10 CONTINUE

20 WRITE(*，20)((X(I，J)，J：l=3)，I=1，3)

20 FORMAT(1X，3I2)

END

运行上述程序后，其输出是()。

(A) 1 4 7

2 5 8

3 6 9

(B) 1 2 3

4 5 6

7 8 9

8 5 2

7 4 3

(D) 9 8 7

6 5 4

3 2 1

点击查看答案

第9题

阅读下列FORTRAN程序INTEGER X(3,3),ADATA X/1,2,3,4,5,6,7,8,9/DO 10 I=1,3DO 10 J=I+1,3A=X(I,J)X(I,J)=X(J,I)X(J,I)=A10 CONTINUEWRITE(*,20)((X(I,J),J=1,3),I=1,3)20 FORMAT(1x,312)END运行上述程序后，其输出是()。

A.1 4 72 5 83 6 9

B.1 2 34 5 67 8 9

C.9 6 18 5 27 4 3

D.9 8 76 5 43 2 1

点击查看答案

第10题

阅读以下 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

(D)10.0

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

辽宁省2024年普通高等学校专升本招生考试考前提醒广东省自考成绩查询步骤一览 2024年10月黑龙江自考登录入口及官方网址查询四川成人高考专升本毕业需要考英语三四级吗？,，四川成人高考差几分过线有机会录取吗 24上半年北京自学考试成绩查询入口详解 2024年10月河北自考报名需要什么条件考试要求是什么四川省30岁初中毕业想提高学历怎么办？,，四川省初中生提升学历学什么专业好点？ 2024年上半年河北自考成绩查询系统入口开通时间：5月10日17:00后甘肃2024年10月自考报名时间及具体时间北京2024黏4月自考本科成绩查询时间是何时？6月6日

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

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