已知顺序数据文件FILE3. DAT有如下数据:50,54,64,6565,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M(12)OPENdO,FILE=:FILE3. DAT,)READC10,*)(M(I),I=1,12)D0 10J=1,12 IF (M(J).GE. 60)N=N+1 10 CONTINUE WRITE(*,20)N 20 FORMAT(2X,‘N=,,12)END程序输出后的结果是:A.N=7B.N=8C.N=4D. N=9
已知顺序数据文件FILE3. DAT有如下数据:
50,54,64,65
65,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M(12)
OPENdO,FILE=:FILE3. DAT,)
READC10,*)(M(I),I=1,12)
D0 10J=1,12 IF (M(J).GE. 60)N=N+1 10 CONTINUE WRITE(*,20)N 20 FORMAT(2X,‘N=,,12)
END
程序输出后的结果是:
50,54,64,65
65,70,85,90 46,73,60,72 阅读FORTRAN程序 DIMENSION M(12)
OPENdO,FILE=:FILE3. DAT,)
READC10,*)(M(I),I=1,12)
D0 10J=1,12 IF (M(J).GE. 60)N=N+1 10 CONTINUE WRITE(*,20)N 20 FORMAT(2X,‘N=,,12)
END
程序输出后的结果是:
A.N=7
B.N=8
C.N=4
D. N=9
B.N=8
C.N=4
D. N=9
参考解析
解析:数组元素赋值分别为:M(1) =50,M(2)=54,M(3)=64,M(4)=55,M(5)=65,M(6)=70,M(7)=85,M(8)=90,M(9)=46,M(10)=73,M(11)=60,M(12)=72,
循环判断数组元素的值大于等于60的数,而后记录它们的个数,总共有8个。
答案:B
循环判断数组元素的值大于等于60的数,而后记录它们的个数,总共有8个。
答案:B
相关考题:
CDT/CT数据文件包括() A.MRR_CELL_1648_2009-05-25-23-59-53.dat.gzB.MRR_UE_1648_2009-05-25-23-59-53.dat.gzC.CDT_1871_2009-06-30-00-00-03.dat.gzD.TD_STREAM_ASSO_LOG_INFO_20090513000000.csv.gz
阅读FORTAN程序:OPEN(8,FILE=FILE2.DAT,STATUS:NEW)DO10I=1>3WRITE(8,(4I4))(J+I,J=1,4)10CONTINUECLOSEC8)END程序运行后,数据文件FIFE2.DAT的内容是:
已知顺序数据文件FILEI. DAT的内容如下:1,2,34,5,67,8,9程序:0PEN(9,FILE=FILE1. DAT)READC9, *)A,B,C READ(9,*)X,Y BACKSPACE。)READ(9,*)D,E,F WRITEO,100)D,E,F 100 FOEMAT(2X,3F4.1)END程序运行后的输出结果是:A. 4.0 5.0 6.0B. 5. 0 6. 0 7. 0C. 7.0 8.0 9.0D. 1.0 2.0 3.0
阅读FORTRAN程序:OPEN(8,FILE=FILE2 DAT,STATUS=NEW)DO 10 I=1,3WEITE(8,(4I4)JI+I,J=1,4)10 CONTINUECLOSE(8)END程序运行后,数据文件FILE2,DAT的内容是:
已知顺序数据文件FILE3.DAT 有如下数据: 50,54,64,65 65,70,85,90 46,73,60,72阅读FORTRAN 程序 DIMENSION M(12) OPEN(10,FILE=’FILE3.DAT’) READ(10,*)(M(I),I=1,12) DO 10J=1,12 IF (M(J).GE.60) N=N+110 CONTINUE WRITE(*,20) N20 FORMAT(2x,’N=’,12) END程序输出后的结果是:(A)N=7 (B)N=8(C)N=4 (D)N=9
下列()语句可以完成打开顺序文件“abv.dat”并追加数据。A、Open"abC.dat"ForInputAs#1B、Open"abC.dat"ForOutputAs#1C、Open"abC.dat"ForBinaryAs#1D、D.Open"abdat"ForAppendAs#1
CDT/CT数据文件包括()A、MRR_CELL_1648_2009-05-25-23-59-53.dat.gzB、MRR_UE_1648_2009-05-25-23-59-53.dat.gzC、CDT_1871_2009-06-30-00-00-03.dat.gzD、TD_STREAM_ASSO_LOG_INFO_20090513000000.csv.gz
填空题在VB中的数据文件分为顺序文件和()文件。