Bài giảng Tin học 11 Bài 15: Thao tác với tệp

Bài 15. Thao tác với tệpGV: 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ữ ở:RomRamĐĩa cứngBộ nhớ ngoàiKiểm tra bài cũCâu 2: Số lượng phần tử trong tệpa.Không được lớn hơn 128b.Không được lớn hơn 255c.Phải được khai báo trướcd.Không bị giới hạn mà chỉ phụ thuộc vào dung lương ổ đĩaBài 15. Thao tác với tệp1.Khai báoVar : Text;Vídụ: var f,g:Text;Biến tệp do người lập trình đặtBài 15. Thao tác với tệp2.Thao tác với tệpa.Gắn tên tệp.Vấn đề đặt ra:Tên tệpBiến tệpVd: ’Dulieu.Dat’BiếnHằngXâuTrong lập trình thao tác với biến tệpThủ tục:Assign()Bài 15. Thao tác với tệp2.Thao tác với tệpa.Gắn tên tệp.Vd1: assign(f,’Dulieu.dat’);Trong đó: f:Là biến tệp	 ‘Dulieu.Dat’là hằng tệpBài 15. Thao tác với tệp2.Thao tác với tệpa.Gắn tên tệp.Vd2: assign(f,’c:\Baitap\Dulieu.dat’);Trong đó: f: là biến tệp	’c:\Baitap\Dulieu.dat’ là hằng xâu chỉ đường dẫn tới tệp Dulieu.DatBài 15. Thao tác với tệp2.Thao tác với tệpa.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âuBài 15. Thao tác với tệp2.Thao tác với tệpb.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ệp2.Thao tác với tệpb.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ệp2.Thao tác với tệpc.Đọ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ệp2.Thao tác với tệpc.Đọ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ẩnHàm Eof(). Nếu = true khi ở cuối tệpHàm Eoln(). Nếu = true khi ở cuối dòngBài 15. Thao tác với tệp2.Thao tác với tệpc.Đóng tệp	Close();Vd: close(f); close(g);Bài 15. Thao tác với tệpCủng cố lại bàiVar():text;BeginAssign(,);Reset(); Hoặc Rewrite();Read(); Hoặc Write();Close();End.Bài 15. Thao tác với tệpBà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!