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

Kiểm tra bài cũ
Câu 1: Nêu đặc điểm của kiểu tệp?
Câu 2:
. Viết khai báo biến tệp với tên biến tệp là ‘f’.
. Gắn tên tệp ‘ViDu.txt’ cho biến tệp f.
. Mở tệp để đọc dữ liệu.
. Đọc dữ liệu từ tệp ‘Vidu.txt’ vào 2 biến x, y.
. Đóng tệp.
Câu 3:
. Viết khai báo biến tệp với tên biến tệp là ‘f’.
. Gắn tên tệp ‘Ketqua.txt’ cho biến tệp f.
. Mở tệp để ghi dữ liệu.
. Ghi dữ liệu là s1, s2 vào tệp ‘Ketqua.txt’.
. Đóng tệp.
Bài 16: VÍ DỤ LÀM VIỆC VỚI TỆP
Đáp án:
Câu 1:
Dữ liệu được lưu trữ lâu dài ở bộ nhớ ngoài và không bị mất khi tắt nguồn điện.
Lượng dữ liệu lưu trữ có thể rất lớn và chỉ phụ thuộc vào dung lượng đĩa.

Câu 2:
Var f: text;
Assign(f,’ViDu.txt’);
Reset(f);
Readln(f, x, y);
Close(f);
Câu 3:
Var f: text;
Assign(f,’Ketqua.txt’);
Rewrite(f);
Writeln(f, s1, s2);
Close(f);
VÍ DỤ 1
Trại của thầy HT có toạ độ (0,0). Trại của các GVCN có toạ độ nguyên (x,y) được ghi trong tệp văn bản ‘TRAI.TXT’ (chứa liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng). Yêu cầu đọc các cặp toạ độ từ tệp ‘TRAI.TXT’, tính rồi đưa ra màn hình khoảng cách giữa trại của mỗi GVCN và trại của thầy HT.
DEMO
4 cặp số nguyên tương
ứng với tọa độ của 4 trại
của 4 giáo viên chủ nhiệm
VÍ DỤ 1
Progam 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);
Write(‘Khoang cach: ‘,d:10:2);
End;
Close(f);
End.
{Gắn tệp ‘TRAI.TXT’ với biến tệp f}
{Mở tệp ‘TRAI.TXT’ để đọc dữ liệu}
{Kiểm tra con trỏ tệp đã chỉ cuối tệp chưa}
{Đọc dữ liệu từ tệp, gán giá trị
cho 2 biến x, y}
{Đóng tệp}
DEMO
CHƯƠNG TRÌNH
DEMO
KẾT QUẢ KHOẢNG CÁCH
TỪ TRẠI CỦA THẦY HIỆU TRƯỞNG
TỚI 4 TRẠI CỦA GIÁO VIÊN CHỦ NHIỆM
VÍ DỤ 2
Cho 3 điện trở R1, R2, R3 được mắc như 5 sơ đồ H17 trong sgk trang 88. Cho tệp văn bản ‘RESIST.DAT’ gồm nhiều dòng, mỗi dòng chứa 3 số thực R1, R2, R3, các số cách nhau 1 dấu cách. Yêu cầu đọc dữ liệu từ tệp ‘RESIST.DAT’, tính các điện trở tương đương và ghi kết quả ra tệp văn bản ‘RESIST.EQU’, mỗi dòng ghi 5 điện trở tương đương của 3 điện trở ở dòng dữ liệu vào tương ứng.
DEMO
MỖI DÒNG CHỨA 3 SỐ THỰC R1, R2, R3
DEMO
mỗi dòng ghi
5 điện trở tương đương
theo 5 sơ đồ (SGK)
của 3 điện trở
ở dòng dữ liệu vào tương ứng
Program Dien_tro;
Var a: array[1..5] of real;
R1, R2, R3: real; f1,f2 :text; i: integer;
Begin
Assign(f1,‘RESIST.DAT’);
Reset(f1);
Assign(f2,‘RESIST.EQU’);
Rewrite(f2);

VÍ DỤ 2
{Gắn tệp ‘RESIST.DAT’ với biến tệp f1}
{Gắn tệp ‘RESIST.EQU’ với biến tệp f2}
{Mở tệp ‘RESIST.DAT’ để đọc dữ liệu}
{Mở tệp ‘RESIST.EQU’ để ghi dữ liệu}

5.While not eof(f1) do
6. Begin
7. Readln(f1,R1,R2,R3);

8. a[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);
9. a[2]:=R1*R2/(R1+R2)+R3;
10. a[3]:=R1*R3/(R1+R3)+R2;
11. a[4]:=R2*R3/(R2+R3)+R1;
12. a[5]:=R1+R2+R3;
13. For i:=1 to 5 do write(f2, a[i]:9:3,’ ‘);
14. Writeln(f2);
15. End;
16.Close(f1); Close(f2);
17.End.
{Đọc dữ liệu từ tệp, gán giá trị
Cho 3 biến R1, R2, R3}
{Ghi dữ liệu
vào tệp
RESIST.EQU}
{Đóng tệp}
{Đưa con trỏ tệp
xuống dòng}
DEMO
CHƯƠNG TRÌNH
BÀI TẬP VỀ NHÀ
Cho 5 điểm trên mặt phẳng, điểm thứ i có toạ độ nguyên (xi,yi) được ghi trong tệp văn bản DIEM.TXT (chứa liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng). Viết chương trình đọc các toạ độ từ tệp DIEM.TXT, tính và ghi kết quả vào tệp KETQUA.TXT khoảng cách giữa điểm thứ 1 với 4 điểm còn lại. Mỗi khoảng cách ghi trên 1 dòng.
DEMO
5 điểm
tương ứng với
5 cặp số nguyên
DEMO
Khoảng cách
giữa điểm thứ 1
với 4 điểm còn lại
CỦNG CỐ, LUYỆN TẬP
Về nhà xem lại 2 ví dụ của bài học hôm nay.
Làm bài tập về nhà
Ôn lại lí thuyết để tiết sau học tiết bài tập
DEMO
CẢM ƠN CÁC EM
ĐÃ LẮNG NGHE!