Bài giảng Điện tử Tin học lớp 11: Bài 17

Bài giảng Điện tử Tin học lớp 11 - Bài 17: Kiểu dữ liệu tệp và khai báo với tệp, giới thiệu vai trò kiểu tiệp, khai báo tệp văn bản, thao tác với tệp. Chúc các em học tốt. | Bµi 17 kiÓu d÷ liÖu tÖp vµ thao t¸c víi tÖp 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 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. 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 : 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(,); Tªn tÖp: Lµ biÕn x©u hoÆc h»ng x©u. ASSIGN(tep1, ‘’); ASSIGN(tep2, ‘D:\TP\’); VÝ dô: BiÕn tep1 ®­îc g¾n víi tÖp cã tªn BiÕn tep2 ®­îc g¾n víi tÖp cã tªn trong th­ môc TP ë æ ®Üa D. b. Më tÖp REWRITE (); Thñ tôc më tÖp ®Ó ghi kÕt qu¶: Program vd1; Uses crt; Var tep1,tep2: TEXT; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\’); REWRITE (tep2); NÕu nh­ trªn æ D:\TP ch­a cã tÖp , 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\’); REWRITE (tep2); WRITE (tep2,a,’ ‘,b); a:=3; b:=5; BEGIN Clrscr; Close(tep2); Readln; END. WRITE(, ); WRITELN (, ); Gi¸ trÞ hai biÕn a=3, b=5 ®­îc ghi ë trong tÖp . RESET (); 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\’); RESET (tep2); READLN (tep2,x1,y1); BEGIN Clrscr; Close(tep2); Readln; END. WRITE (‘Hai so do la’ ,x1,y1); READ(, ); READLN (, ); Close(tep2); Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\’); REWRITE (tep2); WRITE (tep2,a,b); a:=3; b:=5; Readln; END. Close(tep2); BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\’); READLN(tep2, x1,y1); WRITE (‘Hai so do la’ ,x1,y1); Readln; END. Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; RESET (tep2); e. Thñ tôc ®ãng tÖp CLOSE() Ghi d÷ liÖu ra tÖp §äc d÷ liÖu tõ tÖp f. Mét sè hµm chuÈ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 : Text; G¸n tªn tÖp: ASSIGN(); Më tÖp: - §Ó ®äc: RESET(); - §Ó ghi: REWRITE(); §ãng tÖp CLOSE(); §äc/ghi tÖp §äc: READ(, biÕn nhËn); Ghi: REWRITE(,biÕn ®­a ra);