Bai 14-15 Kiểu dữ liệu và thao tác với tệp

Bµi 14 + Bµi 15 Gi¸o ¸n ®iÖn tö tin häc líp 11 1. Vai trò kiểu tệp Dữ liệu kiểu tệp đợc lu 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 lu trữ trên tệp có thể rất lớn và chỉ phụ thuộc vào dung lợng đĩa. Có hai loại tệp thờng dùng: Tệp định kiểu Tệp văn bản Là tệp mà các phần tử có cùng một kiểu. Số l ợng phần tử không xác định trớc. Gồm các kí tự đợc phân chia thành một hoặc nhiều dòng. Dới đây ta chỉ xét các khai báo và làm việc với tệp văn bản. 2. Khai b¸o tÖp v¨n b¶n Var <Tªn biÕn tÖp> : TEXT; VÝ dô: tep1,tep2 : Text; Program vd1; Uses crt; Var tep1,tep2: TEXT; 3. 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 a. Gán tên tệp ASSIGN( <biến tệp>,<tên tệp> ); Tên tệp: Là biến xâu hoặc hằng xâu. ASSIGN(tep1, DULIEU.DAT); ASSIGN(tep2, D:\TP\BAITAP.INP); Ví dụ: Biến tep1 đ+ợc gắn với tệp có tên DULIEU.DAT Biến tep2 đ+ợc gắn với tệp có tên BAITAP.INP trong th+ mục TP ở ổ đĩa D. b. Mở tệp REWRITE ( <biến tệp>) ; Thủ tục mở tệp để ghi kết quả: Program vd1; Uses crt; Var tep1,tep2: TEXT; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE ( tep2) ; Nếu nh+ trên ổ D:\TP ch+a có tệp BAITAP.INP, thì tệp sẽ đ+ợc tạo rỗng. Nếu đã có, thì nội dung cũ bị xoá để chuẩn bị ghi dữ liệu mới. Thủ tục ghi dữ liệu ra tệp Danh sách kết quả gồm một hay nhiều phần tử. Phần tử có thể là biến, hằng xâu hoặc biểu thức. c. Ghi dữ liệu ra tệp Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE ( tep2) ; WRITE (tep2,a, ,b); a:=3; b:=5; BEGIN Clrscr; Close(tep2); Readln; END. WRITE( <biến tệp>, <Danh sách kết quả>) ; WRITELN (<biến tệp>, <Danh sách kết quả>); Gi¸ trÞ hai biÕn a=3, b=5 ®+îc ghi ë trong tÖp BAITAP.INP. RESET (<biến tệp>); Thủ tục mở tệp để đọc dữ liệu Thủ tục đọc dữ liệu từ tệp: Danh sách biến là một hoặc nhiều biến đơn. d. Đọc dữ liệu từ tệp Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; ASSIGN(tep2, D:\TP\BAITAP.INP); RESET ( tep2) ; READLN (tep2,x1,y1); BEGIN Clrscr; Close(tep2); Readln; END. WRITE ( Hai so do la ,x1,y1) ; READ( <biến tệp>, <Danh sách biến>) ; READLN (<biến tệp>, <Danh sách biến>); [...]... thường dùng trong xử lí tệp văn bản EOF( ); Cho giá trị đúng nếu con trỏ đang chỉ tới cuối tệp EOFLN( ); Cho giá trị đúng nếu con trỏ đang chỉ tới cuối dòng 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:...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); Đọ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); REWRITE (tep2); RESET (tep2); a:=3; b:=5; READLN(tep2, x1,y1);... 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 CLOSE(< tên biến tệp> ); . ghi ë trong tÖp BAITAP.INP. RESET (<biến tệp& gt;); Thủ tục mở tệp để đọc dữ liệu Thủ tục đọc dữ liệu từ tệp: Danh sách biến là một hoặc nhiều biến đơn. d. Đọc dữ liệu từ tệp Program vd2; Uses. Vai trò kiểu tệp Dữ liệu kiểu tệp đợc lu 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 lu trữ trên tệp có thể rất lớn và chỉ phụ thuộc vào dung. D:TPBAITAP.INP); REWRITE ( tep2) ; Nếu nh+ trên ổ D:TP ch+a có tệp BAITAP.INP, thì tệp sẽ đ+ợc tạo rỗng. Nếu đã có, thì nội dung cũ bị xoá để chuẩn bị ghi dữ liệu mới. Thủ tục ghi dữ liệu