How To Compute Rate of Change (ROC) in Fortran?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

program rate_of_change
    implicit none
    
    real :: initial_value, final_value, roc
    
    ! Input initial and final values
    print*, "Enter the initial value: "
    read*, initial_value
    print*, "Enter the final value: "
    read*, final_value
    
    ! Compute the rate of change
    roc = (final_value - initial_value) / initial_value
    
    ! Output the rate of change
    print*, "The rate of change is: ", roc
    
end program rate_of_change