阅读下列FORTRAN77程序:
F(X,Y)=X*X+Y*Y
OPEN(8,FILE=’FD.DAT,STATUS=’NEW’,ACCESS=’DIRECr’,
*FORM=’UNFORMATTED’,RECL=16)
D010K=1,6
P=F(REAL(K),REAL(K+1))
10WRITE(8,REC=K)P
CLOSE(8)
OPEN(6,FILE=’FD.DAT’,STATUS=’OLD’,ACCESS=’DIRECr’,
*FORM=’UNFORMATTED’,RECL=16)
DO20K=2,6,2
READ(6,REC=K)T
20WRITE(*,100)T
100FORMAT(1X,F4.1)
CLOSE(6)
END
运行上述程序后,输出的结果为()。
A.5.0
13.0
25.0
B.5.0
25.0
61.0
C.13.0
41.0
85.0
D.41.0
61.0
85.0