中南大学FORTRAN程序设计实验设计及报告.docVIP

PROGRAM MAIN DIMENSION X(10),Y(10),S(9) REAL(8) S1(6,6),S2(6),A(6),JS(6) REAL(8) X,Y,S,R N=5 K=1 OPEN(10,FILE=X.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) DO I=1,10 X(I)=10.0*I WRITE(10,100,REC=I)X(I) END DO OPEN(20,FILE=Y.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) WRITE(20,200,REC=1)6.0 WRITE(20,200,REC=2)14.0 WRITE(20,200,REC=3)26.0 WRITE(20,200,REC=4)33.0 WRITE(20,200,REC=5)46.0 WRITE(20,200,REC=6)54.0 WRITE(20,200,REC=7)67.0 WRITE(20,200,REC=8)75.0 WRITE(20,200,REC=9)84.0 WRITE(20,200,REC=10)100.0 OPEN(30,FILE=S.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) DO I=1,9 S(I)=5.0+10.0*I WRITE(30,100