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:
22
)()( vyuxd
+=

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

Bi toỏn 2 (Nhúm 3,4)
Vit thờm vo chng trỡnh c d liu tp trai.txt th mc
d:\baitap\dulieu
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
R1
R1
R2
R2
R3

R3
R1
R1
R2
R2
R3
R3
R1
R1
R2
R2
R3
R3
R1
R1
R3
R3
R2
R2
R2
R2
R3
R3
R1
R1
Sơ đồ I
Sơ đồ II
Sơ đồ III Sơ đồ IV
Sơ đồ V
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.
3*23*12*1
3*2*1
RRRRRR
RRR
R
++
=
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