已知顺序数据文件FILE3.DAT有如下数据:
50,54,64,65
65,70,85,90
46,73,60,72
阅读FORTRAN程序
DIMENSIONM(12)
OPEN(10,FILE=’FILE3.DAT’)
READ(10,*)(M(I),I=1,12)
DO10J=1,12
IF(M(J).G
E.60)N=N+1
10CONTINUE
WRITE(*,20)N
20FORMAT(2x,’N=’,12)
END
程序输出后的结果是:
欢迎免费使用小程序搜题/刷题/查看解析,提升学历,成考自考报名,论文代写、论文查重请加客服微信skr-web
已知顺序数据文件FILE3.DAT有如下数据:
50,54,64,65
65,70,85,90
46,73,60,72
阅读FORTRAN程序
DIMENSIONM(12)
OPEN(10,FILE=’FILE3.DAT’)
READ(10,*)(M(I),I=1,12)
DO10J=1,12
IF(M(J).G
E.60)N=N+1
10CONTINUE
WRITE(*,20)N
20FORMAT(2x,’N=’,12)
END
程序输出后的结果是:
A.N=7
B.N=8
C.N=4
D.N=9
正确答案B
×
提示:小程序已经收录此题,请在小程序查看名师解析。翰林刷小程序提供搜题,刷题,助你轻松通过考试