D On in d= ini, li m, inc
CHARACTE R* 15 TEMP
Những đặc điểm bổ sung về file 11.1 Các file nội tại (Internal Files)
CHARACTE R* 15 TEMP
Những đặc điểm bổ sung về file 11.1. Các file nội tại (Internal Files) 11.1. Các file nội tại (Internal Files)
Khi một đơn vị file trong các lệnh nhập hoặc xuất là tên của một biến ký tự, thì lệnh sẽ chuyển dữ liệu từ một vùng lưu giữ nội tại trong bộ nhớ sang một vùng khác. Những vùng lưu giữ này được gọi là các file nội tại (internal file). Thí dụ, ta có thể đọc dữ liệu từ một xâu ký tự thay vì đọc từ một dịng dữ liệu trong file thông thường với những lệnh sau đây:
CHARACTER * 13 DATA1 INTEGER I, J
REAL X
DATA1 = '137 65 42.17' READ (DATA1, *) I, J, X
Những lệnh trên đây có nghĩa rằng chúng ta khai báo một biến có kiểu văn bản DATA1 với độ dài 13 ký tự. Sau đó gán cho biến này dịng văn bản: ‘137 65 42.17 ‘
Đó là việc bình thường, chúng ta đã biết từ trước đến nay. Nhưng hãy chú ý đến lệnh cuối cùng. Đó là lệnh: READ (DATA1, *) I, J, X
Trông lệnh này giống như một lệnh đọc dữ liệu bình thường, chỉ có khác là thay vì đơn vị file trong cặp dấu ngoặc đơn ta đã đưa tên biến DATA1 vào đó. Kết quả là sau lệnh đọc này các đoạn văn bản biểu diễn những chữ số 137, 65 và 42.17 đã được đọc ra như là những số nguyên, số thực và gán vào các biến nguyên I, J và biến thực X trong danh sách các biến cần đọc của lệnh READ một cách đúng đắn. Sau những lệnh này giá trị các biến số sẽ như sau:
I sẽ bằng 137, J sẽ bằng 65 và X bằng 42.17.
Đây là một đặc điểm rất quan trọng của Fortran. Ta sẽ thấy ích lợi của đặc điểm này của file nội tại qua thí dụ sau:
INTEGER PTR REAL AMOUNT REAL AMOUNT
CHARACTER * 15 TEMP . . . . . .