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

已知顺序数据文件FILE3．DAT有如下数据： 50，54，64，65 65，70，85，90 46，73，60，72 阅读FORTRAN程序 DIMENSION M(12) OPEN(10，FILE=：FlLE3．DAT，) READ(10，*)(M(I

admin2017-08-07  59
问题 已知顺序数据文件FILE3．DAT有如下数据：
50，54，64，65
65，70，85，90
46，73，60，72
阅读FORTRAN程序
DIMENSION M(12)
OPEN(10，FILE=：FlLE3．DAT，)
READ(10，*)(M(I)，I=1，12)
DO10J=1，12
IF(M(J)．GE．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
解析 数组元素赋值分别为：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/X9ef777K
本试题收录于： 基础考试（上午）题库注册土木工程师（岩土）分类
0

基础考试（上午）

注册土木工程师（岩土）

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