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

Kiểm tra bài cũ
Bài 16. Ví dụ làm việc với tệp
Ví dụ 1: Một trường trung học cho giáo viên và học sinh đi cắm trại, sinh hoạt ngoài trời vườn quốc gia Cúc phương. Để lên lịch đến thăm trại các lớp thầy hiệu trưởng cần biết khoảng cách từ trại của mình (toạ độ (0,0)) đến trại các giáo viên chủ nhiệm. Mỗi lớp có một khu trại, vị trí trại của mỗi giáo viên chủ nhiệm đều có toạ độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT (như vậy tệp TRAI.TXT chứa liên tiếp các cặp số nguyên cách nhau bởi dấu cách)
Tính và đưa ra màn hình khoảng cách giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng?
Công thức tính khoảng cách giữa 2 điểm khi biết toạ độ của nó.
Hướng dẫn: Độ dài d của đoạn thẳng nối 2 điểm có toạ độ (x,y) và (u,v) trong mặt phẳng được tính theo công thức:
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;
readln;
end.
Bài 16. Ví dụ làm việc với tệp
Gắn biến tệp f với tệp trai.txt
Mở tệp để đọc
Chưa kết thúc file
Bài toán 1 (Nhóm 1, 2)
Từ chương trình ví dụ 1. Hãy đưa ra màn hình khoảng cách trại cách trại của thầy hiệu trưởng xa nhất

B�i toỏn 2 (Nhúm 3,4)
Vi?t thờm v�o chuong trỡnh d?c d? li?u t?p trai.txt ? thu m?c d:aitapdulieu
Bài 16. Ví dụ làm việc với tệp
Tính thời gian
Bài 16. Ví dụ làm việc với tệp
Ví dụ 2: Tính điện trở tương đương
Cho 3 điện trở R1, R2, R3. Sử dụng cả 3 điện trở để tạo ra 5 mạch điện có điện trở tương đương khác nhau bằng cách mắc theo sơ đồ ở hình bên:
Mỗi cách mắc đều cho điện trở tương đương khác nhau.
Ví dụ: Sơ đồ 1 điện trở tương đương sẽ là:


Nếu mắc theo sơ đồ V thì:
R=R1+R2+R3
Cho tệp văn bản RESIST .DAT gồm nhiều dòng mỗi dòng chứa 3 giá trị R1, R2, R3 cách nhau bởi mội dấu cách.
Sơ đồ 1: R=(R1*R2*R3)/(R1*R2+R1*R3+R2*R3)
Sơ đồ 2: R=(R1*R2)/(R1+R2)+R3
Sơ đồ 3: R=(R1*R3)/(R1+R3)+R2
Sơ đồ 4: R=(R2*R3)/(R2+R3)+R1
Sơ đồ 5: R=R1+R2+R3
+ Giá trị R1, R2, R3 đã cho trong tệp RESIST.DAT
+ Dữ liệu được tổ chức thành nhiều dòng. Mỗi một dòng trong tệp RESIST. DAT chứa 3 số thực được cách nhau bởi một dấu cách
Như vậy ta phải thực hiện các công việc?
+ Đọc dữ liệu trong tệp RESIST.DAT
+ Tính điện trở của 5 mạch điện và lưu vào file RESIST.EQU
Bài 16. Ví dụ làm việc với tệp
Ví dụ 1: Tính khoảng cách
Ví dụ 2: Tính điện trở tương đương
Program Dientro;
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);

While not oef(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]:8:2, ‘ ‘);
writeln(f2);
End; close(f1); close(f2);
End.

Bài 16. Ví dụ làm việc với tệp
Ví dụ 1: Tính khoảng cách
Ví dụ 2: Tính điện trở tương đương
Từ ví dụ 2 hãy viết chương trình tìm giá trị lớn nhất trong file RESIST.EQU. Ghi giá trị đó vào file KETQUA.OUT

Viết chương trình nhập vào từ bàn phím một bài thơ (nếu người dùng nhập vào thừa dấu cách thì phải xoá dấu cách thừa) nội dung bài thơ được lưu trong tệp THO.TXT.
- Đọc nội dung của tệp THO.TXT đưa ra màn hình nội dung bài thơ.
- Đưa ra màn hình số từ trong bài thơ vừa nhập.
Bài 16. Ví dụ làm việc với tệp
Bài tập về nhà