Fortran - Hằng số

Các hằng số tham chiếu đến các giá trị cố định mà chương trình không thể thay đổi trong quá trình thực thi. Các giá trị cố định này còn được gọi làliterals.

Hằng số có thể thuộc bất kỳ kiểu dữ liệu cơ bản nào như hằng số nguyên, hằng số động, hằng ký tự, hằng số phức hoặc một chuỗi ký tự. Chỉ có hai hằng số logic:.true. và .false.

Các hằng được xử lý giống như các biến thông thường, ngoại trừ việc không thể sửa đổi giá trị của chúng sau khi định nghĩa.

Các hằng số và chữ có tên

Có hai loại hằng số -

Hằng số nghĩa đen
Hằng số được đặt tên

Một hằng số theo nghĩa đen có một giá trị, nhưng không có tên.

Ví dụ, sau đây là các hằng chữ:

Kiểu	Thí dụ
Hằng số nguyên	0 1 -1 300 123456789
Hằng số thực	0,0 1,0 -1,0 123,456 7,1E + 10 -52,715E-30
Hằng số phức tạp	(0,0, 0,0) (-123,456E + 30, 987,654E-29)
Hằng số logic	.thật. .sai.
Hằng số ký tự	"PQR" "a" "123'abc $% # @!" " một câu trích dẫn "" " 'PQR' 'a' '123 "abc $% # @!' 'dấu nháy đơn' '

Hằng số được đặt tên có giá trị cũng như tên.

Hằng số được đặt tên phải được khai báo ở đầu chương trình hoặc thủ tục, giống như khai báo kiểu biến, cho biết tên và kiểu của nó. Các hằng được đặt tên được khai báo với thuộc tính tham số. Ví dụ,

real, parameter :: pi = 3.1415927

Thí dụ

Chương trình sau đây tính toán độ dời do chuyển động thẳng đứng dưới tác dụng của trọng lực.

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

Khi đoạn mã trên được biên dịch và thực thi, nó tạo ra kết quả sau:

Time = 5.00000000    
Displacement = 127.374992