tuan 18 tiet 36 tiet 33

<span class='text_page_counter'>(1)</span>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: 1. Kiến thức: - Ôn tập câu lệnh lặp với số lần biết trước for … to … do … trong Pascal; - Kết hợp giữa 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. 2. Kĩ năng: Làm các bài tập về câu lệnh lặp với số lần biết trước for … to … do … trong Pascal. 3. 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Ị: 1. Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2. Học sinh: Vở ghi, sách giáo khoa. III. CÁC HOẠT ĐỘNG DẠY – HỌC: 1. Ổn định lớp: (1’) 8A1:…………………………………………………………………………… 8A2:…………………………………………………………………………… 2. 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ủa câu lệnh lặp? 3. Bài mới: Hoạt động của GV. Hoạt động của HS Hoạt động 1: (8’) Tìm hiểu bài tập 1. + GV: Yêu cầu HS tìm lỗi sai và sửa + HS: Thực hiện theo yêu cầu của lại cho đúng. GV đưa ra. a) for i:=100 to 1 do writeln(‘A’); a) for i:=1 to 100 do writeln(‘A’); b) for i:=1.5 to 10.5 do writeln(‘A’); b) for i:=1 to 10 do writeln(‘A’); c) for i=15 to 40 do writeln(‘A’); c) for i:=15 to 40 do writeln(‘A’); d) for i:=7 to 120 do; writeln(‘A’); d) for i:=7 to 120 do writeln(‘A’); e) for i:=8 do 108 to writeln(‘A’); e) for i:=8 to 108 do writeln(‘A’); Hoạt động 2: (15’) Tìm hiểu bài tập 2. + GV: Yêu cầu HS đọc và làm các + HS: Đọc và nghiên cứu SGK bài tập 4 SGK/61. làm các bài tập theo yêu cầu. + GV: Chia lớp thành 6 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 đề ra. + GV: Sau khi thực hiện chương + HS: Sau khi thực hiện chương trình: trình lệnh lặp thực hiện 6 vòng j := 0; lặp, mỗi lần j tăng thêm 2 đơn vị. for i := 0 to 5 do j := j + 2; Vậy khi kết thúc vòng lặp j có giá Giá trị của biến j bằng 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 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. + GV: Hướng dẫn HS thực hiện viết + HS: Trả lời các nội dung theo chương trình trên. yêu cầu của GV. + GV: Yêu cầu HS dựa trên các gợi Program bai6; mở của 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 1. Bài tập 1:. 2. Bài tập 2: * Bài toán: Bài tập 6 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 := 1 To n Do A := 1/(i*(i+2)); Write(‘Tong A = ’,A); Readln.

<span class='text_page_counter'>(2)</span> n, i: Integer; END. câu lệnh lặp for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu BEGIN lệnh>; của Pascal, để viết chương Clrscr; Write(‘Nhap n: ’); Readln(n); trình? + GV: Quan sát quá trình thực hiện A := 0; For i := 1 To n Do của các em. A := 1/(i*(i+2)); + GV: Hướng dẫn sửa sai cho các Write(‘Tong A = ’,A); em trong quá trình thực hiện. + GV: Củng cố lại kiến thức các kỹ Readln END. năng thực hiện cho HS. Hoạt động 2: (15’) Tìm hiểu bài tập 2. + GV: Đưa ra yêu cầu của bài toán + HS: Thực hiện tìm hiểu về bài 3. 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 tại sao của GV đưa ra. Ý tưởng cơ bản là mươi sáu con. Một trăm chương trình này cho phép giải bài xét tất cả các trường hợp và kiểm chân chẵn. Tìm số lượng gà toán đặt ra. 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à một đáp số của Var ga, cho: Byte; For ga := 1 to 35 do bài toán. BEGIN For cho := 1 to 35 do For ga := 1 to 35 do If (ga*2 + cho*4 = 100) and For cho := 1 to 35 do (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 về Readln cho HS thấy và hiểu được bài toán. bài toán. Hiểu về 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 quả hơn. Var ga, cho: Byte; Var ga, cho: Byte; BEGIN BEGIN + GV: Hướng dẫn các em thực hiện, For cho := 1 To 24 Do For cho := 1 To 24 Do ý nghĩa của các câu lệnh trong Begin Begin chương trình. ga := 36 – cho; ga := 36 – cho; + GV: Cách thức hoạt động của 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 được số lượng các phép tính ở End; End; chương trình cải tiến ít hơn so với Readln Readln chương trình ban đầu. END. END. 4. Củng cố - Củng cố trong nội dung bài học. 5. Dặn dò: (1’) - Xem trước nội dung bài tiếp theo. IV. RÚT KINH NGHIỆM: .............................................................................................................................................................. .............................................................................................................................................................. ...............................................................................................................................................................

<span class='text_page_counter'>(3)</span>