Bài 15. Thao tác với tệp

Bài 15. Thao tác với tệp
GV: Phạm Văn Sĩ
Kiểm tra bài cũ
Câu 1: Dữ liệu kiểu tệp được lưu trữ ở:
Rom
Ram
Đĩa cứng
Bộ nhớ ngoài
Kiểm tra bài cũ
Câu 2: Số lượng phần tử trong tệp
a.Không được lớn hơn 128
b.Không được lớn hơn 255
c.Phải được khai báo trước
d.Không bị giới hạn mà chỉ phụ thuộc vào dung lương ổ đĩa
Bài 15. Thao tác với tệp
1.Khai báo
Var : Text;
Vídụ: var f,g:Text;
Biến tệp do người lập trình đặt
Bài 15. Thao tác với tệp
2.Thao tác với tệp
a.Gắn tên tệp.Vấn đề đặt ra:
Tên tệp
Biến tệp
Vd: `Dulieu.Dat`
Biến
Hằng
Xâu
Trong lập trình thao tác với biến tệp
Thủ tục:
Assign()
Bài 15. Thao tác với tệp
2.Thao tác với tệp
a.Gắn tên tệp.
Vd1:
assign(f,`Dulieu.dat`);
Trong đó:
f:Là biến tệp
`Dulieu.Dat`là hằng tệp
Bài 15. Thao tác với tệp
2.Thao tác với tệp
a.Gắn tên tệp.
Vd2: assign(f,`c:BaitapDulieu.dat`);
Trong đó: f: là biến tệp
`c:BaitapDulieu.dat` là hằng xâu chỉ đường dẫn tới tệp Dulieu.Dat

Bài 15. Thao tác với tệp
2.Thao tác với tệp
a.Gắn tên tệp.
Vd3: st:=`Dulieu.dat` ; assign(f,st);
Trong đó: f:là biến xâu
st: là biến xâu
Bài 15. Thao tác với tệp
2.Thao tác với tệp
b.Mở tệp
Đặt vấn đề: Có 1 quyển vở Tin 11.Khi tôi mở ra để làm thao tác gì?
-Mở ra để đọc
-Hoặc mở ra để ghi
-Mở tệp để ghi:+ Gắn biến tệp với tên tệp cần ghi
+ Dùng thủ tục R ewrite()
Vd: assign(f,`Dulieu.txt`);
rewrite(f);
Bài 15. Thao tác với tệp
2.Thao tác với tệp
b.Mở tệp
-Mở tệp để đọc: + Gắn biến tệp với tên tệp
+ Dùng thủ tục Reset()
Vd:
Bài 15. Thao tác với tệp
2.Thao tác với tệp
c.Đọc/ghi tệp văn bản
+Đọc tệp:
Read(,);
hoặc Readln(,);
Vd: var f:text; a:integer;
begin assign(f,`Dulieu.txt`);resset(f);
read(f,a); .. End.

Bài 15. Thao tác với tệp
2.Thao tác với tệp
c.Đọc/ghi tệp văn bản
+Ghi tệp:
write(,);
hoặc writeln(,);
Vd: var f:text; a:integer;
begin assign(f,Dulieu.txt`);rewrite(f);
a:=2; write(f,a); end.
Bài 15. Thao tác với tệp
(*) Một số hàm chuẩn
Hàm Eof().
Nếu = true khi ở cuối tệp
Hàm Eoln().
Nếu = true khi ở cuối dòng
Bài 15. Thao tác với tệp
2.Thao tác với tệp
c.Đóng tệp
Close();
Vd: close(f); close(g);
Bài 15. Thao tác với tệp
Củng cố lại bài
Var():text;
Begin
Assign(,);
Reset(); Hoặc Rewrite();
Read(); Hoặc Write();
Close();
End.
Bài 15. Thao tác với tệp
Bài tập về nhà:
Dịch đoạn chương trình sau:
Var f:text; a:integer;
Begin
assign(f,`Dulieu.txt`);reset(f);
While not eof(f) do
begin read(f,a);
write(a:2);
end;
End.
Xin chào! Xin cảm ơn!