(来学网)F(X,Y)=X*X+Y*Y
OPEN(8,FILE='FD.DAT',STATUS='NEW',ACCESS='DIRECT',
*FORM='UNFORMATTED',RECL=16)
D010K=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)
DO 20 K=2,6,2
READ(6REC=K)T
20 WRITE(*,100)T
100 FORMAT(1X,F4.1)
CLOSE(6)
END
运行上述程序后,输出的结果为( )。
  • A.
    (来学网)5.013.041.0
  • B.
    (来学网)13.041.085.0
  • C.
    (来学网)5.025.061.0
  • D.
    (来学网)13.025.061.0