GIÁO VIÊN: Nguyễn Thị Hồng Cẩm Châu Cẩm Tú

TRƯỜNG THPT NGUYỄN TRUNG TRỰC Bài15: THAO TÁC VỚI TỆP GIÁO VIÊN: NguyễnThịHồngCẩm ChâuCẩmTú

Kiểmtrabàicũ Câu 1:Xéttheocáchtổchứcdữliệuthìtệpcómấyloại? đólànhữngloạinào? Câu 2:Dữliệukiểutệpđượclưu ở đâu?

Kiểmtrabàicũ • Xéttheocáchtổchứdữliệuthìtệpđượcphânlàm 2 loại: tệpvănbảnvàtệpcócấutrúc. • Kiểudữliệutệpđượclưutrữlâudài ở bộnhớngoài (đĩa CD, đĩatừ…).

NỘI DUNG • Khaibáotệp • Thaotácvớitệp

I. Khaibáotệp Trongchươngtrình Pascal khichúng ta muốndùngmộtbiếnđểchứadữliệu, thìviệcđầutiênchúng ta sẽlàmgì? Khaibáobiến

I. Khaibáotệp Dữliệukhôngbịmấtkhitắtđiệnvàdữliệuđượclưutrữtrêntệpcó dung lượnglớn. Tạisaophải sửdụngtệp tin?

I. Khaibáotệp Var <danhsáchbiến>:<Kiểudữliệu>; Khaibáobiến nhưthếnào?

I. Khaibáotệp var <tênbiếntệp> : text; Chú ý: -Tênbiếntệp: Khôngđượcbắtđầubằngsố, trongtênbiếnkhôngcókhoảngtrắng, khôngchứacáckítựđặcbiệt… , , ., !, #, $, %, &, @) Vậykhaibáo biếntệp nhưthếnào?

I. Khaibáotệp vartepvb : text; var tep1,tep2 : text. Khaibáonàođúng? Đúng Sai

II. Thaotácvớitệp 1. Gántêntệp Tronglậptrình, ta khôngthaotáctrựctiếpvớitệpdữliệutrênđĩamàthông qua biếntệp. Gắntêntệpvớibiếntệpthựcchấtlàtạomộtthamchiếugiữatệptrênđĩavàbiếntệptrongchươngtình, làmchobiếntệptrởthànhđạidiệnchotệp.

GHI DỮ LIỆU VÀO TỆP ĐỌC DỮ LIỆU TỪ TỆP Gántêntệ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 II. Thaotácvớitệp Hình: Sơđồtổngquát

II. Thaotácvớitệp 1. Gántêntệp assign(<biếntệp>,<têntệp>); Trongđó: - têntệp: Làhằngxâukýtựhoặcgiátrịcủamộtbiểuthứckiểuxâukýtự. - Độdàilớnnhấtcủatêntệplà 79 kýtự.

II. Thaotácvớitệp 1. Gántêntệp • Phânbiệttêntệpvớibiếntệp: • - Mỗitệpcómộtcáitên, têntệplàbiếnxâu hay hằngxâu. • +Vídụ 1: assign(tep1,‘DULIEU.DAT’); • +Vídụ 2: tentep=’DL.INP’; • assign(tep1, tentep); • +Vídụ 3: assign(tep1, ‘C:\\DIEM.TXT’); • - Biếntệplàbiếnsửdụngđểthamchiếutớicácphầntửcủatệp.

II. Thaotácvớitệp 2. Mởtệp 2 kiểu Mởtệpđểghi Mởtệpđểđọc reset(<biếntệp>); rewrite(<biếntệp>); Vídụ: assign(tep1, ‘KQ.DAT’); rewrite(tep1); Vídụ: assign(tep2, ‘KQ.DAT’); reset(tep2);

II. Thaotácvớitệp 3. Đọc/ghitệpvănbản Trongpascal, lệnhnàodùngđểđọcdữliệu? Lệnhnàodùngđểghidữliệu? Lệnhđọclà read hoặcreadln Lệnhghilàwrite hoặcwriteln

II. Thaotácvớitệp 3. Đọc/ghitệpvănbản Đọctệpvănbản: read(<biếntệp>,<danhsáchbiến>); readln(<biếntệp>,<danhsáchbiến>); write(<biếntệp>,<danhsáchkếtquả>); writeln(<biếntệp>,<danhsáchkếtquả>); Ghitệpvănbản:

II. Thaotácvớitệp 3. Đọc/ghitệpvănbản Vídụ: + Đểđọcdữliệutừtệp A ta viết: read(tepA,x,y,z); Hoặcreadln(tepA,x,y,z); Chú ý: Cácdữliệucầnđọctệpgánvàodanhsáchbiếnphảilầnlượtcókiểutươngứngvớikiểucủabiếntrongdanhsáchbiến.

II. Thaotácvớitệp 3. Đọc/ghitệpvănbản Vídụ: + Đểghidữliệuvàotệp B ta viết: Write(tepB, ‘A=’,a, ‘B=’,b); HoặcWriteln(tepB, ‘A=’,a, ‘B=’,b); Lưu ý: Khihaikếtquảliềnnhaucùnglàkiểusốthìcầnxenvàogiữahaikếtquảnàymộtkếtquảtrunggianlàhằngkítựdấucách. Vd: write( tepB,1,’ ‘,2,’ ‘,3);

II. Thaotácvớitệp 3. Đọc/ghitệpvănbản • Mộtsốhàmvàthủtụcthôngdụng: • Hàm EOF (<biếntệp>): trảvềgiátrịTRUEkhi con trỏtệpđã ở vịtrícuốitệp. • HàmEOLN(biếntệp>): trảvềgiátrịTRUE khi con trỏtệpđã ở vịtrícuốidòng.

II. Thaotácvớitệp 4. Đóngtệpvănbản Saukhilàmviệcxongvớitệp ta phảilàmgì? Tạisao ta phảiđóngtệp? Saukhilàmviệcxongvớitệpcầnphảiđóngtệp. Chỉcóđóngtệpthìkhiđóhệthốngmớithựcsựhoàntấtghidữliệuratệp.

II. Thaotácvớitệp 4. Đóngtệpvănbản Câulệnhdùngthủtụcđóngtệp: Vd: Close (tepA); Close (tepB); Close (<biếntệp>);

1. Cấutrúckhaibáotệp?2. Cácthaotácvớitệp? var <tênbiếntệp> : text;

Củngcố Câu 1: • Câulệnhdùngmởtệpđểghi? • rewrite(<biếntệp>,<têntệp>); • reset (<biếntệp>,<têntệp>); • rewite(<biếntệp>); • reset(biếntệp);

Củngcố Câu 2: Khaibáotệp? • (1)VartepA, tepB,tep C: text; • (2)Begin • (3)assign (tepA, ‘Xoai.txt’); • (4)assign (tepB, ‘Me.txt’); • (5)reset(tepA); • (6)read(tepA,A,B,C); • (7)readln(tepA,D,E); • (8)rewrite(tepB); • (9)write(tepB, ‘A=’,A, ‘D=’,); • (10)writeln(tepB, ‘x1=’, (-B-SQRT(B*B-4*A*C))/(2*A):5:3); • (11)close (tepA); • (12)Close (tepB); • (13)Readln; • (14)End. Đọctệp? Gántêntệp? Ghitệp? Mởtệp? Đóngtệp?

BTVN: Trảlờicâuhỏitrongsáchbàitậpvàxemtrướcvídụ 1, vídụ 2 bài 16 trong SGK.

The End

GIÁO VIÊN: Nguyễn Thị Hồng Cẩm Châu Cẩm Tú