(来学网)阅读下列FORTRAN77程序:
F(X,Y)=X*X+Y*Y
OPEN(8,FILE='FD.DAT',STATUS='NEW',ACCESS='DIRECT',*FORM='UNFORMATTED',RECL=16)
DO10K=1,6
P=F(REAL(K),REAL(K+1))
10 WRITE(8,REC=K)P
CLOSE(8)
OPEN(6,FILE='FD.DAT',STATUS='OLD',ACCESS='DIRECT',*FORM='UNFORMATTED',RECL=16)
DO20K=2,6。2
READ(6,REC=K)T
20 WRITE(*,100)T
100 FORMAT(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