D On in d= ini, li m, inc
trong đó e= 2,71828 2 Viết chương trình in các giá trị giai thừa của các số nguyên từ đến 10 theo cách tính chính xác và theo cơng thức ước lượng của Stirling.
của Stirling.
PRINT 4
4 FORMAT (1X, 'GIAI THUA CUA CAC SO TU 0 DEN 10' * //1X, T3, 'N', T12, 'N!', T16, 'STIRLING''S FORMULA' /) * //1X, T3, 'N', T12, 'N!', T16, 'STIRLING''S FORMULA' /)
FAC = 1.
DO 7 I = 0, 10
IF (I .GT. 1) FAC = FAC * I
PRINT 5, I, FAC, SQRT (2.*3.141593*I)*(I / 2.718282)** I 5 FORMAT (1X, I2, F10.0, F20.0)
7 CONTINUE
END
Trong chương trình này, vì giai thừa được tính liên tục với các số từ 0 đến 10, nên giai thừa của một số sau được tính bằng tích của số đó nhân với giai thừa của số trước nó. Hãy chú ý cách dùng dấu gạch chéo để tạo xuống dòng khi in tiêu đề: hai dấu gạch chéo đầu chỉ định cho lệnh PRINT in xong dòng chữ GIAI THUA CUA CAC SO TU 0 DEN 10 thì xuống dịng hai lần, sau khi in dòng tiêu đề cột, dấu gạch chéo thứ ba gây xuống dòng một lần để chuẩn bị in dữ liệu theo dòng lệnh in trong vòng lặp DO. Các đặc tả T3, T12, T16 trong dòng lệnh 4 FORMAT chỉ định xuất chữ N ở vị trí 3, N! ở vị trí 12 và 13, chữ STIRLING'S FORMULA bắt đầu ở vị trí thứ
16 của dòng tiêu đề cột. Kết quả xuất ra của chương trình này sẽ có dạng dưới đây: GIA TRI GIAI THUA CAC SO TU 0 DEN 10
N N! STIRLING'S FORMULA 0 1. 0. 0 1. 0. 1 1. 1. 2 2. 2. 3 6. 6. 4 24. 24. 5 120. 118. 6 720. 710. 7 5040. 4980. 8 40320. 39902. 9 362880. 359537. 10 3628800. 3598694. Bài tập
1. Tính số lần lặp trong các trường hợp dùng lệnh DO sau đây. Giả thiết rằng các chỉ số đếm là những biến nguyên: 1) DO 5 I = 1, 8 2) DO 10 COUNT = -4, 4
3) DO 10 K = 15, 3, −1 4) DO 10 TIME = −5, 15, 3 5) DO 10 TIME = 50, 250, 25 6) DO 10 IND = 72, 432, 4 5) DO 10 TIME = 50, 250, 25 6) DO 10 IND = 72, 432, 4
2. Xác định giá trị của biến nguyên IDEM sau khi những vòng DO dưới đây thực hiện xong. Giả sử biến này được gán giá trị khơng trước mỗi vịng lặp. 1) DO 5 I = 1, 8 2) DO 5 IDEX =0, 7
IDEM = IDEM + 1 IDEM = IDEM − 2
5 CONTINUE 5 CONTINUE