Fortran

Bách khoa toàn thư mở Wikipedia
Bước tới: menu, tìm kiếm
Fortran
Fortran acs cover.jpeg
Phần mở rộng thường gặp .f, .for, .f90, .f95
Mô hình lập trình Multi-paradigm programming language: Lập trình cấu trúc, Imperative programming (Lập trình thủ tục, Lập trình hướng đối tượng), Generic programming
Xuất hiện vào 1957
Thiết kế bởi John Backus
Nhà phát triển John Backus & IBM
Phiên bản mới nhất Fortran 2008 (ISO/IEC 1539-1:2010) sửa dữ liệu
Kiểm tra kiểu Kiểu mạnh và kiểu yếu, Type system, Manifest typing
Hiện thực Absoft Fortran Compilers, Cray, Gfortran, G95, IBM, Intel Fortran Compiler, Hitachi, Lahey/Fujitsu, Numerical Algorithms Group, Watcom C/C++ compiler, PathScale, The Portland Group, Silverfrost FTN95, Oracle Solaris Studio, Visual Fortran, others
Ảnh hưởng từ Speedcoding
Ảnh hưởng tới ALGOL 58, BASIC, C (ngôn ngữ lập trình), PL/I, PACT (compiler), MUMPS, Ratfor

Fortran (hay FORTRAN) là một ngôn ngữ lập trình biên dịch, tĩnh, kiểu mệnh lệnh được phát triển từ thập niên 1950 và vẫn được dùng nhiều trong tính toán khoa học hay phương pháp số cho đến hơn nửa thế kỷ sau đó. Tên gọi này ghép lại từ tiếng Anh Formula Translator/Translation nghĩa là dịch công thức. Các phiên bản đầu có tên chính thức là FORTRAN, nhưng chữ hoa được chuyển sang chữ thường từ phiên bản Fortran 90. Tiêu chuẩn quốc tế cho tên gọi này ngày nay là "Fortran".

Fortran được phát triển ban đầu như là một ngôn ngữ thủ tục. Tuy nhiên các phiên bản mới của Fortran (từ Fortran 90) đã có các tính năng hỗ trợ lập trình hướng đối tượng.

Lịch sử[sửa | sửa mã nguồn]

Một số phiên bản Fortran tiêu biểu:

  • Fortran IV
  • Fortran 77
  • Fortran 90
  • Fortran 95
  • Fortran 2003

Cú pháp[sửa | sửa mã nguồn]

Các phiên bản cũ hơn cho đến Fortran 77 có sử dụng định dạng theo cột (fixed column) theo quy định:

  • Cột thứ 7 đến 72 dành cho các câu lệnh
  • Cột thứ 1 đến 5 dành cho nhãn lệnh. Nhãn lệnh là những số nguyên đứng đầu dòng lệnh, và trong Fortran không nhất thiết phải theo thứ tự tăng dần.
  • Cột thứ 6 dành cho kí tự nối dòng (nếu cần thiết).

Các phiên bản mới hơn (từ Fortran 90 trở đi) cho phép dùng định dạng tự do (free-form), không có ràng buộc về vị trí các cột trong chương trình. Dưới đây sẽ trình bày một số ví dụ cú pháp theo định dạng tự do này.

Lệnh gán[sửa | sửa mã nguồn]

Dạng của lệnh gán tương tự như ngôn ngữ lập trình BASIC:

! Tên_biến = Giá_trị
A = 5
LoiChao = "Hello"

Lệnh gọi chương trình con[sửa | sửa mã nguồn]

Các chương trình con được gọi bằng lệnh CALL:

! CALL tenCTC tham_so1, tham_so2,...

Các cấu trúc[sửa | sửa mã nguồn]

Rẽ nhánh
IF T > 1.0 THEN
   W = 23.7 * T
ELSE
   W = 23.7 * (T ** 0.75)
END IF
Lặp
DO I = 1, N
   B(I) = 2.8 * (I - 0.3)
END DO

Ví dụ[sửa | sửa mã nguồn]

