Tài liệu học tin 11 Thử nghiệm Tin11 Bai14 bai15

Bài 14 15 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 1 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 2 Phân loại tệp thao tác với tệp: a Phân loại: - Dựa vào cách tổ chức liệu: Tệp có cấu trúc Là tệp mà phần tử có kiểu Số lợng phần tử không xác định trớc (VD: Hình ảnh, âm thanh) Tệp văn Gồm kí tự đợc phân chia thành nhiều dòng 2 Phân loại tệp thao tác với tệp: a Phân loại: - Cách thức truy cập: + Tệp truy cập + Tệp truy cập ngẫu nhiêu b Thao t¸c víi tƯp: cã thao t¸c + Đọc tệp: lấy thông tin từ tệp mà không làm thay đổi nội dung tệp + Ghi tệp: Làm thay đổi nội dung tệp Khai báo tệp văn Var : TEXT; Ví dụ: Var 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 Ghi liệu tệp Đọc liệu từ tệp Đóng tệp Ghi liệu vào tệp Đọc liệu từ tệp a Ghi liệu vào tệp *Gắn tên tệp: Gn tờn tờp ASSIGN(,); : Là biến xâu xâu Ví dụ: Để gán biến tệp tep1 cho tệp có tên là: DULIEU.DAT sử dụng mét c¸c c¸ch sau: Mở tệp để ghi Ghi dữ liệu tệp + TH1: TÖp DULIEU.DAT n»m cïng th mơc víi tƯp Tubor.exe Đóng tệp ASSIGN(tep1, ‘DULIEU.DAT’); + TH2: TƯp DULIEU.DAT n»m kh¸c th mơc víi tƯp Tubor.exe ASSIGN(tep1, D:\Vi du\DULIEU.DAT); Chú ý: Nếu tên tệp không nằm th mục với tệp chạy chơng trình Pascal FreePascal viết phải viết đờng dẫn đầy đủ đến vị trí *Thủ tục mở tệp để ghi kết quả: REWRITE (); Ví dụ: (ghi liệu vào tệp DULIEU.DAT) Program vd1; Uses crt; Var tep1: TEXT; BEGIN Clrscr; Gắn tên tệp Mở tệp để ghi Ghi dữ liệu tệp Đóng tệp ASSIGN(tep1, ‘D:\Vi du\DULIEU.DAT’); REWRITE (tep1); NÕu nh trªn ỉ D:\Vi du cha có tệp DULIEU.DAT, tệp đợc tạo rỗng Nếu có, nội dung cũ bị xoá để chuẩn bị ghi liệu *Thủ tục ghi liệu tệp WRITE(); tệp>, ) Ví dụ: Ghi giá trị biÕn a, b vµo tƯp DULIEU.DAT Program vd1; Uses crt; Var tep1: TEXT; a,b: integer; BEGIN Clrscr; Gắn tên tệp Mở tệp để ghi Ghi dữ liệu tệp ASSIGN(tep1, ‘D:\Vi du\DULIEU.DAT’); REWRITE (tep1); a:=3; b:=5; WRITE (tep1,a,’ ‘,b); Close(tep1); Readln; END ong tờp b Đọc thông tin từ tệp *Gắn tên tệp, đóng tệp: tơng tự nh thao tác ghi tƯp *Më tƯp ®Ĩ RESET (); ®äc: VÝ dụ: Đọc thông tin tệp BAITAP.INP nằm ổ ®Üa D Program vd2; Uses crt; Var tep2: TEXT; Gắn tên tệp Mở tệp để đọc Đọc dữ liệu từ tệp Đóng tệp BEGIN Clrscr; ASSIGN(tep2, ‘D:\BAITAP.INP’); RESET (tep2); b §äc th«ng tin tõ tƯp *§äc tƯp: READ(, ); READLN (, ); VÝ dơ: Đọc thông tin tệp BAITAP.INP nằm ổ đĩa D (biết tệp có giá trị nguyên) Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer BEGIN Clrscr; ASSIGN(tep2, ‘D:\BAITAP.INP’); RESET (tep2); READLN (tep2,x1,y1); WRITE (‘Hai so la’ ,x1,y1); Close(tep2); Readln; END Gắn tên tệp Mở tệp để đọc Đọc tệp Đóng tệp Ghi d÷ liƯu tÖp Program bai15_vd1; Uses crt; Var tep1: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep1, ‘D:\Lop_11A2\VD1.txt’); REWRITE (tep1); a:=3; b:=5; WRITE (tep1,a,b); Close(tep1); Readln; END Đọc liệu từ tệp Program bai15_vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\Lop_11A2\VD1.txt’) RESET (tep2); READLN(tep2, x1,y1); WRITE (‘Hai so la’ ,x1,y1); Close(tep2); Readln; END c Mét sè hµm chuÈn 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>); ... với tệp Gắn tên tệp Mở tệp ®Ĩ ghi Më tƯp ®Ĩ ®äc Ghi d÷ liƯu tệp Đọc liệu từ tệp Đóng tệp Ghi liệu vào tệp Đọc liệu từ tệp a Ghi liệu vào tệp *Gắn tên tệp: Gn tờn tờp ASSIGN(,);... 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 1 Vai trò kiểu tệp Dữ liệu kiểu tệp đợc... Program bai15_ vd1; Uses crt; Var tep1: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep1, ‘D:Lop_11A2VD1.txt’); REWRITE (tep1); a:=3; b:=5; WRITE (tep1,a,b); Close(tep1); Readln; END Đọc liệu từ