Bài 17 Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data cha Giáo án điệngctin học lớp 11 rừ ngun tư Nếu q thầy cơ/ quan tác giả chương trình xin liên hệ với chúng tơi 1 Vai trò kiểu tệp Dữ liệu kiểu tệp lưu trữ lâu dài nhớ (đĩa từ, CD, ) không bị tắt nguồn điện Lượng thơng tin lưu trữ tệp lớn phụ thuộc vào dung lượng đĩa Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi Có hai loại tệp thường dùng: Tệp định kiểu Là tệp mà phần tử có kiểu Số lượng phần tử không xác định trước Tệp văn Gồm kí tự phân chia thành nhiều dòng Dưới ta xét khai báo làm việc với tệp văn Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi 2 Khai báo tệp văn Var : TEXT; Ví dụ: Program vd1; Uses crt; Var tep1,tep2: TEXT; tep1,tep2 : Text; Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cơ/ quan tác giả chương trình xin liên hệ với 3 Thao tác với tệp Gán tên tệp Mở tệp để ghi Mở tệp để đọc Đọc liệu từ tệp Ghi liệu tệp Đóng tệp Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cơ/ quan tác giả chương trình xin liên hệ với a Gán tên tệp ASSIGN (,); Tên tệp: Là biến xâu xâu Ví dụ: ASSIGN(tep1, ‘DULIEU.DAT’); Biến tep1 gắn với tệp có tên DULIEU.DAT ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); Biến tep2 gắn với tệp có tên BAITAP.INP thư mục TP ổ đĩa D Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cơ/ quan tác giả chương trình xin liên hệ với b Mở tệp Thủ tục mở tệp để ghi kết quả: REWRITE (); Nếu ổ D:\TP chưa có tệp BAITAP.INP, tệp tạo rỗng Nếu có, nội dung cũ bị xoá để chuẩn bị ghi liệu Program vd1; Uses crt; Var tep1,tep2: TEXT; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cơ/ quan tác giả chương trình xin liên hệ với c Ghi liệu tệp Thủ tục ghi liệu tệp WRITE(, ); WRITELN (, );  Danh sách kết gồm hay nhiều phần tử Phần tử biến, xâu biểu thức Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); a:=3; b:=5; WRITE (tep2,a,’ ‘,b); Close(tep2); Readln; END Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi Giá trị hai biến a=3, b=5 ghi tệp BAITAP.INP Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với d Đọc liệu từ tệp Thủ tục mở tệp để đọc liệu RESET (); Thủ tục đọc liệu từ tệp: READ(, ); READLN (, ); Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); RESET (tep2); READLN (tep2,x1,y1);  Danh sách biến nhiều biến đơn WRITE (‘ Hai so la’ ,x1,y1); Close(tep2); Readln; END Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi e Thủ tục đóng tệp CLOSE(< TÊN BIẾN TỆP>) GHI DỮ LIỆU RA TỆP Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); a:=3; b:=5; WRITE (tep2,a,b); Close(tep2); Readln; END ĐỌC DỮ LIỆU TỪ TỆP Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); RESET (tep2); READLN(tep2, x1,y1); WRITE (‘ Hai so la’ ,x1,y1); Close(tep2); Readln; END Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi f Một số hàm chuẩn thường dùng xử lí tệp văn EOF(); Cho giá trị trỏ tới cuối tệp EOFLN(); Cho giá trị trỏ tới cuối dòng Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ quan tác giả chương trình xin liên hệ với chúng tơi Hãy nhớ!  Khai báo tệp văn bản: Var < Tên biến tệp>: Text;  Gán tên tệp: ASSIGN();  Mở tệp: - Để đọc: RESET(); - Để ghi: REWRITE(< Tên biến tệp>);  Đọc/ghi tệp Đọc: READ(, biến nhận); Ghi: REWRITE(< Tên biến tệp>,biến đưa ra); Đóng tệp Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc CLOSE(< tªn biÕn tƯp>); Nếu q thầy cơ/ quan tác giả chương trình xin liên hệ với  ... nguồn gốc Nếu quý thầy cơ/ quan tác giả chương trình xin liên hệ với 3 Thao tác với tệp Gán tên tệp Mở tệp để ghi Mở tệp để đọc Đọc liệu từ tệp Ghi liệu tệp Đóng tệp Thầy Đinh Nguyên Thanh Tú... chương trình xin liên hệ với d Đọc liệu từ tệp Thủ tục mở tệp để đọc liệu RESET ( ); Thủ tục đọc liệu từ tệp: READ( , ); READLN ( , );...1 Vai trò kiểu tệp Dữ liệu kiểu tệp lưu trữ lâu dài nhớ (đĩa từ, CD, ) không bị tắt nguồn điện Lượng thơng tin lưu trữ tệp lớn phụ thuộc vào dung lượng đĩa Thầy Đinh Nguyên