3/ Bài mới: Hoạt động của GV Hoạt động của HS Nội dung Ví dụ 3: Hoạt động : Tìm hiểu các ví dụ về câu lệnh lặp với số Program Lap; lần biết trước.. Uses CRT; - Câu lệnh lặp sẽ được sử dụ[r]
(1)GIÁO ÁN TIN HỌC Tiết PPCT: (HKII) Ngày soạn: 23/12/2009 Ngày dạy: 30/12/2009 – 9/1/2010 §7 CÂU LỆNH LẶP (TT) TG 5’ TG 10’ I Mục tiêu: - Hiểu hoạt động câu lệnh lặp với số lần biết trước for Pascal thông qua các ví dụ cụ thể - Viết đúng lệnh for số tình đơn giản II Chuẩn bị: GV: Bảng phụ 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 Cho biết cú pháp câu lệnh lặp với viên, học sinh để ôn lại bài cũ số lần biết trước Cho biết ý nghĩa câu lệnh trên - Nhóm HS nhận xét, đánh giá HS trả lời câu - Y/c Hs trả lời các câu hỏi trên - HS trả lời - Y/c Hs nhận xét, đánh giá - Hai HS nhận xét, hỏi đánh giá HS trả lời câu hỏi và đề nghị điểm số - Nhận xét, đánh giá điểm số 3/ Bài mới: Hoạt động GV Hoạt động HS Nội dung Ví dụ 3: Hoạt động : Tìm hiểu các ví dụ câu lệnh lặp với số Program Lap; lần biết trước Uses CRT; - Câu lệnh lặp sử dụng Var i: Integer; nào? Tiết này, chúng ta tìm - Lắng nghe Begin hiểu thông qua các ví dụ cụ thể Clrscr; - Yêu cầu HS lên bảng ghi lại - Ghi lại ví dụ và For i := to 10 writeln('Day la lan lap chương trình ví dụ và SGK thu ',i); trang 35 - Kẻ bảng có dạng: end Ví dụ 4: Lần lặp i Kết viết Program Chu_o; thứ màn hình Uses CRT; Var i: Integer; 1 Day la lan lap thu Begin 2 Day la lan lap thu Clrscr; For i:=1 to 20 3 Day la lan lap thu Begin Write(‘o’); Delay (100) end; Readln; Trang Lop8.net (2) để giải thích ví dụ 3, ví dụ giải thích tương tự cách trên - Y/c Hs tìm hiểu ví dụ và SGK trang 59 và 60 và ghi chương trình - Tìm hiểu và ghi chương trình ví dụ lên bảng và trên bảng - Giải thích các chương trình trên, từ ví dụ 4, nêu cho hs biết cách viết chương trình tính tổng 100 số tự nhiện đầu tiên End Tính tổng và tích câu lệnh lặp: a Chương trình tính tổng: Program Tinh_tong; uses crt; Var N, i: integer; S: longint; Begin clrscr; Write(‘ Nhap so N = ‘); Readln(N); S:=0; For i:= to N S:=S+1; Writeln(‘ Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S); Readln; End b Chương trình tính giai thừa: ProgramTinhGiaithua; uses crt; Var N, i:Integer; P: longint; Begin clrscr; Write(‘N = ‘); readln(N); P:=1; For i:= to N P:=P*i; Writeln(N,’ ! = ‘,P); Readln; End Củng cố, dặn dò: TG Hoạt động GV Hoạt động HS Nội dung - Hs trả lời số câu 9’ * Củng cố: Cho biết cú pháp câu lệnh lặp với hỏi GV đặt số lần biết trước? Viết lại chương trình tính tổng 100 số tự nhiên đầu tiên - Y/c Hs trả lời các câu hỏi - Hs trả lời và nhận xét trên * Dặn dò: câu hỏi GV - Yêu cầu hs nhà xem lại nội dung bài, làm bài tập 4, và SGK trang 61, xem trước nội dung phần Trang Lop8.net (3) Trang Lop8.net (4)