鍍金池/ 教程/ Java/ Fortran常量
Fortran還原功能
Fortran關(guān)系運(yùn)算符
Fortran運(yùn)算符優(yōu)先級
Fortran基本語法
Fortran文件輸入輸出
Fortran嵌套select case結(jié)構(gòu)
Fortran變量
Fortran Cycle語句
Fortran語言環(huán)境設(shè)置
Fortran數(shù)據(jù)類型
Fortran數(shù)組
Fortran字符
Fortran if...else if...else 語句
Fortran調(diào)試程序
Fortran編程風(fēng)格
Fortran if...then語句結(jié)構(gòu)
Fortran嵌套循環(huán)
Fortran常量
Fortran循環(huán)
Fortran導(dǎo)出數(shù)據(jù)類型
Fortran字符串
Fortran操作函數(shù)
Fortran do...while循環(huán)結(jié)構(gòu)
Fortran內(nèi)部函數(shù)
Fortran數(shù)字精度
Fortran選擇決策
Fortran重塑函數(shù)
Fortran運(yùn)算符
Fortran構(gòu)造函數(shù)
Fortran模塊
Fortran位置函數(shù)
Fortran數(shù)字
Fortran指針
Fortran算術(shù)運(yùn)算符
Fortran exit語句
Fortran動態(tài)數(shù)組
Fortran嵌套if結(jié)構(gòu)
Fortran select case結(jié)構(gòu)
Fortran向量和矩陣乘法函數(shù)
Fortran邏輯運(yùn)算符
Fortran if...then...else 結(jié)構(gòu)
Fortran教程
Fortran過程
Fortran Stop語句
Fortran基本輸入輸出
Fortran do循環(huán)結(jié)構(gòu)
Fortran查詢函數(shù)

Fortran常量

常量指的是該程序不能在其執(zhí)行期間改變的固定值。這些固定的值也被稱為文字。

常量可以是任何像一個(gè)整數(shù)的基本數(shù)據(jù)類型的常量,浮點(diǎn)常量,字符常量,復(fù)雜的常量或一個(gè)字符串字面量。只有兩個(gè)邏輯常量:.true. 和 .false.

常量被視為就像普通的變量,但它們的值無法定義后進(jìn)行修改。

命名常量和文字

有兩種類型的常量:

  • 字面常量
  • 命名常量

一個(gè)字面常量有值,但沒有名字。

例如,以下是文字常量:

類型 例子
整型常量 0 1 -1 300 123456789
實(shí)型常量 0.0 1.0 -1.0 123.456 7.1E+10 -52.715E-30
復(fù)數(shù)常量 (0.0, 0.0) (-123.456E+30, 987.654E-29)
邏輯常量 .true. .false.
字符常量

"PQR" "a" "123'abc$%#@!"

" a quote "" "

'PQR' 'a' '123"abc$%#@!'

' an apostrophe '' '

命名常量的值和名稱。

命名常量應(yīng)該在程序或過程的開始聲明,就像一個(gè)變量的類型聲明,說明其名稱和類型。命名常量與參數(shù)屬性聲明。例如,

real, parameter :: pi = 3.1415927

例子

下面的程序計(jì)算的位移,由于重力作用下垂直運(yùn)動。

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

當(dāng)上述代碼被編譯和執(zhí)行時(shí),它產(chǎn)生了以下結(jié)果:

Time = 5.00000000    
Displacement = 127.374992