编辑代码

    PROGRAM T2
        IMPLICIT NONE
        REAL,PARAMETER::h=0.001
        REAL  F
        REAL ::X=0.0,Y=1.0
        INTEGER I
        OPEN(1,FILE='DATA1.TXT')
    
        DO I=1,1000
           Y=Y+h * F(X,Y)
           X=X+h
           PRINT*,X,",",Y
           WRITE(1,10),X,Y
     FORMAT(F10.6,2X,F10.6)
        END DO
    
    END  
    
        FUNCTION F(X,Y)
          REAL  F
          REAL  X,Y
          
          F=Y
        END FUNCTION