đoạn chương trình sau và thực hiện Program Tao_bang; các yêu cầu: Uses Crt; - Tìm hiểu ý nghĩa của các câu lệnh Var i: Byte; trong chương trình, dịch chương j: Byte; trình và sửa lỗi, nế[r]
(1)Tuần 21 Tiết: 41 Ngày soạn: 06/01/2013 Ngày day: 08/01/2013 Bài thực hành 5: SỬ DUNG LỆNH LẶP FOR…DO (tt) I Mục tiêu: Kiến thức: - Viết chương trình có sử dụng vòng lặp For…do; - Sử dụng câu lệnh ghép Kĩ năng: - Rèn luyện kĩ đọc hiểu chương trình có sử dụng vòng lặp For…do Thái độ: II Chuẩn bị - Gv: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu, phòng máy - Hs: Vở ghi, sách giáo khoa III Phương pháp: - Gv hướng dẫn, thao tác mẫu, quan sát, sửa sai Hs quan sát, tự thực theo yêu cầu IV Tiến trình bài dạy: Ổn định lớp: (1’) 8A1: 8A2: Kiểm tra bài cũ: Lồng ghép nội dung bài học Nội dung bài mới: HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH Hoạt động 1: (25’) Nội dung bài tập + GV: Đưa yêu cầu bài + HS: Đọc thông tin bài1 + GV: Yêu cầu Hs thực gõ + HS: Gõ đoạn chương trình đoạn chương trình sau và thực Program Tao_bang; các yêu cầu: Uses Crt; - Tìm hiểu ý nghĩa các câu lệnh Var i: Byte; chương trình, dịch chương j: Byte; trình và sửa lỗi, có BEGIN - Chạy chương trình Quan sát kết Clrscr; nhận trên màn hình For i:= To Do + GV: Lưu ý các em có Begin câu lệnh if, có thể dùng câu lệnh for For j := To Do; lồng câu lệnh for khác Write(10*i+j :4); thực lệnh lặp Sử dụng câu lệnh Writeln; for lồng để in màn hình các End; số từ đến 99 theo dạng bảng Readln; END + GV: Quan sát, hướng dẫn Hs thực + HS: Tự giác thực theo trên máy hướng dẫn Gv + GV: Sửa chữa sai sót các + HS: Sửa lỗi mà các em em mắc phải hay gặp phải dấu + GV: Sử dụng bài làm hoàn + HS: Quan sát và nhận xét, lắng GHI BẢNG Bài Program Tao_bang; Uses Crt; Var i: Byte; j: Byte; BEGIN Clrscr; For i:= To Do Begin For j := To Do; Write(10*i+j :4); Writeln; End; Readln; END (2) thiện Hs hướng dẫn các em câu lệnh lặp + GV: Yêu cầu Hs giải thích câu lệnh lặp lồng sử dụng bài + GV: Nhận xét chốt nội dung và hướng dẫn các em các câu lệnh + GV: Hướng dẫn sửa chữa lỗi các em mắc phải Hoạt động 2: (17’) Bài tập làm thêm + GV: Đưa bài toán cổ cho Hs thực Vừa gà vừa chó Bó lại cho tròn Ba mươi sáu Một trăm chân chẵn + GV: Đưa chương trình và yêu cầu Hs tìm hiểu, giải thích phép toán đặt + GV: Yêu cầu Hs trình bày ý tưởng thuật toán đưa nghe và hiểu chương trình + HS: Giải thích cách chạy câu lệnh lặp + HS: Tập trung chú ý lắng nghe và hiểu nội dung bài toán + HS: Hoàn thiện chương trình mình + HS: Tìm hiểu bài toán qua chương trình sau Var ga, cho : byte; BEGIN For ga:=1 to 35 For cho := to 35 If (ga*2 + cho*4 = 100) and (ga + cho = 36) then Writeln(‘So ga la: ’,ga,; ‘So cho la: ’,cho); Readln; END + HS: Xét tất các trường hợp và kiểm tra xem trường hợp nào thỏa mãn: ga + cho = 36 và ga*2 + cho*4 = 100 là đáp số + HS: Phần cải tiến For cho := to 24 Begin Ga := 36 – cho; If (2*ga + 4*cho = 100) then writeln(‘Ga: ’, ga, ‘Cho: ’,cho); End; Bài Var ga, cho : byte; BEGIN For ga:=1 to 35 For cho := to 35 If (ga*2 + cho*4 = 100) and (ga + cho = 36) then Writeln(‘So ga la: ’,ga,; ‘So cho la: ’,cho); Readln; END Chương trình cải tiến: Var ga, cho : byte; BEGIN For cho := to 24 Begin Ga := 36 – cho; If (2*ga + 4*cho = 100) then writeln(‘Ga: ’, ga, ‘Cho: ’,cho); End; Readln; END + GV: Yêu cầu Hs cải tiến chương trình cho hiệu + GV: Phân tích, hướng dẫn để Hs nhận thấy số lượng phép tính chương trình cải tiến hiệu + GV: Cho Hs quan sát chương trình đã cải tiến so với chương trình chưa cải tiến và so sánh Củng cố: - Củng cố nội dung bài học Hướng dẫn và dặn dò nhà: (3’) - Học bài kết hợp SGK - Đọc trước nội dung bài Rút kinh nghiệm: (3)