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

trường THpt cẩm lý - lục nam - bắc giang
Bài Giảng
Nhiệ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ỏI
tiết 38
Lớp: 11a1
GV: trần văn nghĩa
Bài 15:
Thao tác với tệp
1. Khai báo
2. Thao tác với tệp
1. Khai báo
Program 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;
1. Khai báo
Program 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;
1. Khai báo
Cú pháp khai báo:
Var : text;
Var tep1:text;
Var tep1, tep2:text;
Var tep1,tep2,tep3:text;
2. Thao tác với tệp
a) Gắn tên tệp
1. Khai báo
Cú 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).
2. Thao tác với tệp
a) Gắn tên tệp
1. Khai báo
Cú pháp:
Assign(, );
Assign (f, ‘DULIEU.TXT’);
Program vidu1;
Var f : Text;
Begin
Assign(f , ‘DULIEU.TXT’);
End.
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ệp
a) Gắn tên tệp
1. Khai báo
Cú 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;
Begin
Assign(f , ‘C:INP.DAT’);
End.
2. Thao tác với tệp
a) Gắn tên tệp
1. Khai báo
Cú pháp:
Assign(, );
Assign (f, ‘BAITAP.DAT’);
Assign (f, ‘D:IN.DAT’);
Assign (f, ‘E:NHAP.TXT’);
Assign (f, ‘BAITAP.DAT’);
Assign (f, ‘D:IN.DAT’);
Assign (f, ‘E:NHAP.TXT’);
2. Thao tác với tệp
b) Mở tệp
1. Khai báo
Thủ tục mở tệp để ghi dữ liệu:
Rewrite ();
- 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ệp
Lư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.
Program vidu3;
Var f: Text;
Begin
End.
Assign (f, ‘D:KQ.DAT’);
Rewrite (f);
2. Thao tác với tệp
b) Mở tệp
1. Khai báo
Thủ tục mở tệp để ghi dữ liệu:
- 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ệp
Thủ 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.
Program vidu4;
Var f : Text;
Begin
End.
Assign (f, ‘DL.INP’);
Reset (f);
2. Thao tác với tệp
b) Mở tệp
1. Khai báo
Thủ tục mở tệp để ghi dữ liệu:
- 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ệp
Thủ 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.
Program vidu4;
Var f : Text;
f1: String;
Begin
End.
Assign (f, f1);
Reset (f);
f1 := ‘DL.INP’;
Củng cố
1. Khai báo
Var : text;
2. Thao tác với tệp
a) Gắn tên tệp
Assign(, );
b) Mở tệp
Thủ 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áp
Var : Text;
Var : Text;
Var : string;
Var : string;
I. Hãy chọn phương án trả lời đúng nhất
Câ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”.