Bài giảng Tin học 11 - Bài 14+15: Kiểu dữ liệu tệp. Thao tác với tệp

 Bài 14 - 15 
Kiểu dữ liệu tệp - Thao tác với tệp
 Gi¸o ¸n ®iÖn tö tin häc líp 11 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ó Gồm các kí tự được phân
cùng một kiểu. Số lượng chia thành một hoặc nhiều
phần tử không xác định dòng.
trước.
 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. 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 b. Më tÖp
 Thñ tôc më tÖp ®Ó ghi kÕt qu¶:
 Program vd1;
 REWRITE (); Uses crt;
 Var
 tep1,tep2: TEXT;
 BEGIN
 Clrscr;
 Nếu như trên ổ D:\TP chưa có ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
 tệp BAITAP.INP, thì tệp sẽ được
 tạo rỗng. Nếu đã có, thì nội REWRITE (tep2);
 dung cũ bị xoá để chuẩn bị ghi
 dữ liệu mới. Giá trị hai biến
a=3, b=5 được
ghi ở trong tệp
BAITAP.INP. e. Thñ tôc ®ãng tÖp CLOSE()
 Ghi d÷ liÖu ra tÖp §äc d÷ liÖu tõ tÖp
 Program vd1; Program vd2;
 Uses crt; Uses crt;
 Var Var
 tep2: TEXT; tep2: TEXT;
 a,b: integer; x1,y1: integer;
 BEGIN BEGIN 
 Clrscr; Clrscr; 
 ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
 REWRITE (tep2); RESET (tep2);
 a:=3; b:=5; READLN(tep2, x1,y1);
 WRITE (tep2,a,b); WRITE (‘Hai so do la’ ,x1,y1);
 Close(tep2); Close(tep2);
 Readln;
 Readln;
 END.
 END. 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();
➢ §äc/ghi tÖp
 §äc: READ(, biÕn nhËn);
 Ghi: REWRITE(,biÕn ®a ra);
➢ §ãng tÖp
 CLOSE();