👩‍🏫Fortran--数据类型：常量

常量的定义：real::parameter

program gravitationalDisp
    
    implicit none
    
    real,parameter :: g = 9.81
    
    real :: s
    real :: t
    real :: u
    
    t = 5.0
    u = 50
    
    s = u*t - g*(t**2)/2
    
    print *,"Time = ",t
    print *,'Displacement = ',s
    read*
    end program gravitationalDisp

结果：