有程序：ADD(X，Y)=X**2+Y

0PEN(8，FILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’,REAL=l6

D0 10 I=1，4

D=ADD(REAL(I)，2、0)WRITE(8，REC=I)D

10 CONTINUE

CLOSE(8)

OPEN(2，FILE=‘F’，STATU=‘0LD’，ACCESS=‘DIRECT’，

* FORM=‘UNFORMATTED’，REAL=6

D020I=2，4，2

READ(2，REC=I)C

WRITE(*，30)C

20 CONTINUE

20 FORMAT(1x，F4．1)

CLOSE(2)

END

执行此程序的结果是：