Bài giảng Tin học 11 bài 15: Thao tác với tệp (tiết 1)

tr­êng THpt cÈm lý - lôc nam - b¾c giangBµi Gi¶ngNhiÖt liÖt chµo mõng c¸c thÇy gi¸o, c« gi¸o ®Õn dù giê, th¨m líp !THI GI¸O VI£N D¹Y GIáItiÕt 38Líp: 11a1GV: trÇn v¨n nghÜa1. Khai báo2. Thao tác với tệp1. Khai báoProgram vidu1;Uses crt;Var f : Text;Cú pháp khai báo:Ví dụ 1: Khai báo biến tệp có tên là f.Var : text;Var f : text;(Tiết 1)1. Khai báoProgram vidu2;Uses crt;Var f 1, f2 : Text;Cú pháp khai báo:Ví dụ 2: Khai báo 2 biến tệp có tên là f1, f2.Var : text;Var f1, f2 : text;(Tiết 1)1. Khai báoCú pháp khai báo:Var : text;(Tiết 1) Hãy khai báo biến tệp tep1.Nhóm 1 Hãy khai báo 2 biến tệp tep1, tep2.Nhóm 2 Hãy khai báo 3 biến tệp tep1, tep2, tep3.Nhóm 3Var tep1:text;Var tep1, tep2:text;Var tep1,tep2,tep3:text;2. Thao tác với tệpa) Gắn tên tệp1. Khai báoTệp lưu trên đĩa Assign(f,’DULIEU.TXT’); Tên biến trong chương trìnhTên tệpCú pháp: Chú ý: sau lệnh gắn trên tất cả các thao tác trên biến tệp thực chất là đang thao tác trên tên tệp.Assign(, );Trong đó: - Tên biến tệp là tên đã được khai báo trước đó.- Tên tệp có thể là biến xâu hoặc hằng xâu (thường là đường dẫn đến tệp).(Tiết 1)2. Thao tác với tệpa) Gắn tên tệp1. Khai báoCú pháp: Assign(, ); Assign (f, ‘DULIEU.TXT’);Program vidu1;Var f : Text;BeginAssign(f , ‘DULIEU.TXT’);End.(Tiết 1)Ví dụ 1: Thủ tục gắn tệp DULIEU.TXT cho biến tệp f như sau:2. Thao tác với tệpa) Gắn tên tệp1. Khai báoCú pháp: Assign(, ); Assign (f, ‘C:\INP.DAT’);Ví dụ 2: Để có thể đọc dữ liệu từ tệp INP.DAT trên thư mục gốc của đĩa C, ta cần khai báo như sau:Program vidu2;Var f : Text;BeginAssign(f , ‘C:\INP.DAT’);End.(Tiết 1)2. Thao tác với tệpa) Gắn tên tệp1. Khai báoCú pháp: Assign(, ); Assign (f, ‘BAITAP.DAT’);(Tiết 1) Viết thủ tục gắn tệp BAITAP.DAT cho biến tệp f.Nhóm 1 Viết thủ tục gắn tệp IN.DAT trên thư mục gốc của ổ đĩa D cho biến tệp f.Nhóm 2 Viết thủ tục gắn tệp NHAP.TXT trên thư mục gốc của ổ đĩa E cho biến tệp f.Nhóm 3 Assign (f, ‘D:\IN.DAT’); Assign (f, ‘E:\NHAP.TXT’); Assign (f, ‘BAITAP.DAT’);(Tiết 1) Viết thủ tục gắn tệp BAITAP.DAT cho biến tệp f.Nhóm 1 Viết thủ tục gắn tệp IN.DAT trên thư mục gốc của ổ đĩa D cho biến tệp f.Nhóm 2 Viết thủ tục gắn tệp NHAP.TXT trên thư mục gốc của ổ đĩa E cho biến tệp f.Nhóm 3 Assign (f, ‘D:\IN.DAT’); Assign (f, ‘E:\NHAP.TXT’);Program Nhom1;Var f : Text;BeginAssign(f , ‘BAITAP.DAT’);End.Program Nhom2;Var f : Text;BeginAssign(f , ‘D:\IN.DAT’);End.Program Nhom3;Var f : Text;BeginAssign(f , ‘E:\NHAP.TXT’);End.2. Thao tác với tệpb) Mở tệp1. Khai báoThủ tục mở tệp để ghi dữ liệu:Rewrite ();(Tiết 1)- Trước khi mở tệp, biến tệp phải được gắn tên tệp bằng thủ tục assign.Ví dụ 3: Assign (f, ‘D:\KQ.DAT’);Rewrite (f);a) Gắn tên tệpLưu ý: Nếu như trên ổ D chưa có tệp KQ.DAT thì tệp sẽ được tạo rỗng. Nếu đã có, thì tệp cũ bị xoá và tạo tệp mới để chuẩn bị ghi dữ liệu mới.(Tiết 1)Program vidu3;Var f: Text;BeginEnd. Assign (f, ‘D:\KQ.DAT’);Rewrite (f);2. Thao tác với tệpb) Mở tệp1. Khai báoThủ tục mở tệp để ghi dữ liệu:(Tiết 1)- Trước khi mở tệp, biến tệp phải được gắn tên tệp bằng thủ tục assign.a) Gắn tên tệpThủ tục mở tệp để đọc dữ liệu:Rewrite ();Ví dụ 4: Assign (f, ‘DL.INP’);Reset (f);Reset (); Assign (f, f1);Reset (f); f1 := ‘DL.INP’;Lưu ý: Biến f1 là kiểu xâu.(Tiết 1)Program vidu4;Var f : Text;BeginEnd. Assign (f, ‘DL.INP’);Reset (f);2. Thao tác với tệpb) Mở tệp1. Khai báoThủ tục mở tệp để ghi dữ liệu:(Tiết 1)- Trước khi mở tệp, biến tệp phải được gắn tên tệp bằng thủ tục assign.a) Gắn tên tệpThủ tục mở tệp để đọc dữ liệu:Rewrite ();Ví dụ 4: Assign (f, ‘DL.INP’);Reset (f);Reset (); Assign (f, f1);Reset (f); f1 := ‘DL.INP’;Lưu ý: Biến f1 là kiểu xâu.(Tiết 1)Program vidu4;Var f : Text; f1: String;	BeginEnd. Assign (f, f1);Reset (f); f1 := ‘DL.INP’;(Tiết 1)Củng cố1. Khai báoVar : text;2. Thao tác với tệpa) Gắn tên tệpAssign(, );b) Mở tệpThủ tục mở tệp để ghi dữ liệu:Thủ tục mở tệp để đọc dữ liệu:Rewrite ();Reset ();BÀI TẬP CỦNG CỐCâu 1: Trong Pascal để khai báo biến tệp văn bản ta sử dụng cú phápVar : Text;Var : Text;Var : string;Var : string;I. Hãy chọn phương án trả lời đúng nhấtCâu 2: Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh:f1:=‘KQ.TXT’;KQ.TXT:=f1;Assign(‘KQ.TXT’,f1);Assign(f1, ‘KQ.TXT’);BÀI TẬP VỀ NHÀ Ôn lại bài học hôm nay; Trả lời câu hỏi và bài tập trong SGK trang 89; Chuẩn bị trước bài: “ Ví dụ làm việc với tệp”.