ghi vào tệp SND.TXT các số là begin nguyên dương được đọc từ tệp assignf,’sn.txt’; SN.TXT resetf; writeln‘day so nguyen cua tep sn.txt la:’; Yêu cầu học sinh soạn thảo chương while noteo[r]
(1)Ngày soạn:2/2/2013 Tiết PPCT: 40 Bài tập và thực hành (t2) I.MỤC TIÊU Kiến thức - Khắc sâu thêm phần kiến thức lí thuyết kiểu tệp, đặc biệt là các hàm và thủ tục liên quan - Nắm số thuật toán bản: các thao tác đọc và ghi liệu kĩ - Khai báo biến kiểu tệp văn bản, gắn tên tệp, mở tệp để đọc, mở tệp để ghi, đọc, ghi tệp Thái độ - Góp phần rèn luyện tác phong, tư lập trình: Tự giác, tích cực, chủ động và sáng tạo tìm kiếm kiến thức II ĐỒ DÙNG DẠY HỌC Chuẩn bị giáo viên - Phòng máy thực hành máy vi tính, máy chiếu Projector (nếu có), sách giáo khoa, sách giáo viên Chuẩn bị học sinh - Sách giáo khoa III PHƯƠNG PHÁP: Nêu vấn đề, vấn đáp, học sử dụng liệu trực quan IV.HOẠT ĐỘNG DẠY- HỌC Ổn định lớp, kiểm tra sỉ số học sinh, phân nhóm thực hành Kiểm tra bài cũ: Tiến hành toàn tiết học Nội dung: Hoạt động 1: Thực chương trình giải bài tập Hoạt động giáo viên Hoạt động học sinh Giáo viên đề bài : 1.Các nhóm trình bày Lập trình để : a a đọc liệu từ tệp SN.TXT gồm var f,g;text; các số nguyên và ghi màn hình x :integer; b ghi vào tệp SND.TXT các số là begin nguyên dương đọc từ tệp assign(f,’sn.txt’); SN.TXT reset(f); writeln(‘day so nguyen cua tep sn.txt la:’); Yêu cầu học sinh soạn thảo chương while not(eof(f)) trình và thực trên máy begin read(f,x); write(x:5); end; close(f); readln end Từ câu a, hãy bổ sung vào đoạn b (2) chương trình hợp lý? Gợi ý: sau đọc số nguyên tệp SN.TXT biến x ta kiểm tra x là số dương thì ghi vào tệp assign(f,’sn.txt’); assign(g,’snd.txt’); reset(f); rewrite(g); while not(eof(f)) begin read(f,x); if x>0 then write(g,x:5); end; close(f); close(g); Giáo viên chỉnh sủa bổ sung và đánh giá V ĐÁNH GIÁ CUỐI BÀI Những nội dung đã học - Một số thao tác liên quan đến Khai báo biến kiểu tệp văn bản, gắn tên tệp, mở tệp để đọc, mở tệp để ghi, đọc, ghi tệp Câu hỏi và bài tập nhà Ôn tập kiến thức phần xâu và phần tệp chuẩn bị tiết sau kiểm tra tiết (3)