Bài 14,15: TỆP VÀ THAO TÁC VỚI TỆP doc

*Kiểu DL tệp: -Để lưu trữ DL ta phải lưu nó ở bộ nhớ ngoài thông qua kiểu tệp và DL sẽ không bị mất khi mất điện.. -Lưu kượng thông tin lớn phụ thuộc vào dung lượng của đĩa.. *Phân loại

Bài 14,15:

TỆP VÀ THAO TÁC VỚI TỆP

.Đặc điểm của kiểu dữ liệu tệp và phân

1

loại kiểu tệp.

*Kiểu DL tệp:

-Để lưu trữ DL ta phải lưu nó ở bộ nhớ ngoài

thông qua kiểu tệp và DL sẽ không bị mất khi

mất điện

-Lưu kượng thông tin lớn phụ thuộc vào

dung lượng của đĩa

*Phân loại:

-Tệp cấu trúc:là tệp mà các phần tử của nó được xắp xếp theo một cấu trúc nhất định(vd:cùng kiểu )

-Tệp văn bản:là tệp mà dữ liệu được nghi dười dạng các kí tự trong bảng mã ASCII

Ví dụ về thiết bị lưu trữ ngoài.

USB, ĐĨA TỪ, CD,

2 KHAI BÁO TỆP VĂN BẢN

•

Var <tênbiến tệp> : text;

• Vd: Var tep1,tep2 : text;

3 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 VÀO

TỆP ĐỌC DỮ LIỆU TỪ TỆP

ĐÓNG TỆP

*GÁN TÊN TỆP

Asign (<tênbiếntệp>,<têntệp>).

VD: Asign(tep, '11A.DAT');

Biến tep được gan tên 11A.DAT

Asign(tep1, 'D:\SETUP\TP\BAITAP.INP ');

Biến tep1được gán tên BAITAP.INP và nằm trong thư mục TP của thư mục

SETUP trong ổ D

* Mở tệp.

•

Asign

(<tênbiếntệp>,<têntệp>).

•

VD: Asign(tep,

'11A.DAT');

Program MOTEP;

Uses crt;

Var tep : text;

Begin clrscr;

Asign (tep, ‘D:\TP\BAITAP’); Rewrite(tep);

Nếu ở đây nếu như

trên ổ D chưa có tệp

mang tên

'BAITAP.INP' thì nó sẽ

được tạo ra rỗng Nếu

đã có thì nội dung sẽ

bị xóa để chuẩn bị

nghi mới nội dung

* Thủ tục ghi dữ liệu ra tệp.

•

*Ghi tệp:

•

Write (<biếntệp>,<dskếtquả>);

• Writeln(<biếntệp>,<dskếtquả>);

DS kết quả ở đây có thể là

một hay nhiều phần tử Phần

tử ở đây có thể là biến, hằng

xâu hay biểu thức

Vd:

Program VD1;

Uses crt;

Var tep1: text;

a,b: integer;

Begin

Clrscr;

Asign (tep1 , D:\TINHOC'); Rewrite(tep1);

a:=7; b:=9;

write ( tep1 , a ,' ', b);

Close(tep1);

Readln;

And

Giá trị hai biến a=7, b= 9 được ghi trong tệp TINHOC

trong ổ D

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

•

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

•

Reset (<biếntệp>);

•

- Đọc DL từ tệp:

•

Read(<biếntệp>,<DSbiến>);

•

Readln(<biếntệp>,<DSbiến>);

Begin Clrscr;

Asign (tep,'D:\TINHOC.INP'); Reset (tep);

Readln(tep,x,y);

Write(' Hai so do la : ',x,' ',y); Close (tep);

Readln;

End

DS biến có thể là

một hoặc nhiều

biến đơn

*Thủ tục đóng tệp.

Close (<tênbiếntệp >);

•

* Các hàm thường dùng khác

•

-Eof(<tênbiếntệp>);

\\ có giá trị đúng khi con trỏ đang ở vị trí cuối trệp

Eofln(<tênbiếntệp>);

\\ có giá trị đúng khi con trỏ đang chỉ ở vị trí cuối dòng

CHÚ Ý

•

- Cách khai báo tệp văn bản:

•

Var <tênbiếntệp> : text;

•

-Gán tên tệp:

• Asign (<tênbiếntệp>,<têntệp>);

•

-Mở tệp:

•

-Đọc: Reset (<tênbiếntệp>);

•

-Ghi: Rewrite(<tênbiếntệp>);

•

-Đọc ghi tệp:

•

+Đọc:

Read(<tênbiêntệp>,<Dsbiến nhận giá trị>);

• +Ghi:

Rewrite(<tênbiếntệp>,<DS giá trị//biến nhậngiá trị>);

•

-Đóng tệp:

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