bai 15 thao tac voi tep

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]

B i 15 à

VÝ dô:

Var F,F1 : Text;

Program vd1;

Uses crt;

Var

F,F1: TEXT;

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

a1 Gắn tên tệp

ASSIGN (F, ‘D:\TP\ BAITAP.INP’); ‘D:\TP\ BAITAP.INP’)

Biến F được gắn với tệp

BAITAP.INP đã có trong thư

mục TP ở ổ đĩa D.

Ví d : ụ

a Ghi dữ liệu vào tệp

Để gắn tên tệp VANBAN.TXT

cho biến tệp F1 ta viết như thế

nào?.

a2 M t p đ ghi d li u: ở ệ ể ữ ệ

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);

a3 Ghi dữ liệu vào tệp:

Write (F,2,’ ’,4);

VD:

Program vd1;

Var

F: TEXT;

BEGIN

ASSIGN(F, ‘ D:\dulieu.inp’);

Rewrite (F);

a4 Đóng t p: ệ

a4 Đóng t p: ệ

Program vd1;

Var

F: TEXT;

Begin

ASSIGN(F, ‘ D:\dulieu.inp’);

Rewrite (F);

Close(F);

Write (F,2,’ ’,4);

End.

b1 Mở tệp để đọc dữ liệu:

b Đ c d li u t t p: ọ ữ ệ ừ ệ

b Đ c d li u t t p: ọ ữ ệ ừ ệ

Program vd2;

Var

F: TEXT;

BEGIN

Assign(F,‘D:\dulieu.inp ’);

Reset(F);

Ví d : Assign( ụ F,‘D:\dulieu.inp’);

Reset (F);

b2.Đọc dữ liệu từ tệp:

Program vd2;

Var F: TEXT;

a,b : integer;

Begin

ASSIGN(F, ‘D:\dulieu.inp’); Reset (F);

Readln (F,a,b);

VD:

Close(F);

End.

Sơ đồ thao tác với 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

Assign(<biến tệp>,<tên tệp>);

Reset(<biến tệp>);

Rewite(<biến tệp>);

Close(<biến tệp>);

Assign(<biến tệp>,<tên tệp>);

Close(<biến tệp>);

BÀI TẬP CỦNG CỐ

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;

I Hãy ch n ph ọ ươ ng án tr l i đúng nh t ả ờ ấ

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’);

BÀI TẬP CỦNG CỐ

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;

I Hãy ch n ph ọ ươ ng án tr l i đúng nh t ả ờ ấ

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>);