Gắn tên tệp Ví dụ: ASSIGN F, ‘D:\TP\ BAITAP.INP’; BAITAP.INP’ Biến F được gắn với tệp BAITAP.INP đã có trong thư mục TP ở ổ đĩa D.. Để gắn tên tệp VANBAN.TXT cho biến tệp F1 ta viết như [r]
(1)Bài 15 (2) VÝ dô: Var F,F1 : Text; Program vd1; Uses crt; Var F,F1: TEXT; (3) Thao tác với tệp Ghi liệu vào tệp Đọc liệu từ 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 (4) a Ghi liệu vào tệp a1 Gắn tên tệp Ví dụ: ASSIGN (F, ‘D:\TP\ BAITAP.INP’); BAITAP.INP’) Biến F gắn với tệp BAITAP.INP đã có thư mục TP ổ đĩa D Để gắn tên tệp VANBAN.TXT cho biến tệp F1 ta viết nào? (5) a2 Mở tệp để ghi liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Rewrite (F); Program vd1; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’); Rewrite(F); (6) a3 Ghi liệu vào tệp: Program vd1; Var F: TEXT; VD: BEGIN ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4); (7) a4 Đóng tệp: Program vd1; Var F: TEXT; Begin ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4); Close(F); End (8) b Đọc liệu từ tệp: b1 Mở tệp để đọc liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Reset (F); Program vd2; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’); Reset(F); (9) b2.Đọc liệu từ tệp: VD: Program vd2; Var F: TEXT; a,b : integer; Begin ASSIGN(F, ‘D:\dulieu.inp’); Reset (F); Readln (F,a,b); Close(F); End (10) Sơ đồ thao tác với tệp Gántệp>,<tên tên tệp tệp>); Assign(<biến Mở tệp đểtệp>); ghi Rewite(<biến Mở tệp đểtệp>); đọc Reset(<biến Ghi liệu tệp kquả>); writeln(<biến tệp>,<DS Đọc dữtệp>,<DS liệu từ tệpbiến>); Readln(<biến Đóng tệp Close(<biến tệp>); (11) BÀI TẬP CỦNG CỐ I Hãy chọn phương án trả lời đúng Câu 1: Trong Pascal để khai báo biến tệp văn ta sử dụng cú pháp A.Var <tên tệp>: Text; B.Var <tên biến tệp>: Text; C.Var <tên tệp>: string; D.Var <tên biến tệp>: 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’); (12) BÀI TẬP CỦNG CỐ I Hãy chọn phương án trả lời đúng Câu 3: Trong Pascal mở tệp văn để ghi ta sử thủ tục: A Reset (<biến tệp>); B Rewrite (< biến tệp>); C Assign (<biến tệp>,<tên tệp>); D.Var <tên biến tệp>: text; Câu 4: Trong Pascal mở tệp văn để đọc liệu ta dùng thủ tục: A Rewrite(<biến tệp>); B Var <tên biến tệp>:text; C Assign(‘KQ.TXT’,f1); D Reset(<biến tệp>); (13)