tiết 37 kiểu dữ liệu tệp thao tác với tệp

Bài 17 Giáo án điện tử tin học lớp 11 Vai trò kiểu tệp Dữ liệu kiểu tệp đợc lu trữ lâu dài nhớ (đĩa từ, CD, ) không bị tắt nguồn điện Lợng thông tin lu trữ tệp lớn phụ thuộc vào dung lợng đĩa Có hai dùng: loại tệp thờ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ự đợc phân chia thành 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.ư Khai báo tệp văn Var ­: TEXT; VÝ dơ: tep1,tep2­: Text; Program vd1; Uses crt; Var tep1,tep2: TEXT; 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 a Gán tên tệp ASSIGN(,); nưtệp:ưLàưbiếnưxâuưhoặcưhằngưxâu Ví dụ: ASSIGN(tep1, DULIEU.DAT); Biến tep1 đợc gắn với tệp có tên DULIEU.DAT ASSIGN(tep2, D:\TP\BAITAP.INP); Biến tep2 đợc gắn với tệp có tên BAITAP.INP th mục TP ổ đĩa D b Më tƯp Thđ tơc më tƯp ®Ĩ ghi kết quả: REWRITE (); 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 Program vd1; Uses crt; Var tep1,tep2: TEXT; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); c Ghi d÷ liƯu tƯp Program vd1; Uses crt; Var tep2: TEXT; WRITE(, ); BEGIN WRITELN (, ); ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2); Thđ tơc ghi d÷ liƯu 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ư hc­ biĨu­ thøc a:=3; b:=5; WRITE (tep2,a,’ ‘,b); Close(tep2); Readln; END Giá trị hai biến a=3, b=5 đợc ghi tệp BAITAP.INP d Đọc liệu từ tệp Thủ tục mở tệp để đọc liệu Program vd2; Uses crt; Var RESET (); tep2: TEXT; x1,y1: integer; Thđ tục đọc liệu từ BEGIN Clrscr; tệp: READ(, ); READLN (, ); ­ Danhư sáchư biếnư làư mộtư hoặcưnhiềuưbiếnưđơn ASSIGN(tep2, D:\TP\BAITAP.INP); RESET (tep2); READLN (tep2,x1,y1); WRITE (‘Hai­so­do­la’­,x1,y1); Close(tep2); Readln; END CLOSE(< tªn biÕn tệp>) e Thủ tục đóng tệp Ghi liệu 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 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­do­la’­,x1,y1); Close(tep2); Readln; END f Mét sè hµm chn 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 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  Đóng tệp đa ra); CLOSE(< tên biến tệp>); ... crt; Var tep1,tep2: TEXT; 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 a Gán tên tệp ASSIGN( , ); n? ?tệp: ưLàưbiếnưxâuưhoặcưhằngưxâu... trò kiểu tệp Dữ liệu kiểu tệp đợc lu trữ lâu dài nhớ (đĩa từ, CD, ) không bị tắt nguồn điện Lợng thông tin lu trữ tệp lớn phụ thuộc vào dung lợng đĩa Có hai dùng: loại tệp thờng Tệp định kiểu. .. ghi tệp BAITAP.INP d Đọc liệu từ tệp Thủ tục mở tệp để đọc liệu Program vd2; Uses crt; Var RESET (); tep2: TEXT; x1,y1: integer; Thđ tục đọc liệu từ BEGIN Clrscr; tệp: READ( ,