Bài 17 1. Vai trò 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. 2. Có hai loại tệp thường dùng: 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. 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. 3. 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: 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>)ế ệ ế ;  Danh sách biến là một hoặc nhiều biến đơ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’); 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,... 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 CLOSE(< tªn biÕn tÖp>); . 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,. 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: d. Đọc dữ liệu từ tệp Program vd2; Uses crt; Var tep2:. Bài 17 1. Vai trò 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ỉ