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

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

admin2014-08-29  53
问题 (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/Nblf777K
本试题收录于： 基础考试（上午）题库注册土木工程师（岩土）分类
0

基础考试（上午）

注册土木工程师（岩土）

相关试题推荐
随机试题
最新回复(0)