tiet 37.ppt

Bµi 14 v à 15 Giáo viên thực hiện: Nguyễn Tấn Phát Tuần: . .29 . . . . Tiết: . 37. . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . .29 . . . . Tiết: . 37. . . . Ngày dạy: . . . . ./. . . ./ 2009 CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP 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. Phân loại tệp và thao tác với tệp TƯp cã cÊu tróc TƯp v¨n b¶n Lµ tƯp mµ c¸c thµnh phÇn cđa nã ®­ỵc tỉ chøc theo mét cÊu tróc nhÊt ®Þnh. VÝ dơ: tƯp nhÞ ph©n, tƯp b¶n ghi. Gåm c¸c kÝ tù ®­ỵc ph©n chia thµnh mét hc 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. Có hai loại tệp thường dùng 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: 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>); . Nguyễn Tấn Phát Tuần: . .29 . . . . Tiết: . 37. . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . .29 . . . . Tiết: . 37. . . . Ngày dạy: . . . . ./. . . ./ 2009