Kiểm tra bài cũ: 5’ Câu hỏi: Trình bày cú pháp và cách sử dụng câu lệnh lặp với số lần chưa biết trước while … do trong Pascal?. Nội dung bài mới: HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH Hoạ[r]
(1)Tuần 27 Tiết: 54 Ngày soạn: 17/03/2013 Ngày day: 19/03/2013 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 chưa biết trước while … Pascal Kĩ năng: - Làm các bài tập câu lệnh lặp với số lần chưa biết trước while … Pascal - Viết chương trình sử dụng câu lệnh lặp lệnh ghép 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ị - Gv: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu - Hs: Vở ghi, sách giáo khoa III Phương pháp: - Gv đặt vấn đề, hướng dẫn, bài tập, quan sát hướng dẫn Hs vấn đáp làm việc nhóm IV Tiến trình bài dạy: Ổn định lớp: (1’) 8A1: 8A2: Kiểm tra bài cũ: (5’) Câu hỏi: Trình bày cú pháp và cách sử dụng câu lệnh lặp với số lần chưa biết trước while … Pascal? Nội dung bài mới: HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH Hoạt động 1: (37’) Lý thuyết + 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/71 Bài tập ngoài 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: Đưa yêu cầu câu hỏi + HS: Thảo luận theo nhóm trình và bài tập bày vào bảng phụ a Cho đoạn lệnh sau: + HS: Các nhóm trình bày kết S := 0; n := 0; mình Các nhóm khác While S <= 10 nhận xét bổ sung Begin n := n + 1; S := S + n end; + GV: Với đoạn lệnh trên chương + HS: Với đoạn lệnh trên chương trình thực bao nhiêu vòng lặp trình thực vòng lặp b Cho đoạn lệnh sau: + HS: Các nhóm tìm hiểu thảo S := 0; n := 0; luận thuật toán đưa While S <= 10 + HS: Các nhóm thực Begin n := n + 1; S := S + n; trợ giúp và hướng dẫn Gv + GV: Với đoạn lệnh trên chương + HS: Chương trình thực vô trình thực bao nhiêu vòng lặp tận vì sau câu lệnh n := n + câu + GV: Yêu cầu Hs giải thích vì lệnh lặp kết thúc nên điều kiện S câu lệnh trên lại lặp vô hạn lần = luôn thỏa mãn + GV: Cho Hs thảo luận nhóm + HS: Điều kiện cần thay vòng 5’ để rút nhận xét từ hai đổi để chuyển sang trạng thái đoạn chương trình trên sau đã không thỏa mãn Khi đó vòng lặp GHI BẢNG Bài tập Câu a - Với đoạn lệnh trên chương trình thực vòng lặp Câu b - Chương trình thực vô tận vì sau câu lệnh n := n + câu lệnh lặp kết thúc nên điều kiện S = luôn thỏa mãn * Nhận xét: Điều kiện cần thay đổi để chuyển sang trạng thái không thỏa mãn Khi đó vòng lặp kết thúc hữu hạn các bước câu lệnh While…do thường là câu lệnh ghép (2) tìm hiểu + GV: Nhận xét đánh giá và rút kết luận cho Hs + GV: Đưa yêu cầu câu hỏi và bài tập + GV: Hãy lỗi sai các câu lệnh sau đây: a) x:=10; While x:=10 x:= x+5; b) x:=10; While x=10 x= x+5; kết thúc hữu hạn các bước câu lệnh While…do thường là câu lệnh ghép + HS: Thảo luận theo nhóm trình bày vào bảng phụ + HS: Thảo luận nhóm trình bày kết vào bảng phụ a) Thừa dấu hai chấm điều kiện b) Thiếu dấu hai chấm câu lệnh gán; c) Thiếu các từ khóa begin và end trước và sau các lệnh n := n+ và s := s + n, đó vòng lặp trở thành vô tận + HS: Các nhóm trình bày kết mình Các nhóm khác nhận xét bổ sung + HS: Tập trung lắng nghe quan sát nhận xét ghi nhớ kiến thức + HS: Thảo luận theo nhóm trình bày vào bảng phụ Chương trình: Bài tập a) Thừa dấu hai chấm điều kiện b) Thiếu dấu hai chấm câu lệnh gán; c) Thiếu các từ khóa begin và end trước và sau các lệnh n := n+ và s := s + n, đó vòng lặp trở thành vô tận c) s := 0; n := 0; While s <= 10 n:=n+1; s:=s+n; + GV: Quan sát các nhóm thảo luận và hướng dẫn giải thích cho Hs + GV: Các nhóm thực xong, đại diện nhóm lên bảng thuyết trình bài làm nhóm + GV: Nhận xét đánh giá sửa chữa các lỗi sai các nhóm Bài tập Chương trình: + GV: Đưa yêu cầu câu hỏi var i: byte; và bài tập S: longint; + GV: Viết chương trình Pascal để var i: byte; begin S: longint; tính tổng 100 số tự nhiên đầu S:= 0; begin + GV: Hướng dẫn Hs thuật toán i:= 1; S:= 0; thực bài toán while i <= 100 i:= 1; + GV: Quan sát hướng dẫn while i <= 100 begin nhóm thực viết chương trình S:= S + i; begin + GV: Yêu cầu các nhóm thực i:= i +1; S:= S + i; end; xong lên bảng trình bày kết i:= i +1; write('Tong tu + GV: Nhận xét đánh giá sửa chữa end; den 100 la:',S); write('Tong tu den các lỗi sai các nhóm readln; + GV: Viết chương trình mô tả bài 100 la:',S); end toán trên Pascal chạy và giải thích ý readln; end nghĩa các câu lệnh cho Hs Củng cố: - Củng cố nội dung bài học Hướng dẫn và dặn dò nhà: (2’) - Học bài kết hợp SGK Xem lại các bài tập đã làm Rút kinh nghiệm: (3)