tiet 38.ppt

Bµi 16 Giáo viên thực hiện: Nguyễn Tấn Phát 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 ủoùc file ta neõn ủoùc moọt lan bao nhieõu soỏ? TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 TRAI.INP 2 3 4 5 1 2 Neõn ủoùc moọt lan 2 soỏ 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(tep, ‘TRAI.INP’); - Më tÖp ra ®Ó ®äc; RESET(tep); 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 . Nguyễn Tấn Phát Tuần: . 29. . . . . Tiết: . .38 . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . 29. . . . . Tiết: . .38 . . . Ngày dạy: . . . . ./. . . ./ 2009