Tin học 11

Dưới đây là một số đề bài tập dạng đơn giản nhằm rèn luyện kĩ năng làm việc với tệp trong pascal:
Working with file in Turbo Pascal:

Bài tập 1: Một trường THPT tổ chức cho các giáo viên và học sinh của trường đi cắm trại, sinh hoạt ngoài trời ở vườn quốc gia Cúc Phương. Để lên lịch đến thăm khu trại các lớp, thầy hiệu trưởng cần biết khoảng cách từ trại của mình (ở vị trí có tọa độ (0,0)) đến các trại của các giáo viên chủ nhiệm. Mỗi lớp có một trại, vị trí của trại mỗi giáo viên chủ nhiệm đều có tọa độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT. Lập chương trình đọc các cặp tọa độ từ tệp TRAI.TXT, tính rồi đưa ra màn hình khoảng cách (với độ chính xác là hai số sau dấu phẩy thập phân) giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng?

Bài tập 2: Tính điện trở tương đương
Cho ba điện trở R1, R2, R3. Sử dụng cả ba điện trở để tạo ra năm mạch điện có điện trở tương đương khác nhau bằng cách mắc theo các sơ đồ khác nhau. Cho tệp văn bản RESIST.DAT gồm nhiều dòng, mỗi dòng chứa ba số thực R1, R2, R3, các số cách nhau bởi một dấu cách.
Lập chương trình tính các điện trở tương đương và ghi kết quả vào tệp RESIST.EQU, mỗi dòng ghi 5 điện trở tương đương của ba điện trở ở dòng dữ liệu vào tương ứng?

Để có thể thao tác với tệp trong pascal, người lập trình cần tìm hiểu cách thức mà ngôn ngữ này cung cấp để thực hiện các công việc sau:
- Khai báo biến tệp
- Mở tệp
- Đọc hoặc ghi dữ liệu
- Đóng tệp

Cụ thể như sau:

1. Khai báo tệp
Var <tên biến tệp>: text;

2. Thao tác với tệp
a. Gắn tên tệp
Assign (<biến tệp>, <tên tệp>);
Sau lệnh gán tên tệp này, các thao tác với biến tệp thực chất là các thao tác với tệp.

b.  Mở tệp:
- Mở để đọc: rewrite(<biến tệp>);
- Mở để ghi: reset(<biến tệp>);

c. Đọc và ghi tệp văn bản
- Đọc dữ liệu từ tệp vào biến: read(<biến tệp>;<danh sách biến>); (hoặc readln)
- Ghi dữ liệu lên tệp: write(<biến tệp>;<danh sách biến>); (hoặc writeln)

sử dụng một số hàm chuẩn khi đọc hoặc ghi văn bản:
eof(<biến tệp>); kiểm tra vị trí cuối tệp: kiểu dữ liệu trả về là Boolean
eoln(<biến tệp>); kiểm tra vị trí cuối dòng: kiểu dữ liệu trả về là Boolean

d. Đóng tệp:
close(<biến tệp>);