Bai 15 Lam quen voi Microsoft Word

Câu hỏi: Nêu ý nghĩa kiểu dữ liệu tệp? Khi làm
việc với tệp có những thao tác chính nào?
Trả lời:
* Ý nghĩa:
- Dùng lưu trữ dữ liệu lâu dài ở bộ nhớ ngoài.
- Khả năng lưu trữ dữ liệu lớn.
* Có hai thao tác chính là:
- Đọc dữ liệu từ tệp.
- Ghi dữ liệu vào tệp.



1. Khai báo

2. Thao tác với tệp


1. Khai báo
 Cú pháp khai báo:

Var <tên biến tệp> : text;

Cấu trúc khai
báo biến trong
pascal?

Ví dụ 1: Khai báo biến tệp có tên là f.

Var f : text;
Ví dụ 2: Khai báo 2 biến tệp có tên là f1, f2.

Var f1, f2 : text;


Thao tác với tệp
Gắn tên tệp

Đọc

Ghi
Mở tệp để ghi;

Mở tệp để đọc;

Ghi dữ liệu vào tệp;

Đọc dữ liệu từ tệp

Đóng tệp;


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
nđ
ĩa

Cú pháp:

pl
ưu

Tệ

Ví dụ 1: Thủ tục gắn tệp DULIEU.TXT
cho biến tệp f như sau:

trê

Assign(<biến tệp>, <tên tệp>);

Tên tệp

Assign (f, ‘DULIEU.TXT’);

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.


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
Cú pháp:

Assign(<biến tệp>, <tên tệp>);

Ví dụ 2: Tệp SONGUYEN.DAT nằm trên thư mục gốc
của đĩa C, ta cần sử dụng thủ tục Assign như sau:
Assign (f, ‘C:\SONGUYEN.DAT’);

1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
Cú pháp:

Viết thủ tục gắn
tệp BAITAP.DAT
cho biến tệp f1.

Assign(<biến tệp>, <tên tệp>);

Viết thủ tục gắn
tệp DAYSO.TXT
trên thư mục gốc
của ổ đĩa D cho
biến tệp f2.

Viết thủ tục gắn
tệp SOCHAN.TXT
trên thư mục SO
thuộc thư mục
gốc của ổ đĩa E
cho biến tệp f3.


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
Cú pháp:

Assign(<biến tệp>, <tên tệp>);

Assign(f1, ’BAITAP.DAT’);

Assign(f2, ’D:\DAYSO.TXT’);

Assign(f3, ’E:\SO\SOCHAN.TXT’);


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
 Thủ tục mở tệp để ghi dữ liệu:

Ví dụ:

Rewrite (<biến tệp>);

Assign (f, ‘D:\DAYSO.TXT’);
Rewrite (f);

Lưu ý: Nếu như trên ổ D chưa có tệp DAYSO.DAT thì tệp sẽ
được tạo rỗng. Nếu đã có, thì tệp cũ bị xố và tạo tệp
mới để chuẩn bị ghi dữ liệu mới.


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp

b) Mở tệp
 Thủ tục mở tệp để ghi dữ liệu:

Rewrite (<biến tệp>);

 Thủ tục mở tệp để đọc dữ liệu:

Reset (<biến tệp>);

Ví dụ: Mở tệp SONGUYEN.TXT để đọc.
Assign (f, ‘SONGUYEN.TXT’);
Reset (f);


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản

Trong pascal, lệnh nào
dùng để đọc dữ liệu từ bàn
phím? Lệnh nào dùng để
ghi dữ liệu ra màn hình?

Lệnh đọc là read/readln(<DS biến>)
Lệnh ghi là write/writeln(<DS kết quả>)


1. Khai báo

2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản

Đọc DL từ tệp: read/readln(<biến tệp>,<DS biến>)
Ghi DL vào têp:write/writeln(<biến tệp>,<DS kết quả>)
Ví dụ:
Read(f,x);
- Đọc dl từ tệp f vào biến x :
- Ghi dl lưu trong biến a,b,c vào tệp f1 : Write(f1,a,b,c);


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản

Viết đoạn lệnh để
đọc dữ liệu từ tệp
SONGUYEN.TXT
ra biến nguyên x.

Viết đoạn lệnh để
ghi dữ liệu chứa
trong biến nguyên
y vào tệp
SONGUYEN.OUT

Viết đoạn lệnh để
ghi hai số 10, 20
vào tệp
HANGSO.OUT


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản
var f:text; x:integer;
Begin
Assign(f,’SONGUYEN.TXT’);
Reset(f);
Read(f,x);
……

var f:text; y:integer;
Begin
Assign(f,’SONGUYEN.OUT’);
Rewrite(f);
write(f,y);
……


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp

c) Đọc, ghi tệp văn bản

var f:text;
Begin
Assign(f,’SONGUYEN.OUT’);
Rewrite(f);
write(f,10,’ ‘,20);
……


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản

* Hàm EOF(<biến tệp>) trả về giá trị TRUE nếu con
trỏ tệp chỉ tới cuối tệp.
* Hàm EOLN(<biến tệp>) trả về giá trị TRUE nếu
con trỏ tệp chỉ tới cuối dòng.


1. Khai báo
2. Thao tác với tệp
a) Gắn tên tệp
b) Mở tệp
c) Đọc, ghi tệp văn bản
d) Đóng tệp: tránh mất dữ liệu
Close(<biến tệp>);

Ví dụ: Đóng tệp f: Close(f);


Thao tác với tệp
Assign(<biến tệp>,<tên tệp>);

Đọc

Ghi
rewrite(<biến tệp>);

Reset(<biến tệp>);

Write/writeln(<biến tệp>,<Ds kết quả>);

read/readln(<biến tệp>,<Ds biến>);

close(<biến tệp>);


BÀI TẬP CỦNG CỐ
I. Hãy chọn phương án trả lời đúng nhất
Câu 1: Trong Pascal để khai báo biến tệp văn bản ta
sử dụng cú pháp
A. Var <tên tệp>: Text;
B. Var <tên biến tệp>: Text;
C. Var <tên tệp>: string;
D. Var <tên biến tệp>: string;
Câu 2: Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh:
A. f1:=‘KQ.TXT’;

B. KQ.TXT:=f1;
C. Assign(‘KQ.TXT’,f1);
D. Assign(f1, ‘KQ.TXT’);