Giáo án Tin - Tệp và thao tác với tệp

Bài 14,15: TỆP VÀ THAO TÁC VỚI TỆP .Đặc điểm của kiểu dữ liệu tệp và phân 1 loại kiểu tệp. *Kiểu DL tệp: -Để lưu trữ DL ta phải lưu nó ở bộ nhớ ngoài thông qua kiểu tệp và DL sẽ không bị mất khi mất điện. -Lưu kượng thông tin lớn phụ thuộc vào dung lượng của đĩa. *Phân loại: -Tệp cấu trúc:là tệp mà các phần tử của nó được xắp xếp theo một cấu trúc nhất định(vd:cùng kiểu..). -Tệp văn bản:là tệp mà dữ liệu được nghi dười dạng các kí tự trong bảng mã ASCII. Ví dụ về thiết bị lưu trữ ngoài. USB, ĐĨA TỪ, CD, .. 2.KHAI BÁO TỆP VĂN BẢN • Var : text; • Vd: 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 VÀO TỆP ĐỌC DỮ LIỆU TỪ TỆP ĐÓNG TỆP *GÁN TÊN TỆP Asign (,). VD: Asign(tep, '11A.DAT'); Biến tep được gan tên 11A.DAT Asign(tep1, 'D:\SETUP\TP\BAITAP.INP'); Biến tep1được gán tên BAITAP.INP và nằm trong thư mục TP của thư mục SETUP trong ổ D * Mở tệp. •Asign (,). • VD: Asign(tep, '11A.DAT'); Program MOTEP; Uses crt; Var tep : text; Begin clrscr; Asign (tep, ‘D:\TP\BAITAP’); Rewrite(tep); Nếu ở đây nếu như trên ổ D chưa có tệp mang tên 'BAITAP.INP' thì nó sẽ được tạo ra rỗng. Nếu đã có thì nội dung sẽ bị xóa để chuẩn bị nghi mới nội dung. * Thủ tục ghi dữ liệu ra tệp. •*Ghi tệp: • Write (,); • Writeln(,); DS kết quả ở đây có thể là một hay nhiều phần tử. Phần tử ở đây có thể là biến, hằng xâu hay biểu thức. Vd: Program VD1; Uses crt; Var tep1: text; a,b: integer; Begin Clrscr; Asign (tep1 , D:\TINHOC'); Rewrite(tep1); a:=7; b:=9; write ( tep1 , a ,' ', b); Close(tep1); Readln; And. Giá trị hai biến a=7, b= 9 được ghi trong tệp TINHOC trong ổ D * Đọc dữ liệu từ tệp. • - Mở tệp để đọc dữ liệu: • Reset (); • - Đọc DL từ tệp: • Read(,); • Readln(,); Begin Clrscr; Asign (tep,'D:\TINHOC.INP'); Reset (tep); Readln(tep,x,y); Write(' Hai so do la : ',x,' ',y); Close (tep); Readln; End. DS biến có thể là một hoặc nhiều biến đơn. *Thủ tục đóng tệp. Close (); •* Các hàm thường dùng khác • - Eof(); \\ có giá trị đúng khi con trỏ đang ở vị trí cuối trệp. Eofln(); \\ có giá trị đúng khi con trỏ đang chỉ ở vị trí cuối dòng. CHÚ Ý •-Cách khai báo tệp văn bản: • Var : text; • -Gán tên tệp: • Asign (,); • -Mở tệp: • -Đọc: Reset (); • -Ghi: Rewrite(); • -Đọc ghi tệp: • +Đọc: Read(,<Dsbiến nhận giá trị>); • +Ghi: Rewrite(,<DS giá trị//biến nhậngiá trị>); • -Đóng tệp: • Close ();