题目内容 (请给出正确答案)
提问人:网友wastelandxf 发布时间:2022-01-07
[主观]

阅读下列FORTRAN77程序:F(X,Y)=X*X+Y*YOPEN(8,FILE='FD.DAT,STATUS='NEW',ACCESS='DIRECr',*FORM

阅读下列FORTRAN77程序:

F(X,Y)=X*X+Y*Y

OPEN(8,FILE='FD.DAT,STATUS='NEW',ACCESS='DIRECr',

*FORM='UNFORMATTED',RECL=16)

D010K=1,6

P=F(REAL(K),REAL(K+1))

10WRITE(8,REC=K)P

CLOSE(8)

OPEN(6,FILE='FD.DAT',STATUS='OLD',ACCESS='DIRECr',

*FORM='UNFORMATTED',RECL=16)

DO20K=2,6,2

READ(6,REC=K)T

20WRITE(*,100)T

100FORMAT(1X,F4.1)

CLOSE(6)

END

运行上述程序后,输出的结果为()。

(A) 5.0

13.0

25.0

(B) 5.0

25.0

61.0

(C) 13.0

41.0

85.0

(D) 41.0

61.0

85.0

简答题官方参考答案 (由简答题聘请的专业题库老师提供的解答)
更多“阅读下列FORTRAN77程序:F(X,Y)=X*X+Y*YOPEN(8,FILE='FD.DAT,STATUS='NEW',ACCESS='DIRECr',*FORM”相关的问题
第1题
阅读下列FORTRAN77程序: READ(*,*)A B=0.0 IF (A.GE.1.0) THEN B=B+2.0 END IF IF (A.GE.2.0) B=B-1.0 WRITE(*,*) B END 在执行时,从键盘输入 5.0<回车>则输出的B值为

A. 2.0

B. -1.0

C. 0.0

D. 1.0

点击查看答案
第2题
阅读下列FORTRAN77程序: READ(*,*) P,Q X=MOD(Q,P) 10 IF (ABS(X).GT.0.1) THEN Q=P P=X X=MOD(Q,P) GOTO 10 END IF WRITE(*,*) P END 运行上述程序时,如果从键盘输入 5.7,2.4<回车>则最后输出的P值为

A. 2.4

B. 0.9

C. 0.6

D. 0.3

点击查看答案
第3题
阅读下列FORTRAN77程序: READ(*,100) X,Y,Z,S WRITE(*,*) S 100 FORMAT(F2.1,3(1X,F3.1)) END 运行上述程序时,如果从键盘输入 9876543210987654321<回车>则最后输出的S值为

A. 9.8

B. 98.7

C. 8.7

D. 87.6

点击查看答案
第4题
阅读下列FORTRAN 程序: N=0 DO K=1,3 N=N+K ENDDO PRINT*,N,K END 执行上述程序后,输出的结果为: 。 [A] 3 3 [B] 3 4 [C] 6 3 [D] 6 4

A、错误

B、错误

C、错误

D、正确

点击查看答案
第5题
阅读下列FORTRAN77程序: READ(*,*) M N=1 K=N 10 IF (K.LT.M) THEN N=N*K K=K+1 GOTO 10 END IF WRITE(*,*) N END 在执行上述程序时,如果从键盘输入 6<回车>则执行后输出的N值为

A. 720

B. 120

C. 96

D. 24

点击查看答案
第6题
阅读下列FORTRAN77程序: P=0.0 DO 20 N=2,6,2 P=P+1/N 20 CONTINUE WRITE(*,*) P END 运行上述程序后,输出的P值为

A. 0.0

B. 0.5

C. 0.75

D. 0.91

点击查看答案
第7题
阅读下列程序,回答问题 module abc #( parameter N = 8 ) // N >= 4 ( input clk, input si, input rst, output reg[N-1:0] q ); always @(posedge clk,posedge rst) if(rst) q <= 0; else q="{q[N-2:0],si};" endmodule 问题1: rst是同步复位还是异步复位? 问题2:上述程序中描述了多个寄存器? 问题3:描述的是什么功能(在10个字内回答)>
点击查看答案
第8题
阅读下列FORTRAN程序段 integer:: i,j,k=0 do i = 1,5,2 do j = 3, 1,-1 k = k+1 enddo enddo 上述程序段执行完后K的值是 A) 6 B) 7 C)8 D)9

A、不正确

B、不正确

C、不正确

D、正确。内、外循环次数已知时,总循环次数等于内循环次数乘以外循环次数。

点击查看答案
第9题
阅读下列FORTRAN77程序段:

S=0.0

DO10J=0,N

S=S+X

X=X+0.5

10CONTINUE

下面程序段中与上述程序段等价的是()。

(A)

S=X

J=0

101F(J.LT.N)THEN

X=X+0.5

S=S+X

J=J+1

GOT010

ENDIF

(B)

S=0.0

J=0

101F(J.LE.N)THEN

J=J+1

S=S+X

X=X+0.5

GOT010

END IF

(C)

S=0.0

J=0

10S=S+K

J=J+1

X=X+0.5

1F(J.LE.N)GOTO10

(D)

S=X

J=0

10X=X+0.5

S=S+X

J=J+1

1F(J.LT.N)GOTO10

点击查看答案
第10题
阅读下列FORTRAN77程序: DIMENSION M(3,4) DATA M/4*2,4*1,4*-1/ N=0 DO 10 K=1,3 10 N=N+M(K,K) WRITE(*,*) N END 运行上述程序后,输出的N值为

A. 8

B. 5

C. 4

D. 2

点击查看答案
客服
TOP
欢迎分享答案

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

简答题官方微信公众号

我知道了
开通会员查看答案
该问题答案仅针对会员开放,请开通会员。
选择支付方式 (温馨提示:支付后,系统将为您自动完成注册)
微信支付
支付宝支付
提示:点击支付即表示你同意并接受《服务协议》和《会员须知
立即支付 已付款,但不能查看答案,请点这里登录即可 > >
请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服

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

订单号:
支付后,系统自动为您完成注册
遇到问题请联系在线客服

扫码关注微信公众号

开通微信扫码登录功能

恭喜您,购买会员成功 系统为您生成的账号密码如下:
重要提示: 请勿将会员账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改