Giáo án Tin học 8 - Tiết 2, Bài 7: Câu lệnh lặp (Tiếp theo) - Năm học 2009-2010

<span class='text_page_counter'>(1)</span>GIÁO ÁN TIN HỌC 8 Tiết PPCT: 2 (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ủa câu lệnh lặp với số lần biết trước for...do trong Pascal thông qua các ví dụ cụ thể. - Viết đúng được lệnh for...do trong một số tình huống đơ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 của GV Hoạt động của HS Nội dung - Đặt câu hỏi chung cho cả lớp: - Vấn đáp giữa giáo 1. 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 2. Cho biết ý nghĩa của câu lệnh trên. - Nhóm HS nhận xét, đánh giá HS trả lời câu - Y/c 1 Hs trả lời các câu hỏi trên. - 1 HS trả lời. - Y/c 2 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 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ụng như Var i: Integer; thế nào? Tiết này, chúng ta sẽ tìm - Lắng nghe. Begin hiểu thông qua các ví dụ cụ thể. Clrscr; - Yêu cầu 2 HS lên bảng ghi lại - Ghi lại ví dụ 3 và 4. For i := 1 to 10 do writeln('Day la lan lap chương trình trong ví dụ 3 và 4 SGK thu ',i); trang 35. - Kẻ bảng có dạng: end. Ví dụ 4: Lần lặp i Kết quả viết ra Program Chu_o; thứ màn hình Uses CRT; Var i: Integer; 1 1 Day la lan lap thu 1 Begin 2 2 Day la lan lap thu 2 Clrscr; For i:=1 to 20 do 3 3 Day la lan lap thu 3 Begin Write(‘o’); Delay (100) end; ... ... ... Readln; Trang 1 Lop8.net.

<span class='text_page_counter'>(2)</span> để giải thích ví dụ 3, ví dụ 4 giải thích tương tự như cách trên. - Y/c Hs tìm hiểu ví dụ 5 và 6 SGK trang 59 và 60 và ghi chương trình - Tìm hiểu và ghi chương trình ví dụ 5 lên bảng. và 6 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. 4. Tính tổng và tích bằng 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:= 1 to N do 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:= 1 to N do P:=P*i; Writeln(N,’ ! = ‘,P); Readln; End.. 4. Củng cố, dặn dò: TG. Hoạt động của GV Hoạt động của HS Nội dung - Hs trả lời một số câu 9’ * Củng cố: 1. Cho biết cú pháp câu lệnh lặp với hỏi của GV đặt ra. số lần biết trước? 2. Viết lại chương trình tính tổng 100 số tự nhiên đầu tiên. - Y/c Hs lần lượt trả lời các câu hỏi - Hs trả lời và nhận xét trên. * Dặn dò: từng câu hỏi của GV. - Yêu cầu hs về nhà xem lại nội dung bài, làm bài tập 4, 5 và 6 SGK trang 61, xem trước nội dung phần tiếp theo.. Trang 2 Lop8.net.

<span class='text_page_counter'>(3)</span> Trang 1 Lop8.net.

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