Bài 15 Thao tác với tệp GV: Phạm Văn Sĩ Kiểm tra cũ Câu 1: Dữ liệu kiểu tệp lưu trữ ở: a Rom b Ram c Đĩa cứng d Bộ nhớ Kiểm tra cũ Câu 2: Số lượng phần tử tệp a.Không lớn 128 b.Không lớn 255 c.Phải khai báo trước d.Không bị giới hạn mà 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 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 Biến tệp H»ng Thđ tơc: Vd: ’Dulieu.Dat’ tr×nh thao Trong lËp Assign() tác với biến tệp Xâu 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.Datlà 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:\Baitap\Dulieu.dat); Trong đó: f: biến tệp c:\Baitap\Dulieu.dat xâu đườ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: 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ó với tên tệp cần ghi -Mở tệp để ghi:+ Gắn1biến tệpvở Tin 11.Khi mở để làm thao tác gì? + Dùng thủ tục R ewrite() -Mở để đọc Vd: assign(f,Dulieu.txt); -Hoặc mở để ghi 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 +Đọc tệp: Read(,); hc 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 +Ghi tệp: write(,); 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 ë ci tƯp - Hµm Eoln() NÕu = true ë 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 Var():text; Begin Assign(,); Reset(); Hc Rewrite(); Read(); Hc Write(); Close(); End Bài 15 Thao tác với tệp Bài tập 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) begin read(f,a); write(a:2); end; End Xin chào! Xin cảm ơn! ... tr×nh thao Trong lËp Assign() tác với biến tệp Xâu 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.Datlà tệp Bài 15 Thao. .. ghi 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... với tệp 2 .Thao tác với tệp a.Gắn tên tệp Vd2: assign(f,c:\Baitap\Dulieu.dat); Trong đó: f: biến tệp c:\Baitap\Dulieu.dat xâu đườ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