(来学网)有程序: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
执行此程序的结果是:
- A.
(来学网)3.0
11.0
- B.
(来学网)6.0
11.0
- C.
(来学网)6.0
18.0
- D.
(来学网)11.0
18.0