B�i 15
THAO TÁC VỚI TỆP
1. Khai báo:
Ví dụ:
Var F,F1 : Text;
Program vd1;
Uses crt;
Var
F,F1: TEXT;
2. Thao tác với tệp
Ghi dữ liệu vào tệp
Đọc dữ liệu từ tệp
Gán tên tệp
Mở tệp để ghi
Mở tệp để đọc
Ghi dữ liệu ra tệp
Đọc dữ liệu từ tệp
Đóng tệp
a1. Gắn tên tệp
ASSIGN (F, ‘D:TP BAITAP.INP’);
Biến F được gắn với tệp BAITAP.INP đã có trong thư mục TP ở ổ đĩa D.
Ví dụ:
a. Ghi dữ liệu vào tệp
Để gắn tên tệp VANBAN.TXT cho biến tệp F1 ta viết như thế nào?.
a2. Mở tệp để ghi dữ liệu:
Ví dụ:
Assign(F,‘D:dulieu.inp’);
Rewrite (F);
Program vd1;
Var
F: TEXT;
BEGIN
Assign(F,‘D:dulieu.inp’);
Rewrite(F);
a3. Ghi dữ liệu vào tệp:
Write (F,2,’ ’,4);
VD:
a4. Đóng tệp:
Close(F);
Write (F,2,’ ’,4);
End.
b1. Mở tệp để đọc dữ liệu:
b. Đọc dữ liệu từ tệp:
Program vd2;
Var
F: TEXT;
BEGIN
Assign(F,‘D:dulieu.inp’);
Reset(F);
Ví dụ: Assign(F,‘D:dulieu.inp’);
Reset (F);
b2.Đọc dữ liệu từ tệp:
VD:
Close(F);
End.
Sơ đồ thao tác với tệp
Gán tên tệp
Mở tệp để ghi
Mở tệp để đọc
Ghi dữ liệu ra tệp
Đọc dữ liệu từ tệp
Đóng tệp
Assign(,);
Reset();
Rewite();
writeln(,);
Readln(,);
Close();
Assign(,);
Close();
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 CỦNG CỐ
Câu 3: Trong Pascal mở tệp văn bản để ghi ta sử thủ tục:
Reset ();
Rewrite (< biến tệp>);
Assign (,);
Var : text;
I. Hãy chọn phương án trả lời đúng nhất
Câu 4: Trong Pascal mở tệp văn bản để đọc dữ liệu ta dùng thủ tục:
Rewrite();
Var :text;
Assign(‘KQ.TXT’,f1);
Reset();