【单选题】
阅读下列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 运行上述程序后,输出的结果为()。 (
参考答案:
参考解析:
举一反三