Chương trình "Chào Thế Giới"[sửa | sửa mã nguồn]

Chương trình "Hello" có thể chạy được sau khi dịch bằng bất cứ trình dịch nào kể từ Fortran 90 trở đi.

  1. program chaothegioi
    
  2. print*,"Chao The Gioi!"
    
  3. end program chaothegioi
    

Chương trình tìm diện tích hình trụ[sửa | sửa mã nguồn]

Chương trình này, tính diện tích của hình trụ, chạy khi được dịch bởi bất cứ trình dịch nào kể từ Fortran 90 trở đi. Các chữ đứng sau dấu ! trên cùng dòng sẽ không được dịch, và coi như chú thích của người viết chương trình, để giúp người đọc dễ hiểu hơn.

  1. program HinhTru
    
  2. ! Tinh dien tich Hinh tru.
    
  3. !
    
  4. ! Khai bao bien.
    
  5. implicit none ! Yeu cau moi bien can duoc khai bao -- danh cho Fortran 90.
    
  6. integer:: Loi
    
  7. real:: BanKinh,ChieuCao,DienTich
    
  8. real, parameter:: Pi = 3.14159
    
  9. do
    
  10.    ! Nhac nguoi dung nhap Ban kinh va Chieu cao.
    
  11.    write (*,*) "Nhap Ban kinh va Chieu cao, nhan 't' de thoat."
    
  12.    read (*,*,iostat=Loi) BanKinh,ChieuCao
    
  13.    ! 
    
  14.    ! Neu khong nhap duoc, thoat.
    
  15.    if (Loi /= 0) stop "thoat"
    
  16.    !
    
  17.    ! Tinh dien tich. Ky hieu ** nghia la "luy thua".
    
  18.    DienTich = 2*Pi*(BanKinh**2 + BanKinh*ChieuCao)
    
  19.    !
    
  20.    ! Viet (BanKinh, ChieuCao) va (DienTich) ra man hinh.
    
  21.    write (*,"(1x,'BanKinh=',f6.2,5x,'ChieuCao=',f6.2,5x,'DienTich=',f6.2)") BanKinh,ChieuCao,DienTich
    
  22. end do
    
  23. end program HinhTru
    

Chú ý: câu lệnh

 write (*,"(1x,'BanKinh=',f6.2,5x,'ChieuCao=',f6.2,5x,'DienTich=',f6.2)") BanKinh,ChieuCao,DienTich

có sử dụng khai báo định dạng trong Fortran. Có thể giải thích sơ lược như sau:

  • 1x nghĩa là một kí tự trống. Số kí tự trống cần in ra đi trước chữx.
  • f6.2 tương ứng với số thực có 6 chữ số, trong đó 2 chữ số trong phần thập phân.

Kiểu định dạng chuỗi này của riêng Fortran, nó rất khác so với chuẩn định dạng printf của ngôn ngữ lập trình C vốn được sử dụng rộng rãi.

Tham khảo[sửa | sửa mã nguồn]

  • Adams, Jeanne; Brainerd, Walter; Martin, Jeanne; Smith, Brian; Wagener, Jerrold (1997). Fortran 95 Handbook: Complete ISO/ANSI Reference. MIT Press.
  • Metcalf, Michael; Reid, John; Cohen, Malcolm (2004). Fortran 95/2003 Explained. Oxford University Press.
  • Nyhoff, Larry; Leestma, Sanford (1995). FORTRAN 77 for Engineers and Scientists with an Introduction to FORTRAN 90. 4th Edition. Prentice Hall. ISBN 0-13-363003-X.
  • ANSI X3.198-1992 (R1997), Programming Language "Fortran" Extended. Xuất bản bởi ANSI.

Liên kết ngoài[sửa | sửa mã nguồn]

Chung chung[sửa | sửa mã nguồn]

Các chương trình Fortran ví dụ[sửa | sửa mã nguồn]

(bằng tiếng Anh)

Trình dịch Fortran có bản quyền thương mại[sửa | sửa mã nguồn]

Trình dịch Fortran tự do[sửa | sửa mã nguồn]