Bài 16: các ví dụ làm việc với tệp

1. Ôn tập kiến thức lí
thuyết
GV: Cách khai báo biến kiểu tệp?
HS: Var <tên biến tệp>: text;
GV: Có các thủ tục cơ bản nào khi làm việc
với tệp?
HS: Assign(<tên biến tệp>,<tên tệp>);
Rewrite(<tên biến tệp>);
Reset (<tên biến tệp>);
Close (<tên biến tệp>);
Read/Readln(<tên biến tệp>,<danh sách tên
biến>);
Write/Writeln(<tên biến tệp>,<danh sách kết
quả>);
GV: Các hàm nào thường dùng khi đọc/ghi
tệp văn bản
HS: hàm eof (<tên biến tệp>)
hàm eoln(<biến tệp>)

2. Tìm hiểu chương
trình ví dụ
Để hiểu rõ thế nào là làm việc tới tệp ta xét ví
dụ sau: Ví dụ 1 SGK trang 87
Program Khoang_cach;
Var d:real; f:text;
x,y:integer;
Begin
assign(f,’TRAI.TXT’);
reset(f);
while not eof(f) do

begin
read(f,x,y); d:=sqrt(x*x+y*y);
writeln(‘khoang cach:’,d:10:2);
end;
close(f);
End.

GV: Hàm eof(f) ở ví dụ trên có chức năng gì?
GV: Có thể sử dụng cấu trúc For thay cho
While được không?
GV: Chương trình này thực hiện công việc gì?
2. Tìm hiểu chương
trình ví dụ
HS: Hàm trả về giá trị True nếu con trỏ tệp
đang chỉ tới cuối tệp
HS: Không, vì không biết số lượng phần tử
của tệp
HS: Tính và đưa ra màn hình khoảng cách từ
trại của thầy hiệu trưởng đến trại của mỗi giáo
viên
Chương trình

Ví dụ 2 SGK
trang 87
Program Dientro;
Var a:array[1 5] of real;
R1,R2,R3:real; i:integer; f1,f2:text;
Begin
Assign(f1,’RESIST.DAT’); Reset(f1);
Assign(f2,’RESIST.EQU’); Rewrite(f2);

While not eof(f1) do
Begin
Readln(f1,R1,R2,R3);
a[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);
a[2]:=R1*R2/(R1+R2)+R3;
a[3]:=R1*R3/(R1+R3)+R2;
a[4]:=R2*R3/(R2+R3)+R1;
a[5]:=R1+R2+R3;
For i:=1 to 5 do write(f2,a[i]:9:3,’ ‘);
Writeln(f2);
End;
Close(f1); close(f2);
End.
2. Tìm hiểu chương
trình ví dụ

GV: Mảng A dùng để lưu giữ giá trị nào?
HS: Dùng để lưu giữ điện trở tương đương
của 3 điện trở theo 5 cách ghép nối như trong
sơ đồ
2. Tìm hiểu chương
trình ví dụ
Chương trình
3. Câu hỏi và bài tập
về nhà
Đọc trước nội dung bài: chương trình con và
phân loại