Đang tải... (xem toàn văn)
Thao tác với tệp a Gắn tên tệp b Mở tệp c Đọc, ghi tệp văn bản d Đóng tệp: tránh mất dữ liệu Close;... Thao tác với tệp Assign,;.[r]
Câu hỏi: Nêu ý nghĩa kiểu liệu tệp? Khi làm việc với tệp có thao tác nào? Trả lời: * Ý nghĩa: - Dùng lưu trữ liệu lâu dài nhớ - Khả lưu trữ liệu lớn * Có hai thao tác là: - Đọc liệu từ tệp - Ghi liệu vào tệp Khai báo Thao tác với tệp Khai báo Cú pháp khai báo: Var : text; Cấu trúc khai báo biến pascal? Ví dụ 1: Khai báo biến tệp có tên f Var f : text; Ví dụ 2: Khai báo biến tệp có tên f1, f2 Var f1, f2 : text; Thao tác với tệp Gắn tên tệp Đọc Ghi Mở tệp để ghi; Mở tệp để đọc; Ghi liệu vào tệp; Đọc liệu từ tệp Đóng tệp; Khai báo Thao tác với tệp a) Gắn tên tệp nđ ĩa Cú pháp: pl ưu Tệ Ví dụ 1: Thủ tục gắn tệp DULIEU.TXT cho biến tệp f sau: trê Assign(, ); Tên tệp Assign (f, ‘DULIEU.TXT’); Chú ý: sau lệnh gắn tất thao tác biến tệp thực chất thao tác tên tệp 1 Khai báo Thao tác với tệp a) Gắn tên tệp Cú pháp: Assign(, ); Ví dụ 2: Tệp SONGUYEN.DAT nằm thư mục gốc đĩa C, ta cần sử dụng thủ tục Assign sau: Assign (f, ‘C:\SONGUYEN.DAT’); Khai báo Thao tác với tệp a) Gắn tên tệp Cú pháp: Viết thủ tục gắn tệp BAITAP.DAT cho biến tệp f1 Assign(, ); Viết thủ tục gắn tệp DAYSO.TXT thư mục gốc ổ đĩa D cho biến tệp f2 Viết thủ tục gắn tệp SOCHAN.TXT thư mục SO thuộc thư mục gốc ổ đĩa E cho biến tệp f3 1 Khai báo Thao tác với tệp a) Gắn tên tệp Cú pháp: Assign(, ); Assign(f1, ’BAITAP.DAT’); Assign(f2, ’D:\DAYSO.TXT’); Assign(f3, ’E:\SO\SOCHAN.TXT’); Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp Thủ tục mở tệp để ghi liệu: Ví dụ: Rewrite (); Assign (f, ‘D:\DAYSO.TXT’); Rewrite (f); Lưu ý: Nếu ổ D chưa có tệp DAYSO.DAT tệp tạo rỗng Nếu có, tệp cũ bị xố tạo tệp để chuẩn bị ghi liệu 1 Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp Thủ tục mở tệp để ghi liệu: Rewrite (); Thủ tục mở tệp để đọc liệu: Reset (); Ví dụ: Mở tệp SONGUYEN.TXT để đọc Assign (f, ‘SONGUYEN.TXT’); Reset (f); Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn Trong pascal, lệnh dùng để đọc liệu từ bàn phím? Lệnh dùng để ghi liệu hình? Lệnh đọc read/readln() Lệnh ghi write/writeln() Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn Đọc DL từ tệp: read/readln(,) Ghi DL vào têp:write/writeln(,) Ví dụ: Read(f,x); - Đọc dl từ tệp f vào biến x : - Ghi dl lưu biến a,b,c vào tệp f1 : Write(f1,a,b,c); Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn Viết đoạn lệnh để đọc liệu từ tệp SONGUYEN.TXT biến nguyên x Viết đoạn lệnh để ghi liệu chứa biến nguyên y vào tệp SONGUYEN.OUT Viết đoạn lệnh để ghi hai số 10, 20 vào tệp HANGSO.OUT Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn var f:text; x:integer; Begin Assign(f,’SONGUYEN.TXT’); Reset(f); Read(f,x); …… var f:text; y:integer; Begin Assign(f,’SONGUYEN.OUT’); Rewrite(f); write(f,y); …… Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn var f:text; Begin Assign(f,’SONGUYEN.OUT’); Rewrite(f); write(f,10,’ ‘,20); …… Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn * Hàm EOF() trả giá trị TRUE trỏ tệp tới cuối tệp * Hàm EOLN() trả giá trị TRUE trỏ tệp tới cuối dòng 1 Khai báo Thao tác với tệp a) Gắn tên tệp b) Mở tệp c) Đọc, ghi tệp văn d) Đóng tệp: tránh liệu Close(); Ví dụ: Đóng tệp f: Close(f); Thao tác với tệp Assign(,); Đọc Ghi rewrite(); Reset(); Write/writeln(,); read/readln(,); close(); BÀI TẬP CỦNG CỐ I Hãy chọn phương án trả lời Câu 1: Trong Pascal để khai báo biến tệp văn ta sử dụng cú pháp A Var : Text; B Var : Text; C Var : string; D Var : string; Câu 2: Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh: A f1:=‘KQ.TXT’; B KQ.TXT:=f1; C Assign(‘KQ.TXT’,f1); D Assign(f1, ‘KQ.TXT’); ... (f, ‘C:\SONGUYEN.DAT’); Khai báo Thao tác với tệp a) Gắn tên tệp Cú pháp: Viết thủ tục gắn tệp BAITAP.DAT cho biến tệp f1 Assign(, ); Viết thủ tục gắn tệp DAYSO.TXT thư mục... 1 Khai báo Thao tác với tệp a) Gắn tên tệp Cú pháp: Assign(, ); Assign(f1, ’BAITAP.DAT’); Assign(f2, ’D:\DAYSO.TXT’); Assign(f3, ’E:\SO\SOCHAN.TXT’); Khai báo Thao tác với