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 + 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à . tp trai.txt th mc 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 R1 R1 R2 R2 R3 R3 R1 R1 R2 R2 R3 R3 R1. 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