TRNG THPT QUANG TRUNG TUN 29 Tit 55

TRƯƠNG THPT QUANG TRUNG TUẦN 29 Tiết 55 -56 Bài 14 Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

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. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

Có hai loại tệp thường dùng: Tệp định kiểu 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. Tệp văn bản 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. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

2. Khai báo tệp văn bản Var <Tên biến tệp> : TEXT; Ví dụ: Program vd 1; Uses crt; Var tep 1, tep 2: TEXT; tep 1, tep 2 : Text; Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

3. Thao tác với tệp Gán tên tệp Mở tệp để ghi Mở tệp để đọc Đọc dữ liệu từ tệp Ghi dữ liệu ra tệp Đóng tệp Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

a. Gán tên tệp ASSIGN (<BIẾN TỆP>, <TÊN TỆP>); Tên tệp: Là biến xâu hoặc hằng xâu. Ví dụ: ASSIGN(tep 1, ‘DULIEU. DAT’); Biến tep 1 được gắn với tệp có tên DULIEU. DAT ASSIGN(tep 2, ‘D: TPBAITAP. INP’); Biến tep 2 được gắn với tệp có tên BAITAP. INP trong thư mục TP ở ổ đĩa D. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

b. Mở tệp Thủ tục mở tệp để ghi kết quả: REWRITE (<biến tệp>); 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 vd 1; Uses crt; Var tep 1, tep 2: TEXT; BEGIN Clrscr; ASSIGN(tep 2, ‘D: TPBAITAP. INP’); REWRITE (tep 2); Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

c. Ghi dữ liệu ra tệp Thủ tục ghi dữ liệu ra tệp WRITE(<biến tệp>, <Danh sách kết quả>); WRITELN (<biến tệp>, <Danh sách kết quả>); 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. Program vd 1; Uses crt; Var tep 2: TEXT; a, b: integer; BEGIN Clrscr; ASSIGN(tep 2, ‘D: TPBAITAP. INP’); REWRITE (tep 2); a: =3; b: =5; WRITE (tep 2, a, ’ ‘, b); Close(tep 2); Readln; END. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

Giá trị hai biến a=3, b=5 được ghi ở trong tệp BAITAP. INP. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

d. Đọc dữ liệu từ tệp Thủ tục mở tệp để đọc dữ liệu RESET (<biến tệp>); Thủ tục đọc dữ liệu từ tệp: READ(<biến tệp>, <Danh sách biến>); READLN (<biến tệp>, <Danh sách biến>); Program vd 2; Uses crt; Var tep 2: TEXT; x 1, y 1: integer; BEGIN Clrscr; ASSIGN(tep 2, ‘D: TPBAITAP. INP’); RESET (tep 2); READLN (tep 2, x 1, y 1); Danh sách biến là một hoặc nhiều biến đơn. WRITE (‘Hai so do la’ , x 1, y 1); Close(tep 2); Readln; END. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

e. Thủ tục đóng tệp CLOSE(< TÊN BIẾN TỆP>) GHI DỮ LIỆU RA TỆP Program vd 1; Uses crt; Var tep 2: TEXT; a, b: integer; BEGIN Clrscr; ASSIGN(tep 2, ‘D: TPBAITAP. INP’); REWRITE (tep 2); a: =3; b: =5; WRITE (tep 2, a, b); Close(tep 2); Readln; END. ĐỌC DỮ LIỆU TỪ TỆP Program vd 2; Uses crt; Var tep 2: TEXT; x 1, y 1: integer; BEGIN Clrscr; ASSIGN(tep 2, ‘D: TPBAITAP. INP’); RESET (tep 2); READLN(tep 2, x 1, y 1); WRITE (‘Hai so do la’ , x 1, y 1); Close(tep 2); Readln; END. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

f. Một số hàm chuẩn thường dùng trong xử lí tệp văn bản EOF(<biến tệp>); Cho giá trị đúng nếu con trỏ đang chỉ tới cuối tệp. EOFLN(<biến tệp>); Cho giá trị đúng nếu con trỏ đang chỉ tới cuối dòng. Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả của chương trình xin liên hệ với chúng tôi.

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(<tên biến tệp>); Ø Mở tệp: - Để đọc: RESET(<Tên biến tệp>); - Để ghi: REWRITE(< Tên biến tệp>); Ø Đọc/ghi tệp Đọc: READ(<Tên biến tệp>, biến nhận); Ghi: REWRITE(< Tên biến tệp>, biến đưa ra); Đóng tệp Thầy Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc Nếu quý thầy cô/ cơ quan nào là tác giả CLOSE(< của chương tªn trìnhbiÕn xin liên hệ với chúng tôi. tÖp>);