fortran每句话意思open(1.file='dat1',status='old')read(1,*)a,b,cread(1,*)x,ybackspace1do10I=1,9read(1,*,end=20)xy=y+xif(y.ge.19)goto2010continue20print*,xenddat1内容为1,2,34,5,67,8,9

Question

fortran 每句话意思
open(1.file=' dat1',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

Answer 1

打开1通道的dat1文件
把第一行的三个数读入,给a,b,c
读入第二行给x,y
返回文件的上一行
1到9的循环
{读入x,并且如果数是文件的末尾的话,则跳到20的那行执行
求y的值,y=y+x
判断如果y大于等于19,则跳到20 的那行执行
}循环结束
20的行（输出x）
结束