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

Ví dụ 1:
Một trường THPT tổ chức cho gv và hs của trường đi cắm trại, sinh hoạt ngòai trời ở vườn quốc gia Cúc Phương. Để lên lịch đến thăm khu 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 ( tọa độ (0,0) ) đến các trại của gvcn. Mỗi lớp có 1 khu trại, vị trí trại của mỗi gvcn đều có tọa độ nguyên (x,y) được ghi trong tệp văn bản TRAI.TXT. Tính và đưa ra màn hình khoảng cách giữa các trại của mỗi gvcn so với trại của thầy Hiệu trưởng?
Cho biết tập tin TRAI.TXT có chứa những dữ liệu sau:
100 0 100 50 100 100 200 0 200 50 200 100
(100,100)
(100,50)
(100,0)
(200,100)
(200,50)
(200,0)
D2 =X2+Y2
Ví dụ 1:
Ví dụ 1:
Ví dụ 1:
Program Khoang_cach;
Var d:real;
f:text;
x,y:real;
Begin
Assign(f,’D: rai.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);
readln;
End.
Ví dụ 2:
Ví dụ 1:
Ví dụ 2:
Cho ba điện trở R1, R2, R3. Sử dụng 3 điện trở để tạo ra 5 mạch điện có điện trở tương đương khác nhau. 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. Viết chương trình đọc dữ liệu từ tập tin RESIST.DAT , tính điện trở tương đương và ghi kết quả ra tệp văn bản RESIST.EQU
Cho biết tập tin D:RESIST.DAT có chứa những dữ liệu sau:
50 10 200
20 50 300
30 40 200
Ví dụ 1:
Ví dụ 2:
R=R1+R2+R3
R=R1*R2*R3/(R1*R2+R1*R3+R2*R3)
R=R1*R2/(R1+R2)+R3
R=R1*R3/(R1+R3)+R2
R=R2*R3/(R2+R3)+R1
Ví dụ 1:
Ví dụ 2:
Program Dientro;
Var A:array [1..5] of real;
R1, R2, R3: real;
i:integer;
f1, f2 :text;
Begin
Assign( f1, ‘D:RESIST.DAT’);
Reset(f1);
Assign(f2,’D: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;
End;

Ví dụ 1:
Ví dụ 2:
For i:=1 to 5 Do
Write( f2, A[i]:9:3, ‘ ‘);
Writeln(f2);
End;
Close (f1);
Close (f2);
End.