📅 最后修改于: 2020-11-04 06:13:30 🧑 作者: Mango
常数是指程序在执行过程中无法更改的固定值。这些固定值也称为字面量。
常数可以是任何基本数据类型，例如整数常数，浮点常数，字符常数，复数常数或字符串字面量。只有两个逻辑常量： .true。和.false。
这些常量的处理方式与常规变量相同，只是其值在定义后无法修改。
有两种类型的常量-
字面量常量有一个值，但没有名称。
例如，以下是字面量常量-
| Type | Example |
|---|---|
| Integer constants | 0 1 -1 300 123456789 |
| Real constants | 0.0 1.0 -1.0 123.456 7.1E+10 -52.715E-30 |
| Complex constants | (0.0, 0.0) (-123.456E+30, 987.654E-29) |
| Logical constants | .true. .false. |
| Character constants |
“PQR” “a” “123’abc$%#@!” ” a quote “” “ ‘PQR’ ‘a’ ‘123″abc$%#@!’ ‘ an apostrophe ” ‘ |
命名常量具有值和名称。
命名常量应该在程序或过程的开头声明，就像变量类型声明一样，指出其名称和类型。命名常量用parameter属性声明。例如，
real, parameter :: pi = 3.1415927
以下程序计算在重力作用下垂直运动引起的位移。
program gravitationalDisp
! this program calculates vertical motion under gravity
implicit none
! gravitational acceleration
real, parameter :: g = 9.81
! variable declaration
real :: s ! displacement
real :: t ! time
real :: u ! initial speed
! assigning values
t = 5.0
u = 50
! displacement
s = u * t - g * (t**2) / 2
! output
print *, "Time = ", t
print *, 'Displacement = ',s
end program gravitationalDisp
编译并执行上述代码后，将产生以下结果-
Time = 5.00000000
Displacement = 127.374992