Làm việc với tệp

Assign(<biến tệp>,<tên tệp>);
Rewrite(<biến tệp>);
Reset(<biến tệp>);
Read(<biến tệp>,<danh sách biến>);
Readln(<biến tệp>, <danh sách biến>);
Write(<biến tệp>, <danh sách kết quả>);
Writeln(<biến tệp>, <danh sách kết quả>);
Close(<biến tệp>);
Eof(<biến tệp>)
Eoln(<biến tệp>)
Đọc tệp văn bản
Ghi tệp văn bản
Gán tên tệp cho biến tệp
Mở tệp để ghi dữ liệu
Mở tệp để đọc dữ liệu
Trả về giá trị TRUE nếu con trỏ tệp đang chỉ tới cuối tệp
Trả về giá trị TRUE nếu con trỏ tệp đang chỉ tới cuối dòng
Assign(<biến tệp>,<tên tệp>);
Rewrite(<biến tệp>);
Reset(<biến tệp>);
Read/Readln(<biến tệp>,<DS biến>);
Write/Writeln(<biến tệp>, <DS kết quả>);
Close(<biến tệp>);
GHI
đọc
Đóng tệp

Ví dụ 1: Lập trình tạo tệp
BAITHO.TXT lưu trữ trên ổ D với nội

dung bài thơ:
Sông núi nước Nam, vua nam ở
Rành rành ghi rõ ở sách trời.
Cớ sao lũ giặc sang xâm phạm,
Chúng bay sẽ bị đánh tơi bời

Xác định bài toán
Input :
Output :

Gợi ý các bước:
- Khai báo
- Gắn tên tệp
- Mở tệp để ghi
- Ghi tệp
- Đóng tệp


Chương trình:
var f : text;
begin
assign (f , 'd:\baitho.txt') ;
rewrite (f);
writeln (f , 'Song nui nuoc Nam, vua Nam o');
writeln (f , 'Ranh ranh ghi ro o sach troi');
writeln (f , 'Co sao lu giac sang xam pham');
writeln (f , 'Chung bay se bi danh toi boi');
close (f);
readln;
end.

Nội dung bài thơ
Tệp BAITHO.TXT
Assign(<BT>,<tên tệp>);
Rewrite(<BT>);
Write/Writeln(<BT>,<DSKQ>);
Close(<BT>);

Ví dụ 1: Lập trình tạo tệp
BAITHO.TXT lưu trữ trên ổ D với nội
dung bài thơ:
Ví dụ 2: Tạo tệp TRAI.TXT lưu trữ
trên ổ D chứa liên tiếp các cặp tọa độ,
các số cách nhau bởi dấu cách và không
kết thúc bằng thủ tục xuống dòng.
* Xác định bài toán
Input :
Output :
* Gợi ý các bước:
- Khai báo
- Gắn tên tệp
- Mở tệp để ghi
- Nhập số trại n
- for i := 1 to n do
Begin
Nhập tọa độ
Ghi dữ liệu vào tệp
End;
- Đóng tệp
Ví dụ 3: Đọc dữ liệu từ tệp
TRAI.TXT, tính khoảng cách 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 và ghi kết quả ra tệp
KETQUA.TXT.
* Xác định bài toán
Input :
Output :
* Gợi ý các bước:
- Khai báo
- Gắn tên tệp
- Mở tệp để đọc
- Gắn tên tệp
- Mở tệp để ghi
- Kiểm tra con trỏ không ở cuối tệp thì:
Đọc tọa độ từ tệp TRAI.TXT
Tính khoảng cách
Ghi kết quả vào tệp
- Đóng tệp
Dữ liệu của tệp TRAI.TXT
Tệp TRAI.TXT
Các cặp tọa độ
Tệp KETQUA.TXT
Assign(<BT>,<tên tệp>);
Rewrite(<BT>);
Write/Writeln(<BT>,<DSKQ>);
Close(<BT>);
Assign(<BT>,<tên tệp>);
Reset(<BT>);
Read/Readln(<BT>,<DSB>);
Close(<BT>);

Ví dụ 1: Lập trình tạo tệp
BAITHO.TXT lưu trữ trên ổ D với nội
dung bài thơ.
Ví dụ 2: Tạo tệp TRAI.TXT lưu trữ
trên ổ D chứa liên tiếp các cặp tọa độ,
các số cách nhau bởi dấu cách và không
kết thúc bằng thủ tục xuống dòng.

Xác định bài toán
Input :
Output :

Gợi ý các bước:
- Khai báo
- Gắn tên tệp
- Mở tệp để ghi
- Nhập số trại n
- for i := 1 to n do
Begin
Nhập dữ liệu từ bàn phím
Ghi dữ liệu vào tệp
End;
- Đóng tệp


Chương trình:
Var F1 : text;
x, y, n, i : integer;
Begin
assign (F1, 'D : \ TRAI.TXT');

rewrite (F1);
writeln('nhap so trai:');
readln(n);
for i:=1 to n do
begin
readln (x,y);
write (F1,x:4,y:4);
end;
close(F1);
readln
End.
Assign(<BT>,<tên tệp>);
Rewrite(<BT>);
Write/Writeln(<BT>,<DSKQ>);
Close(<BT>);
Các cặp tọa độ
Tệp TRAI.TXT
Assign(<BT>,<tên tệp>);
Reset(<BT>);
Read/Readln(<BT>,<DSB>);
Close(<BT>);