Kiến thức: - Biết nhu cầu cần có cấu trúc lặp trong ngôn ngữ lập trình - Biết ngôn ngữ lập trình dùng cấu trúc lặp để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc nào đó một số lầ[r]
(1)Trường THCS Xuân Đường Ngày soạn: 06/01/2010 Ngày dạy: 12/01/2010 Tuần 20: Tin học Tiết 38: Bài 7: CÂU LỆNH LẶP (tt) I MỤC TIÊU: Kiến thức: - Biết nhu cầu cần có cấu trúc lặp ngôn ngữ lập trình - Biết ngôn ngữ lập trình dùng cấu trúc lặp để dẫn máy tính thực lặp lặp lại công việc nào đó số lần - Hiểu hoạt động câu lệnh lặp với số lần biết trước for…do Pascal Kĩ năng: - Viết đúng cú pháp câu lệnh for…do tình đơn giản - Biết lệnh ghép Pascal Thái độ: - Ham thích môn học - Tích cực học tập II PHƯƠNG PHÁP: Phương pháp thử, trực quan, thảo luận nhóm, thử III CHUẨN BỊ: Giáo viên: - SGK, tài liệu, giáo án - Đồ dùng dạy học: máy vi tính Học sinh: - Đọc trước bài và học bài nhà - SGK, đồ dùng học tập: máy vi tính IV TIẾN TRÌNH LÊN LỚP: Ổn định lớp (1’) Bài mới: Hoạt động Gv - Hs Nội dung Hoạt động 1: Ví dụ câu lệnh lặp (14’) Gv: Các ngôn ngữ lập trình thường có nhiều dạng câu lệnh lặp Câu lệnh lặp thường gặp ngôn ngữ lập trình Pascal có dạng sau Gv: Giới thiệu câu lệnh lặp For…do cho Hs biết Hs: Quan sát, ghi vào Ví dụ câu lệnh lặp: Cú pháp câu lệnh lặp với số lần biết trước Pascal For <biến đếm> := <giá trị đầu> to <giá trị cuối> <câu lệnh>; Trong đó: For, to, là các từ khóa Gv: Cho Hs quan sát chương trình ví dụ Sgk Chạy thử cho Hs quan sát Gv: Ngô Thị Thùy Dung Lop8.net Trang 112 (2) Trường THCS Xuân Đường Tin học Gv: Hai câu lệnh lặp ví dụ trên có gì khác nhau? Hs: Trả lời Gv: Giải thích cho Hs biết vì có cặp từ khoá begin end Hs: Ghi ví dụ vào Vd1: Chương trình in màn hình thứ tự lần lặp Var i : integer; Begin for i: = to 20 writeln(‘Day la lan lap thu’, i); readln; end Vd2: Chương trình ghi nhận vị trí 10 chữ O rơi từ trên xuống Ues crt; Var i : integer; Begin clrscr; for i : = to 20 begin writeln(‘O’); delay(200); end; readln; end *Lưu ý: Câu lệnh có sử dụng câu lệnh ghép thì phải đặt hai từ khóa begin … end Hs: Gõ ví dụ lên máy, chạy thử Hoạt động 2: Tính tổng và tích câu lệnh (16’) Tính tổng và tích câu lệnh: Vd1: Chương trình tính tổng n số tự nhiên đầu tiên, với n là số tự nhiên nhập từ bàn phím S=1+2+3+…+ n Gv: Cho Hs quan sát đoạn chương trình tính tổng n số tự nhiên, với n là số tự nhiên nhập từ bàn phím (Pascal) Hs: Quan sát Gv: Theo công thức tính tổng ta cần khai báo bao nhiêu biến? Hs: Trả lời Gv: Kiểu biến là gì? Hs: Trả lời Gv: Trong biến thì biến nào có giá trị nhập từ bàn phím? Gv: Ngô Thị Thùy Dung Lop8.net Trang 113 (3) Trường THCS Xuân Đường Tin học Hs: Trả lời Gv: Đối với liệu có kiểu nguyên lớn thì ta phải khai báo kiểu liệu là longint Gv: Chạy thử chương trình cho Hs quan sát Program Tinh_tong; Var n,i:integer; S:longint; Begin write(‘Nhap so n = ‘); readln(n); S:= 0; for i:= to n S:= S+i; writeln(‘Tong cua’, n, ‘ so tu nhien dau tien S = ‘, S); readln; end * Kiểu longint có phạm vi từ -231 đến 231 – Hs: Gõ chương trình lên máy và chạy thử Vd2: Chương trình tính tích n số tự nhiên, với n là số tự nhiên nhập từ bàn phím n! = 1.2.3….n Gv: Giải thích chương tính tích cho Hs biết Chạy thử cho Hs quan sát Program Tinh_Giai_Thua; Var n,i:integer; p:longint; begin write(‘Nhap so n = ‘); readln(n); p:= 1; for i:= to n p:= p * i; writeln( n, ‘! = ‘, p); readln; end Hs: Gõ chương trình lên máy, chạy chương trình Củng cố: (13’) - Nhắc lại kiến thức đã học - Làm bài tập 3, 4, 5, Sgk Dặn dò: (1’) - Về nhà học bài, làm bài tập Sgk - Coi trước bài thực hành 5:”Sử dụng lệnh lặp for…do” Gv: Ngô Thị Thùy Dung Lop8.net Trang 114 (4)