Câu lệnh thực Kiểm tra trị của biến đếm giá trị của một số hiện ít nhất điều kiện, + GV: Quan sát các nhóm thảo luận có giá trị nguyên thực, cũng có thể một lần, sau đó điều kiện và hướn[r]
(1)Tuần 27 Tiết: 53 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 ôn tập kiến thức, đặt vấn đề, hướng dẫn, bài tập 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 GHI BẢNG Hoạt động 1: (37’) Lý thuyết Bài tập + GV: Yêu cầu Hs đọc và làm các + HS: Đọc và nghiên cứu SGK Sự khác biệt giữa: bài tập 2, SGK/71 làm các bài tập theo yêu cầu For…to…do While…do tính + GV: Chia lớp thành nhóm học + HS: Thảo luận nhóm và trả lời Chỉ thị cho Máy máy thực thực với tập và làm các bài tập trên các câu hỏi đề lệnh với số lần số lần lặp + GV: Đưa yêu cầu câu hỏi + HS: Thảo luận theo nhóm trình đã xác định từ chưa xác và bài tập bày vào bảng phụ trước định trước + GV: Hãy phát biểu khác biệt + HS: Điều kiện là Có thể kiểm câu lệnh lặp với số lần biết giá trị biến tra giá trị For…to…do While…do đếm có giá trị số thực, trước và câu lệnh lặp với số lần lặp Chỉ thị cho máy Máy tính thực nguyên đã đạt có thể thực lệnh với số lần chưa biết trước giá trị là điều + GV: Cho Hs thảo luận nhóm với số lần đã xác lặp chưa xác định lớn hay kiện khác,… định từ trước trước vòng 5’ để tìm khác biệt Điều kiện là giá Có thể kiểm tra chưa hai câu lệnh lặp Câu lệnh thực Kiểm tra trị biến đếm giá trị số ít điều kiện, + GV: Quan sát các nhóm thảo luận có giá trị nguyên thực, có thể lần, sau đó điều kiện và hướng dẫn giải thích cho Hs đã đạt giá là điều kiện kiểm tra điều thỏa mãn trị lớn hay khác,… Hs có thắc mắc kiện thực chưa + GV: Các nhóm thực xong, Câu lệnh thực Kiểm tra điều câu lệnh đại diện nhóm lên bảng thuyết trình ít kiện, điều kiện bài làm nhóm lần, sau đó kiểm thỏa mãn thực câu lệnh + GV: Các nhóm khác nhận xét tra điều kiện đánh giá bài làm bạn + GV: Nhận xét đánh giá sửa chữa + HS: Tập trung chú ý lắng nghe ghi nhớ kiến thức các lỗi sai các nhóm Bài tập (2) + GV: Đưa yêu cầu câu hỏi và bài tập + GV: Đưa thuật toán 1: B1 S 10, x 0.5 B2 Nếu S 10, chuyển tới bước B3 n n + 3, S S – n quay lại bước B4 Thông báo S và kết thúc thuật toán + GV: Khi thực thuật toán máy thực bao nhiêu vòng lặp + GV: Kết thúc thuật toán giá trị S bao nhiêu? + GV: Viết chương trình Pascal thể thuật toán đó + GV: Nhận xét đánh giá sửa chữa các lỗi sai các nhóm + GV: Đưa thuật toán 2: B1 S 10, n B2 Nếu S 10, chuyển tới bước B3 n n + 3, S S – n quay lại bước B4 Thông báo S và kết thúc thuật toán + GV: Khi thực thuật toán máy thực bao nhiêu vòng lặp + HS: Thảo luận theo nhóm trình bày vào bảng phụ + HS: Các nhóm tìm hiểu thảo luận thuật toán đưa + HS: Các nhóm thực trợ giúp và hướng dẫn Gv + 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: Khi thực thuật toán máy tính thực vòng lặp + HS: Kết thúc thuật toán giá trị S = 0.5 + HS: Đoạn chương trình Pascal tương ứng: S:= 10; x := 0.5; While S > 5.2 S := S - x; Writeln(S); + HS: Các nhóm tìm hiểu thảo luận thuật toán đưa + HS: Các nhóm thực trợ giúp và hướng dẫn Gv + 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: Không vòng lặp nào thực vì từ đầu điều kiện đã không thỏa mãn + HS: Kết thúc thuật toán giá trị S = 10 + HS: Đoạn chương trình: S:= 10; n := 0; While S > 10 Begin n := n + 3; S := S - n end; Writeln(S); Câu a - Khi thực thuật toán máy tính thực vòng lặp - Kết thúc thuật toán giá trị S = 0.5 - Đoạn chương trình Pascal tương ứng: S:= 10; x := 0.5; While S > 5.2 S := S - x; Writeln(S); Câu b - Không vòng lặp nào thực vì từ đầu điều kiện đã không thỏa mãn - Kết thúc thuật toán giá trị S = 10 - Đoạn chương trình: S:= 10; n := 0; While S > 10 Begin n := n + 3; S := S - n end; Writeln(S); + GV: Kết thúc thuật toán giá trị S bao nhiêu? + GV: Viết chương trình Pascal thể thuật toán đó + GV: Nhận xét đánh giá sửa chữa các lỗi sai các nhóm + GV: Nhận xét chốt nội dung 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)