Bài 16 Tuần: . 29. . . . . Tiết: . .38 . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . 29. . . . . Tiết: . .38 . . . Ngày dạy: . . . . ./. . . ./ 2009 CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP Ví dụ 1: Ví dụ 1: Một trường học phổ thông tổ chức cho giáo viên và học sinh của trường 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 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(ở vị trí tọa độ (0,0)) đến trại của 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 giáo viên chủ nhiệm đều có tọa độ nguyên (x,y). Yêu cầu: Tí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 sau đó xuất dữ liệu ra màn hình. Dữ liệu vào: Cho file văn bản TRAI.INP gồm liên tiếp các cặp số nguyên, các số cách nhau bởi dấu cách. TRAI.INP 2 3 4 5 1 2 File TRAI.INP bên có bao nhiêu vị trí trại của giáo viên chủ nhiệm TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 Khi đọc file ta nên đọc một lần bao nhiêu số? TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 Nên đọc một lần 2 số TRAI.INP 2 3 4 5 1 2 Đọc file tới khi nào dừng và dùng hàm gì để kiểm tra? TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 - Đọc cho tới cuối file - Dùng hàm eof(f) TRAI.INP 2 3 4 5 1 2 Công thức tính khoảng cách giữa gốc tọa độ đến tọa độ (x,y)? TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 D=sqrt(x*x+y*y) - Khai báo; Program vd1; Uses crt; Var tep : TEXT; d : real; x,y : Integer; - Gán tên tệp; BEGIN Clrscr; ASSIGN(t ep, ‘TRAI.INP’); - Mở tệp ra để đọc; RESET(t ep); CÁC BƯỚC: THỂ HIỆN BẰNG PASCAL - Đọc từng tọa độ trong file, mỗi lần đọc 2 số Begin read(f,x,y) ; d:=sqrt(x*x+y*y); Writeln(‘Khoang cach: ’,d:10:2); End; While not eof(f) do - Đóng tệp. Close(tep); Readln; END. TRAI.INP 2 3 4 5 1 2 [...]...Nhấn F3 để mở tệp BAITAP.INP xem nội dung Nội dung BAITAP.INP tệp Ví dụ 2: Tính điện trở tương đương Cho ba điện trở R1, R2, R3 Sử dụng cả ba điện trở để tạo ra năm mạch điện có điện trở tương đương khác nhau bằng cách mắc theo các sơ . ’,d:10:2); End; While not eof(f) do - Đóng tệp. Close (tep) ; Readln; END. TRAI.INP 2 3 4 5 1 2 Nhấn F3 để mở tệp BAITAP.INP xem nội dung. Nội dung tệp BAITAP.INP Cho ba điện trở R1, R2, R3. Sử. trại của 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 giáo vi n chủ nhiệm đều có tọa độ nguyên (x,y). Yêu cầu: Tính khoảng cách giữa trại của mỗi giáo vi n chủ nhiệm và. Bài 16 Tuần: . 29. . . . . Tiết: . .38 . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . 29. . . . .