(来学网)有程序：ADD(X，Y)=X**2+Y
OPEN(8，FILE=‘F'，STATUS=‘NEW'，ACCESS=‘DIRECT'，
*FORM=‘UNFORMATTED'，REAL=16
DO 10 I=1，4
D=ADD(REAL(I)，2、0)
WRITE(8，REC=I)D
10 CONTINUE
CLOSE(8)
OPEN(2，FILE=‘F'，STATUS=‘OLD'，ACCESS=‘DIRECT'，
*FORM=‘UNFORMATTFED'，REAL=6
DO 20 I=2，4，2
READ(2，REC=I)C
WRITE(*，30)C
20 CONTINUE
20 FORMAT(1x，F4．1)
CLOSE(2)
END
执行此程序的结果是：