Giáo án Tin học 8 - Tiết 17, Bài thực hành số 6: Sử dụng lệnh lặp While...Do - Năm học 2009-2010

3/ Bài mới: Hoạt động của GV Hoạt động của HS Nội dung - Tiết trước, chúng ta đã tìm hiểu câu Bài tập 1: lệnh lặp với số lần chưa biết trước.. Program - Tiết này, chúng ta sẽ thực hiện b[r]

GIÁO ÁN TIN HỌC Tiết PPCT: 17 (HKII) Ngày soạn: 18/2/2010 Ngày dạy: Bài thực hành số SỬ DỤNG LỆNH LẶP WHILE DO TG 5’ TG 30’ I Mục tiêu: - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước - Rèn luyện kĩ đọc chương trình, tìm hiểu tác dụng các câu lệnh - Thái độ học tập nghiêm túc, chu đáo, cẩn thận II Chuẩn bị: GV: Phòng máy tính HS: SGK, dụng cụ học tập đầy đủ III Hoạt động dạy học: 1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh (1’) 2/ Kiểm tra bài cũ: Hoạt động GV Hoạt động HS Nội dung - Đặt câu hỏi chung cho lớp: - Vấn đáp giáo Kẻ bảng chạy chương trình BT1 viên, học sinh để ôn lại bài cũ SGK trang 72 - Y/c HS trả lời các câu hỏi trên - HS trả lời - Nhóm HS nhận xét, (ghi trên bảng) các câu hỏi GV đánh giá HS trả lời câu - HS nhận xét, đánh hỏi - Y/c HS nhận xét, đánh giá HS trả giá HS trả lời câu hỏi lời câu hỏi 3/ Bài mới: Hoạt động GV Hoạt động HS Nội dung - Tiết trước, chúng ta đã tìm hiểu câu Bài tập 1: lệnh lặp với số lần chưa biết trước Program - Tiết này, chúng ta thực bài Tinh_Trung_Binh; Uses Crt; thực hành để hiểu câu lệnh lặp với số lần chưa biết trước Var n, dem: Integer; x, TB: real; - Y/c HS đọc và tìm hiểu bài tập - Đọc bài tập - Y/c HS nhắc lại ý tưởng thuật - Nhắc lại ý tưởng Begin Clrscr; toán thuật toán - Y/c HS gõ chương trình bài tập - Gõ chương trình bài Dem:= 0; TB:= 0; Write(‘ Nhap so cac tập so can tinh n = ‘); - Quan sát, hướng dẫn, sữa lỗi sai - Cho phép -3 HS hướng dẫn HS Readln(n); có thao tác chưa tốt - – HS hướng dẫn While dem<n HS có thao tác yếu Begin - Y/c HS dừng thao tác, nhìn lên Dem:=dem + 1; bảng, giải thích và chạy chương trình Write(‘ Nhap so trên bảng để HS hiểu thu ‘, dem,’ = ‘); - Lắng nghe - Hướng dẫn HS thay câu lệnh Readln(x); TB:= While thành for TB + x; - Giải thích cách thay End; Trang Lop8.net - Y/c HS sửa lại chương trình Củng cố, dặn dò: Hoạt động GV TG 9’ * Củng cố: - GV: Gọi 2-3 hs kiểm tra kỹ đã đạt - GV: Nhận xét, uốn nắn sai sót * Dặn dò: - Yêu cầu hs nhà xem lại nội dung lý thuyết, đọc bài đọc thêm - Gõ sửa lại chương trình Hoạt động HS - HS: thực theo yêu cầu GV Trang Lop8.net TB:= TB/n; Writeln(‘ Trung binh cua ‘,n,’ so la = ‘,TB:10:3); Writeln(‘ Nhan Enter de thoat …’); Readln End Program Tinh_Trung_Binh; Uses Crt; Var n, dem: Integer; x, TB: real; Begin Clrscr; Dem:= 0; TB:= 0; Write(‘ Nhap so cac so can tinh n = ‘); Readln(n); For dem:=1 to n Begin Write(‘ Nhap so thu ‘, dem,’ = ‘); Readln(x); TB:= TB + x; End; TB:= TB/n; Writeln(‘ Trung binh cua ‘,n,’ so la = ‘,TB:10:3); Writeln(‘ Nhan Enter de thoat …’); Readln End Nội dung - Hs thực số thao tác theo yêu cầu GV