有程序 open(1,file=’datl’,status=’old’) read(1,*)a,b,c read(1,*)x,Y backspace 1 do 10 I=1.9 read(1,*,end=20)x

admin2009-03-08  51

问题 有程序    open(1,file=’datl’,status=’old’)    read(1,*)a,b,c    read(1,*)x,Y    backspace 1    do 10 I=1.9    read(1,*,end=20)x    y=y+x    if(y.ge.19)goto 20    10  continue    20  print*,x    end    数据文件dat1经编辑其内容为    1,2,3    4,5,6    7,8,9    程序执行后,输出结果为(  )。

选项 A、7.0
B、5.0
C、6.0
D、8.0

答案A

解析 考察文件的读取知识,正确答案为(A)。
转载请注明原文地址:https://jikaoti.com/ti/saRhFFFM
0

最新回复(0)