+ GV: Yêu cầu HS từ thuật toán bài + HS: Đọc và nghiên cứu SGK tập 6 SGK/61 viết chương trình tính dựa trên thuật toán ở tiết trước tổng A.. thực hiện theo yêu cầu.[r]
(1)Tuần 17 Tiết: 33 Ngày soạn: 26/12/2015 Ngày day: 28/12/2015 BÀI TẬP I MỤC TIÊU: Kiến thức: - Ôn tập câu lệnh lặp với số lần biết trước for … to … … Pascal; - Kết hợp câu lệnh điều kiện với câu lệnh lặp với số lần biết trước Kĩ năng: Làm các bài tập câu lệnh lặp với số lần biết trước for … to … … Pascal Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn II CHUẨN BỊ: Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu Học sinh: Vở ghi, sách giáo khoa III CÁC HOẠT ĐỘNG DẠY – HỌC: Ổn định lớp: (1’) 8A1:…………………………………………………………………………… 8A2:…………………………………………………………………………… Kiểm tra bài cũ: (5’) Câu 1: Em hãy trình bày cú pháp cách sử dụng câu lệnh lặp? Bài mới: Hoạt động GV Hoạt động HS Hoạt động 1: (8’) Tìm hiểu bài tập + GV: Yêu cầu HS tìm lỗi sai và sửa + HS: Thực theo yêu cầu lại cho đúng GV đưa a) for i:=100 to writeln(‘A’); a) for i:=1 to 100 writeln(‘A’); b) for i:=1.5 to 10.5 writeln(‘A’); b) for i:=1 to 10 writeln(‘A’); c) for i=15 to 40 writeln(‘A’); c) for i:=15 to 40 writeln(‘A’); d) for i:=7 to 120 do; writeln(‘A’); d) for i:=7 to 120 writeln(‘A’); e) for i:=8 108 to writeln(‘A’); e) for i:=8 to 108 writeln(‘A’); Hoạt động 2: (15’) Tìm hiểu bài tập + GV: Yêu cầu HS đọc và làm các + HS: Đọc và nghiên cứu SGK bài tập SGK/61 làm các bài tập theo yêu cầu + GV: Chia lớp thành nhóm học + HS: Thảo luận nhóm và trả lời tập và làm các bài tập trên các câu hỏi đề + GV: Sau thực chương + HS: Sau thực chương trình: trình lệnh lặp thực vòng j := 0; lặp, lần j tăng thêm đơn vị for i := to j := j + 2; Vậy kết thúc vòng lặp j có giá Giá trị biến j bao nhiêu trị là 12 + GV: Yêu cầu HS từ thuật toán bài + HS: Đọc và nghiên cứu SGK tập SGK/61 viết chương trình tính dựa trên thuật toán tiết trước tổng A thực theo yêu cầu + GV: Hướng dẫn HS thực viết + HS: Trả lời các nội dung theo chương trình trên yêu cầu GV + GV: Yêu cầu HS dựa trên các gợi Program bai6; mở GV viết chương trình Uses Crt; + GV: Hướng dẫn các em sử dụng Var A: Real; Nội dung ghi bảng Bài tập 1: Bài tập 2: * Bài toán: Bài tập SGK/61 viết chương trình tính tổng A Program bai6; Uses Crt; Var A: Real; n, i: Integer; BEGIN Clrscr; Write(‘Nhap n: ’); Readln(n); A := 0; For i := To n Do A := 1/(i*(i+2)); Write(‘Tong A = ’,A); Readln (2) n, i: Integer; END câu lệnh lặp for <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu BEGIN lệnh>; Pascal, để viết chương Clrscr; Write(‘Nhap n: ’); Readln(n); trình? + GV: Quan sát quá trình thực A := 0; For i := To n Do các em A := 1/(i*(i+2)); + GV: Hướng dẫn sửa sai cho các Write(‘Tong A = ’,A); em quá trình thực + GV: Củng cố lại kiến thức các kỹ Readln END thực cho HS Hoạt động 2: (15’) Tìm hiểu bài tập + GV: Đưa yêu cầu bài toán + HS: Thực tìm hiểu bài Bài tập 3: cổ yêu cầu HS tìm hiểu toán cổ Bài toán cổ: Vừa gà vừa + GV: Giới thiệu chương trình yêu + HS: Nghiên cứu chương trình chó Bó lại cho tròn Ba cầu HS tìm hiểu, giải thích GV đưa Ý tưởng là mươi sáu Một trăm chương trình này cho phép giải bài xét tất các trường hợp và kiểm chân chẵn Tìm số lượng gà toán đặt tra xem trường hợp nào thỏa mãn: và chó Var ga, cho: Byte; ga + cho = 36 và ga*2 + cho*4 Chương trình BEGIN = 100 thì đó là đáp số Var ga, cho: Byte; For ga := to 35 bài toán BEGIN For cho := to 35 For ga := to 35 If (ga*2 + cho*4 = 100) and For cho := to 35 (ga + cho = 36) then Writeln(‘So ga If (ga*2 + cho*4 = la: ’, ga, ‘; So cho la: ’, cho); 100) and (ga + cho = 36) Readln then Writeln(‘So ga la: ’, END ga, ‘; So cho la: ’, cho); + GV: Hướng dẫn phân tích bài toán + HS: Chú ý quan sát, tìm hiểu Readln cho HS thấy và hiểu bài toán bài toán Hiểu chương trình END + GV: Từ đó yêu cầu HS cải tiến để + HS: Chương trình cải tiến Chương trình cải tiến có chương trình hiệu Var ga, cho: Byte; Var ga, cho: Byte; BEGIN BEGIN + GV: Hướng dẫn các em thực hiện, For cho := To 24 Do For cho := To 24 Do ý nghĩa các câu lệnh Begin Begin chương trình ga := 36 – cho; ga := 36 – cho; + GV: Cách thức hoạt động If (2*ga + 4*cho = 100) If (2*ga + 4*cho = chương trình cải tiến Then Writeln(‘Ga: ’, ga, ‘, 100) Then Writeln(‘Ga: ’, + GV: Phân tích hướng dẫn để HS Cho: ’,cho); ga,‘, Cho: ’,cho); thấy số lượng các phép tính End; End; chương trình cải tiến ít so với Readln Readln chương trình ban đầu END END Củng cố - Củng cố nội dung bài học Dặn dò: (1’) - Xem trước nội dung bài IV RÚT KINH NGHIỆM: (3)