10 FORMAT( “Gia tri bien X= ”, F8 2)
INTEGER*1 A, N INTEGER*2 B, M
INTEGER*2 B, M REAL X LOGICAL L A = 12.0 N = 150 B = −54.4 M = 33456 L = .TRUE.
1.5 Hãy gõ đoạn chương trình sau vào máy, chạy tính thử và khảo sát những thông báo lỗi (ERROR) khi dịch chương trình rồi sửa lại cho đúng:
PROGRAM Dread_ful REAL: A, B, X
X:= 5 Y = 6,67 Y = 6,67 B = X \ Y
PRINT* 'The answer is", B END.
1.6 Lập chương trình nhập vào hai số thực A và B, rồi tính tổng, hiệu, tích, thương của chúng. In kết quả lên màn hình với những dòng chú thích phù hợp. Hãy khảo sát điều gì sẽ xảy ra khi thực hiện phép chia cho số 0.
1.7 Hãy lập chương trình nhập vào hai số nguyên M và N, rồi tính tổng, hiệu, tích, thương của chúng. In kết quả lên màn hình với những dòng chú thích phù hợp. Chú ý theo dõi và cho biết tại sao với những cặp số M, N khác nhau lại có thể cho kết quả như nhau khi thực hiện phép chia hai số.
1.8 Cho trước giá trị của ba biến thực A=2, B=3, C=5 và hai biến nguyên I=2, J=3. Hãy cho biết giá trị của các biểu thức sau nếu chúng được tính bằng chương trình Fortran:
1) A*B + C; 2) A*(B + C); 3) B/C*A; 4) B/(C * A); 5) A/I/ J; 6) I/J/A; 7) A*B**I/A ** J * 2; 8) C + (B / A) ** 3 / B * 2.; 9) A ** B ** I; 10) −B** A ** C; J / (I / J). * 2; 8) C + (B / A) ** 3 / B * 2.; 9) A ** B ** I; 10) −B** A ** C; J / (I / J).
1.9 Nhiệt độ thế vịθ được xác định bởi công thức θ = T p
C/ / R p 1000 ⎟⎟ ⎠ ⎞ ⎜⎜ ⎝ ⎛ , trong đó T (oC) và p (mb) là nhiệt độ và áp suất ban đầu của phần tử khí, R/Cp≈0.288. Hãy lập chương trình nhập vào giá trị nhiệt độ và áp suất ban đầu của một phần tử khí và tính nhiệt độ thế vị của nó.
1.10 Giả sử có các khai báo sau: