1
Câu hỏi
3
6
9
12
15
30
27
24
21
18
0
HẾT THỜI GIAN
Bộ nhớ trong (RAM) và bộ nhớ ngoài (ổ đĩa cứng, đĩa mềm, CD …) bộ nhớ nào lưu trữ lâu dài dữ liệu?
Nêu các kiểu dữ liệu đã học trong Pascal?
Các dữ liệu thuộc các kiểu dữ liệu đã học được lưu trữ ở đâu? Dữ liệu có bị mất đi khi tắt máy không?
Các bài toán có dữ liệu lớn, yêu cầu lưu trữ lâu dài để xử lí nhiều lần sẽ dùng kiểu dữ liệu gì?
KHỞI ĐỘNG
2
Bài 14:
Kiểu Dữ
Liệu
Tệp
1. Vai trò của kiểu tệp:
2. Phân loại tệp và thao tác với tệp
3
Tệp là gì ?
Tệp (File) hay tập tin là tập hợp các thông tin lưu trên bộ nhớ ngoài tạo thành một đơn vị lưu trữ do Hệ điều hành quản lý.
1. Vai trò của kiểu tệp:
- Dữ liệu kiểu tệp được lưu trữ lâu dài ở bộ nhớ ngoài (đĩa từ, CD, ...) và không bị mất khi tắt nguồn điện.
- Lượng thông tin lưu trữ trên tệp có thể rất lớn và chỉ phụ thuộc vào dung lượng đĩa.
Đặc điểm:
Bài 14: KIỂU DỮ LIỆU TỆP
5
Tệp có cấu trúc
Tệp văn bản
Là tệp mà các phần tử có cùng một cấu trúc nhất định.
Là tệp mà dữ liệu được ghi dưới dạng các kí tự theo mã ASCII và được quản lý theo từng dòng.
2. Phân loại tệp và thao tác với tệp.
Bài 14: KIỂU DỮ LIỆU TỆP
1
2
Theo cách tổ chức dữ liệu
Theo cách thức truy cập
Tệp truy cập tuần tự
Tệp truy cập trực tiếp
6
Bài 14: KIỂU DỮ LIỆU TỆP
Để có thể thao tác với tệp chúng ta cần phải biết:
- Khai báo biến tệp
- Đọc/ghi dữ liệu
- Mở tệp
- Đóng tệp
7
Bài 15:
Thao tác với tệp
1. Khai báo
2. Thao tác với tệp
Lưu ý: Chỉ xét với tệp văn bản trong Pascal
8
1. Khai báo
Bài 15. THAO TÁC VỚI TỆP
Cú pháp chung của khai báo biến ?
Var : text;
Ví dụ: var tep1, tep2 : text;
Var :< kiểu dữ liệu> ;
9
Bài 15. THAO TÁC VỚI TỆP
2. Thao tác với tệp
Nhóm 1, 4: Nhiệm vụ 1
Tìm hiểu và trình bày cách gắn tên tệp(cú pháp, ví dụ), tại sao phải gắn tên tệp?
Nhóm 2, 5: Nhiệm vụ 2
Tìm hiểu và trình bày cách mở tệp và đóng tệp (cú pháp, ví dụ)?
Nhóm 3, 6: Nhiệm vụ 3
Tìm hiểu và trình bày cách Đọc/ghi tệp văn bản (cú pháp, ví dụ)?
Thảo luận nhóm chuyên sâu
10
Bài 15. THAO TÁC VỚI TỆP
2. Thao tác với tệp
Nhiệm vụ 4:
Vẽ sơ đồ tổng quát lại các thao tác với tệp?
Thảo luận nhóm mảnh ghép
11
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
Bài 15. THAO TÁC VỚI TỆP
2. Thao tác với tệp: Sơ đồ tổng quát
12
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
Assign (< biến tệp>, );
Tên tệp là biến xâu hoặc hằng xâu, được đặt trong dấu nháy đơn ‘’
Thao tác với biến tệp thực chất là thao tác với tệp.
TH1: ASSIGN(f2, ‘dulieu.dat’);
Bi?n f2 du?c g?n v?i t?p cú tờn `dulieu.dat` n?u `dulieu.dat` n?m cựng thu m?c v?i file .pas, .exe c?a chuong trỡnh
TH2: ASSIGN(f2, ‘D:\TP\BIN\ dulieu.dat’);
Biến f2 được gắn với tệp có tên ‘dulieu.dat’ trong thư mục TP\BIN ở ổ đĩa D.
13
b. Mở tệp
rewrite ();
Ví dụ: assign (tep1, ‘hoso.txt’);
rewrite (tep1);
Mở tệp để đọc:
Reset (< biến tệp>);
Ví dụ: assign (tep1, ‘hoso.txt’);
reset (tep1);
Mở tệp để ghi:
Bài 15. THAO TÁC VỚI TỆP
2. Thao tác với tệp
14
Chú ý:
Trước khi mở tệp, biến tệp phải được gắn tên tệp bởi thủ tục assign.
Khi mở tệp để ghi, nếu tệp chưa có thì sẽ tự động được tạo với nội dung rỗng, nếu đã có thì nội dung cũ sẽ bị xóa.
Khi mở tệp để đọc, nếu tệp chưa tồn tại thì chương trình sẽ báo lỗi.
Bài 15. THAO TÁC VỚI TỆP
15
2. Thao tác với tệp
c. Đọc/ghi tệp văn bản
Đọc dữ liệu từ tệp



read (, );
readln (, );
Ghi dữ liệu ra tệp:



write(, );
writeln (, );
Ví dụ: read (f,a);
readln (f,a,b);
Ví dụ: writeln (f, a, b);
write (f, ‘hoc sinh’);
Chú ý
Danh sách biến là một hoặc nhiều biến đơn, nếu là nhiều biến thì ngăn cách nhau bởi dấu phẩy.
Danh sách kết quả là một hoặc nhiều phần tử (có thể là biến đơn, biểu thức, hằng xâu), nếu là nhiều phần tử thì ngăn cách nhau bởi dấu phẩy.
Bài 15. THAO TÁC VỚI TỆP
16
Một số hàm chuẩn thường dùng trong khi đọc, ghi tệp văn bản
Hàm eof () trả về giá trị true nếu con trỏ tệp đang chỉ tới cuối tệp.
Hàm eoln () trả về giá trị true nếu con trỏ tệp đang chỉ tới cuối dòng.
Chú ý : phân biệt 2 hàm này:

eof (end of file) : cuối tệp

eoln (end of line) : cuối dòng
17
2. Thao tác với tệp
d. Đóng tệp
close ();
Ví dụ: close (tep1); close (tep2);
Chú ý: Khi đã đóng tệp vẫn có thể mở lại, nếu vẫn dùng biến tệp cũ thì không cần phải gắn lại tên tệp.
Bài 15. THAO TÁC VỚI TỆP
Tác dụng của lệnh:
- Đóng tệp để tránh mất mát thông tin.
- Đây là việc làm cần thiết để đảm bảo an toàn dữ liệu.
18
{1} Program vd2;
{2} Uses crt;
{3} Var tep2: TEXT;
x,y: integer;
{4} Begin
{5} ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
{6} Reset(tep2);
{7} READLN(tep2, x,y);
{8} WRITE (‘Hai so do la’ ,x,y);
{9} Close(tep2);
{10} Readln;
{11} End.
GHI DỮ LIỆU RA TỆP
ĐỌC DỮ LIỆU TỪ TỆP
Ví dụ
{1} Program vd1;
{2} Uses crt;
{3} Var tep2: TEXT;
a,b: integer;
{4} Begin
{5} ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
{6} Rewrite(tep2);
{7} a:=3; b:=5;
{8} WRITE (tep2,a,b);
{9} Close(tep2);
{10} Readln;
{11}End.
Khai báo tệp
Gắn tên tệp
Mở tệp để đọc
Mở tệp để ghi
Ghi dữ liệu
Đọc dữ liệu
Đóng tệp
19
Các chương trình sau đã đúng chưa? Nếu sai hãy sửa lại cho đúng.
Vận dụng:
Var f:text;
begin
assign (f, ‘kq.txt’);
writeln(f, ‘lop11a7’);
close(f);
end;
2. Var f:text; a: char ;
begin
rewrite (f); a:= 10;
writeln(f, a);
close(f);
end;
3. Var f:text;
begin
assign (f, ‘kq.txt’);

writeln(f, ‘lop11a7’);
close(f);
end;
4. Var f:text;
begin
assign (f, ‘kq.txt’);
rewrite (f);
read(f, a);
close(f);
end;
1
2
3
4
Rewrite(f);
assign (f, ‘kq.txt’);
Rewrite(f);
reset (f);
a: char ;
reset (f);
20
TÌM TÒI KHÁM PHÁ
Câu 1:
. Viết khai báo biến tệp với tên biến tệp là ‘f’.
. Gắn tên tệp ‘ViDu.txt’ cho biến tệp f.
. Mở tệp để đọc dữ liệu.
. Đọc dữ liệu từ tệp ‘ViDu.txt’ vào 2 biến x, y.
. Đóng tệp.
Câu 2: Trại của thầy HT có toạ độ (0,0). Trại của các GVCN có toạ độ nguyên (x,y) được ghi trong tệp văn bản ‘TRAI.TXT’ (chứa liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng). Yêu cầu đọc các cặp toạ độ từ tệp ‘TRAI.TXT’, tính rồi đưa ra màn hình khoảng cách giữa trại của mỗi GVCN và trại của thầy HT.
21
THE END
Chân thành cảm ơn quý thầy cô và các em học sinh