(2008年) 已知顺序数据文件FILE3.DAT有如下数据: 50,54,64,55 65,70,85,90 46,73,60,72 阅读FORTRAN程序: DIMENSION M(12) OPEN(

admin2014-08-29  26

问题 (2008年)  已知顺序数据文件FILE3.DAT有如下数据:
    50,54,64,55
    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  10 J=1,12
    IF(M(J).GE.60)  N=N+1
    10    CONTONUE
    WRITE(*,20)N
    20    FORMAT(2X,‘N=’,N)
    END
    程序运行后的输出结果是(    )。

选项 A、N=7
B、N=8
C、N=4
D、N=9

答案B

解析 数组元素赋值分别为: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个。
转载请注明原文地址:https://kaotiyun.com/show/Qmlf777K
0

最新回复(0)