Bài 14. Kiểu dữ liệu tệp

Huong Trang_THPT Le Hong Phong
KÍNH CHÀO QUÝ THẦY CÔ
CÙNG CÁC EM HỌC SINH
Huong Trang_THPT Le Hong Phong
Chương trình quản lý Nhân viên
program bt1;
uses crt;
type nvien=record
hoten:string[30];
namsinh:word;
chucvu:string;
end;
var A: array[1..100] of nvien;
i,n:byte;
begin
clrscr;
writeln(`--------------- chuong trinh quan ly nhan vien -----------`);
write(`So luong can nhap: `);readln(n);
for i:=1 to n do
begin
writeln(` Thong tin nhan vien thu: `,i);
write(` Nhap Ho ten nhan vien: `);
Readln(a[i].hoten);
write(` Nhap nam sinh nhan vien: `);
Readln(a[i].namsinh);
write(` Nhap chuc vu nhan vien: `);
Readln(a[i].chucvu);
writeln(`------------------------------`);
writeln;
end;
clrscr;
for i:=1 to n do
begin
writeln(`Ho ten nhan vien: `, a[i].hoten);
writeln(`Sinh nam : `, a[i].namsinh);
writeln(`Chuc vu : `, a[i].chucvu);
writeln(`---------------------------- `);
end;
readln ;
end.
INPUT
OUTPUT
KIỂU DỮ LIỆU TỆP
THAO TÁC VỚI TỆP
SỞ GD – DT PHÚ YÊN
TRƯỜNG THPT LÊ HỒNG PHONG
----------------@-----------------
Tiết 39
Tổ: TIN HỌC
GVTH: VÕ THỊ HƯƠNG TRANG
Huong Trang_THPT Le Hong Phong

§14 KIỂU DỮ LIỆU TỆP
1. Vai trò của kiểu tệp
1. Vai trò của kiểu tệp
Huong Trang_THPT Le Hong Phong
§14 KIỂU DỮ LIỆU TỆP
1. Vai trò của kiểu tệp
2. Phân loại và thao tác với tệp
2. Phân loại và thao tác với tệp
Có hai thao tác cơ bản đối với tệp là ghi dữ liệu và đọc dữ liệu từ tệp
Huong Trang_THPT Le Hong Phong
VAR : TEXT;
1.Khai báo :
Ví dụ 1:
Var tep1,tep2 : Text;
Nếu muốn khai báo:
- 1 biến file kiểu tệp và
- 1 biến a kiểu nguyên thì khai báo như thế nào?
Var file: text;
a : integer;
Cú pháp:
Ví dụ 2:
§15 THAO TÁC VỚI TỆP
1. Khai báo
Huong Trang_THPT Le Hong Phong
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
2.Thao tác với Tệp
Huong Trang_THPT Le Hong Phong
a. Ghi dữ liệu vào tệp:
2.Thao tác với Tệp
Ghi vào tệp vidu.inp trong ổ đĩa D hai số nguyên a,b.
Chú ý: Nếu tên tệp nằm cùng thư mục với tệp chạy của chương trình Pascal hoặc FreePascal thì có thể chỉ viết tên tệp.
Huong Trang_THPT Le Hong Phong
b. Đọc dữ liệu từ tệp:
2.Thao tác với Tệp
Đọc dữ liệu trong tệp dulieu.txt trong thư mục TPBin ổ đĩa C.
a. Ghi dữ liệu vào tệp:
Huong Trang_THPT Le Hong Phong
Một số hàm chuẩn thường dùng trong xử lí tệp văn bản
EOF ()
Cho giá trị đúng nếu con trỏ chỉ tới cuối tệp
EOLN ()
Cho giá trị đúng nếu con trỏ chỉ tới cuối dòng
§15 THAO TÁC VỚI TỆP
1. Khai báo
2. Thao tác với tệp
Đọc dữ liệu từ tệp
Ghi dữ liệu vào tệp
2. Thao tác với tệp
Huong Trang_THPT Le Hong Phong
G
H
I

T
Ệ
P
Đ
Ọ
C

T
Ệ
P
ASSIGN (,);
REWRITE ();
WRITE(, );
CLOSE();
RESET ();
READ(, );
Var : TEXT;
Huong Trang_THPT Le Hong Phong
Viết chương trình:
Nhập từ bàn phím 2 số a,b
Ghi 2 số vừa nhập vào tập tin dulieu.txt trong ổ D
Đọc dữ liệu trong tập tin dulieu.txt và in ra màn hình dữ liệu trong tệp.
Bài tập ví dụ:
Huong Trang_THPT Le Hong Phong
Viết chương trình:



Nhập từ bàn phím 2 số a,b
Ghi 2 số vừa nhập vào tập tin dulieu.txt trong ổ D



Đọc dữ liệu trong tập tin dulieu.txt


In ra màn hình dữ liệu trong tệp.
PROGRAM DLTEP;
VAR tep1:text;
a,b:byte;
BEGIN
write(`nhap a:= `);readln(a);
write(`nhap b:= `);readln(b);
{-----GHI DU LIEU VAO TEP----}
assign(tep1,`D:dulieu.txt`);
rewrite(tep1);
writeln(tep1,a,` `,b);
close(tep1);
{---DOC DU LIEU TU TEP--------}
assign(tep1,`D:dulieu.txt`);
reset(tep1);
read(tep1,a,b);
write(`a: `,a,` `,`b: `,b);
close(tep1);
READLN
END.
Huong Trang_THPT Le Hong Phong
DẶN DÒ
BÀI VỪA HỌC:
Nắm lại 2 thao tác ghi dữ liệu vào tệp và đọc dữ liệu từ tệp
BÀI SẮP HỌC
Bài 16: VÍ DỤ LÀM VIỆC VỚI TỆP
(Đọc kỹ 2 ví dụ trong sách giáo khoa trang 87/88)
Huong Trang_THPT Le Hong Phong
BÀI GIẢNG ĐẾN ĐÂY LÀ KẾT THÚC. MONG SỰ GÓP Ý CỦA QUÝ THẦY CÔ.
XIN CHÂN THÀNH CẢM ƠN.