Cho ba số nguyên, hiển thị theo thứ tự tăng dần. Ví dụ: nếu đầu vào là 2, 3 và 1, chương trình này sẽ hiển thị 1, 2 và 3
Dung dịch
! ------------------------------------------------------- ! This program reads in three INTEGERs and displays them ! in ascending order. ! ------------------------------------------------------- PROGRAM Order IMPLICIT NONE INTEGER :: a, b, c READ[*,*] a, b, c IF [a < b] THEN ! a < b here IF [a < c] THEN ! a < c : a the smallest IF [b < c] THEN ! b < c : a < b < c WRITE[*,*] a, b, c ELSE ! c