常量的定义: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
结果:

网友评论