Bai 15 Thao tac voi tep

Đọc/ ghi têp văn bản * Một số hàm chuẩn thường dùng trong xử lí têp văn bản EOF; Cho giá trị true nếu con trỏ đang chỉ tới cuối têp... EOLN; Cho giá trị true nếu con trỏ đang chỉ tới cu[r]

Trường THPT Nguyễn Huệ

Giáo viên:Nguyễn Thị Hương Vy

TIN HỌC: LỚP 11

Thứ 3 ngày 2 tháng 2 năm 2016

Tiết 37, Bài 15

Giáo viên: Nguyễn Thị Hương Vy

Trường THPT Nguyễn Huê

Tin học 11

1 Khai báo tệp văn bản

Var <Tên biến tệp> : TEXT;

Ví dụ:

tep1,tep2 : Text;

Program vd1;

Uses crt;

Var

tep1,tep2: TEXT;

2 Thao tác với tệp

Gắn tên têp

Đóng têp

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.

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

Ví dụ:

Biến tep1 được gắn với têp có

tên BAITAP.INP trong thư mục

TP ở ổ đĩa D.

b Mở tệp

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

Thủ tục mở têp để ghi kết quả:

ASSIGN(tep2,

‘D:\TP\BAITAP.INP’);

REWRITE ( tep2) ;

*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.

Ví dụ:

b Mở tệp

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

Thủ tục mở têp để đọc dữ liêu:

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

RESET ( tep1) ;

Ví dụ:

Chú ý:

Khi mở tệp, biến tệp phải được gắn tên tệp bằng thủ tục assign

c Đọc/ ghi tệp văn bản

*Trong đó:

Danh sách biến là một hoặc nhiều tên biến đơn

Danh sách kết quả gồm một hoặc nhiều phần tử Phần tử có thể

là biến đơn hoặc biểu thứ ( số học, quan hê hoặc lôgic) hoặc hằng xâu

c Đọc/ ghi têp văn bản

* 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ị true nếu con trỏ đang chỉ tới cuối têp.

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

Cho giá trị true nếu con trỏ đang chỉ tới cuối dòng.

2 Thao tác với tệp

assign

close

Program vd1;

Uses crt;

Var

tep2: TEXT;

a,b: integer;

BEGIN

Clrscr;

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

REWRITE (tep2);

WRITE (tep2,a,b);

a:=3; b:=5;

Readln;

END.

Close(tep2);

BEGIN Clrscr;

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

READLN(tep2, x1,y1);

WRITE ( ‘ Hai so do la ,x1,y1) ’ ;

Readln;

END.

Program vd2;

Uses crt;

Var tep2: TEXT;

x1,y1: integer;

RESET (tep2);

Ví dụ:

GHI DỮ LIỆU RA TỆP ĐỌC DỮ LIỆU TỪ 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

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

Đóng têp CLOSE(< 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);