Đang tải... (xem toàn văn)
Output: Tệp KETQUA.TXT chứa các HS: Input: Dữ liệu được đọc ở tệp số chia hết cho 3... DATA.INP; Output: Tệp KETQUA.INP chứa các số chia hết cho 3..[r]
(1)GIÁO ÁN GIÁO ÁN Người soạn: Trần Hồng Thắm Bộ môn: Tin học Lớp: 11 TIẾT: BÀI TẬP VỀ TỆP I Mục tiêu Kiến thức: Củng cố việc sử dụng các thủ tục và hàm thao tác trên tệp; Các giải thuật và bài toán Kỹ năng: Học sinh có thể hiểu và sử dụng biến tệp có kiểu lưu và xử lý liệu Thái độ Học sinh tích cực chủ động, nghiêm túc việc giải bài tập II Chuẩn bị GV: Tài liệu, các thiết bị trực quan, giáo án HS: Sách, vở, bút, thước… III Phương pháp dạy học dự kiến Gợi ý, thuyết trình, vấn đáp với học sinh Hoạt động theo nhóm IV Nội dung bài giảng Ổn định lớp- kiểm tra sỹ số Kiểm tra bài cũ Nội dung bài Hoạt động 1: Nhắc lại các kiến thức đã học tệp GV- Yêu cầu học sinh nhắc lại các thao tác tệp HS- Độc lập suy nghĩ để trả lời câu hỏi Hoạt động 2: Rèn luyện kỹ thao tác với tệp Nội dung ghi bảng Người soạn: Trần Hồng Thắm Hoạt động thầy và trò Lop11.com (2) GIÁO ÁN Bài 1: Cho tệp DATA.INP, dòng GV: Ra đề bài tập chứa số nguyên Hãy lập trình tính HS: Chép lại đề bài tập và suy nghĩ cách trung bình cộng các số giải Phân tích bài toán GV: Hãy nêu input và output bài Input: Dữ liệu đọc tệp toán? DATA.INP; HS: Input: Dữ liệu đọc tệp Output: Trung bình cộng các số DATA.INP; Output: Trung bình cộng các số Diễn tả thuật toán: Bước 1: Gán và GV: Một em hãy nêu ý tưởng để giải mở tệp (f, bài toán? ’DATA.INP’), dem:=0; s:=0; HS: Đọc dòng liệu từ tệp, cộng Bước 2: Nếu eof(f) thì qua bước dồn các số tệp và đếm số phần tử Còn không: - read(f,n); tệp - s:=s+n; GV: Gọi HS lên bảng mô tả thuật - dem:=dem+1; toán.Dùng sơ đồ khối cách liệt kê - Quay lại bước 2; HS: Một em lên bảng viết bài Các bạn Bước 3: Nếu dem>0 thì trung bình cộng khác ngồi viết là s/dem GV: Chữa bài hs viết Còn không thì file rỗng; HS: Theo dõi bài Bước 4: Đóng file Viết chương trình GV: Yêu cầu HS viết chương trình cài VAR f:text; đặt s,n,dem:integer; HS: Lên viết chương trình begin GV: Sửa lỗi cho học sinh assign(f,'DATA.TXT'); Mở rộng RESET(f); GV: Từ bài toán các em có thể mở rộng dem:=0; s:=0; đề giải các bài toán tương tự như: while not eof(f) - Tính tổng các giá trị file; begin - Đếm số phần tử file văn Người soạn: Trần Hồng Thắm Lop11.com (3) GIÁO ÁN read(f,n); s:=s+n; dem:=dem+1; end; if dem>0 then write('trung binh cong la:',s/dem:12:2) else write('file rong'); close(f); readln; end Bài 2: Cho tệp DATA.TXT chứa các số nguyên Hãy lập trình tìm các số chia GV: Giao bài tập thứ Đọc đề cho HS hết cho và ghi vào tệp KETQUA.TXT HS: Chép lại đề bài tập và suy nghĩ cách Xác định bài toán giải Input: Dữ liệu đọc tệp GV: Hãy nêu input và output bài DATA.TXT; toán? Output: Tệp KETQUA.TXT chứa các HS: Input: Dữ liệu đọc tệp số chia hết cho DATA.INP; Output: Tệp KETQUA.INP chứa các số chia hết cho Diễn tả thuật toán Bước 1: Gán ‘DATA,TXT), và gán mở và tệp mở (f, GV: Một em hãy nêu ý tưởng để giải tệp bài toán? (f1,KETQUA.TXT) để ghi kết quả; HS: Duyệt phần tử file Bước 2: Nếu eof(f) thì qua bước chia hết cho thì ghi vào tệp KETQUA.INP Còn không: - read(f,n); - Nếu n mod 3=0 GV: Gọi HS lên bảng mô tả thuật thì ghi vào tệp KETQUA.TXT; toán.Dùng sơ đồ khối cách liệt kê - Quay lại bước 2; HS: Một em lên bảng viết bài Các bạn Bước 3: close(f), close(f1) khác ngồi viết Viết chương trình GV: Chữa bài hs viết Người soạn: Trần Hồng Thắm Lop11.com (4) GIÁO ÁN Var f,f1: text; HS: Theo dõi bài n: integer; Begin GV: Yêu cầu HS viết chương trình cài Assign(f,’DATA.TXT’); đặt Reset(f); HS: Lên viết chương trình Assign(f1,’KETQUA.TXT’); GV: Sửa lỗi cho học sinh Rewrite(f1); Mở rộng: While not eof(f) GV: Từ bài toán trên ta có thể mở rộng để giải các bài toán tương tự sau: Begin Read(f,n); - Ghi vào tệp khác chứa các số If n mod 3=0 then writeln(f1,n); nguyên dương End; Close(f); Close(f1); Readln; End V Củng cố, dặn dò - Củng cố các kiến thức liên quan chương này và các loại bài tập thường có - Làm các bài tập sách bài tập để rèn luyện kỹ tệp Người soạn: Trần Hồng Thắm Lop11.com (5)