bai 15 thao tac voi tep

<span class='text_page_counter'>(1)</span>Bài 15.

<span class='text_page_counter'>(2)</span> VÝ dô: Var F,F1 : Text;. Program vd1; Uses crt; Var F,F1: TEXT;.

<span class='text_page_counter'>(3)</span> 2. Thao tác với tệp Ghi dữ liệu vào tệp Đọc dữ liệu từ 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.

<span class='text_page_counter'>(4)</span> a. Ghi dữ 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 đượ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ư thế nào?..

<span class='text_page_counter'>(5)</span> a2. Mở tệp để ghi dữ liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Rewrite (F);. Program vd1; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’);. Rewrite(F);.

<span class='text_page_counter'>(6)</span> a3. Ghi dữ liệu vào tệp:. Program vd1; Var F: TEXT;. VD:. BEGIN ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4);.

<span class='text_page_counter'>(7)</span> a4. Đóng tệp: Program vd1; Var F: TEXT; Begin ASSIGN(F, ‘D:\dulieu.inp’); Rewrite (F); Write (F,2,’ ’,4); Close(F);. End..

<span class='text_page_counter'>(8)</span> b. Đọc dữ liệu từ tệp: b1. Mở tệp để đọc dữ liệu: Ví dụ: Assign(F,‘D:\dulieu.inp’); Reset (F);. Program vd2; Var F: TEXT; BEGIN Assign(F,‘D:\dulieu.inp’); Reset(F);.

<span class='text_page_counter'>(9)</span> b2.Đọc dữ 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..

<span class='text_page_counter'>(10)</span> 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 dữ liệu ra 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>);.

<span class='text_page_counter'>(11)</span> BÀI TẬP CỦNG CỐ I. Hãy chọn phương án trả lời đúng nhất. Câu 1: Trong Pascal để khai báo biến tệp văn bả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’);.

<span class='text_page_counter'>(12)</span> BÀI TẬP CỦNG CỐ I. Hãy chọn phương án trả lời đúng nhất. Câu 3: Trong Pascal mở tệp văn bả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 bản để đọc dữ 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>);.

<span class='text_page_counter'>(13)</span>