Môc tiªu: * TiÕp tôc gióp HS: + Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước 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 với số lần chưa biết trư[r]
(1)Trường THCS Sơn Tiến D¹y líp: 8A; 8B; 8E TiÕt PPCT: 47 Gi¸o viªn: Ph¹m TuÊn Anh Ngµy so¹n: 21/02/2010 Ngµy d¹y: 26/02/2010 BÀI TẬP A Môc tiªu: *) TiÕp tôc gióp HS: +) Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước ngôn ngữ lập trình; +) Biết ngôn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để dẫn máy tính thực lặp lặp lại công việc đến điều kiện nào đó thoả mãn +) Hiểu hoạt động câu lệnh lặp với số lần chưa biết trước +) Biết sửa lổi và viết chương trình số bài toán B ChuÈn bÞ: Giáo viên: Soạn bài, đọc tài liệu tham khảoù, dung cu day học Häc sinh: §äc tríc bµi, lµm c¸c bµi tËp, dông cô häc tËp C TiÕn tr×nh tiÕt d¹y: I ổn định tổ chức lớp: - Kiển tra sĩ số: II KiÓm tra bµi cò: - KiÓm tra viÖc chuÈn bÞ bµi ë nhµ cña häc sinh vë III D¹y bµi míi: hoạt động thầy và trò Hoạt động Bµi tËp Viết thuật toán và chương trình Pascal cã c©u lÖnh lÆp víi sè lÇn kh«ng x¸c định để tính lũy thừa bậc n A (tức An), víi n lµ sè tù nhiªn vµ A lµ sè thùc ®îc nhËp vµo tõ bµn phÝm GV giíi thiÖu bµi tËp tiÕp theo, yªu cÇu HS thùc hiÖn Bµi tËp 2: kiến thức cần đạt HS: Th¶o luËn lµm bµi Bµi tËp 1: ThuËt to¸n: Bước Đọc các giá trị x và n Bước A 1, k Bước Nếu k > n, chuyển xuống bước Bước A = A.x, k k + và quay lại bước Bước Thông báo kết là A và kết thúc thuËt to¸n Chương trình Pascal: var n,k: integer; A, LT: real; begin write(‘Nhap so A= ‘); readln(A); write(‘Nhap so n= ‘); readln(n); LT:=1; k:=1; while k<=n begin LT:=LT*A, k:=k+1 end end HS th¶o luËn vµ lµm bµi Bµi tËp 2: Gi¸o ¸n tin häc líp Lop8.net (2) Trường THCS Sơn Tiến Gi¸o viªn: Ph¹m TuÊn Anh Tính tích N số tự nhiên đầu tiên với Bước Đọc giá trị N số lần lặp không xác định (với N là số tự Bước T 1, k nhiªn ®îc nhËp vµo tõ bµn phÝm) Bước Nếu k ≤ N, T = T.k; ngược lại, chuyển xuống bước Bước k k + và quay lại bước Bước Kết thúc thuật toán Bµi tËp 3: Sè nguyªn p ®îc gäi lµ íc sè thùc sù cña sè nguyªn q, nÕu q chia hÕt cho p vµ p kh¸c vµ kh¸c chÝnh sè q ViÕt thuËt toán và chương trình để nhập số tự nhiên n vµ tÝnh tæng c¸c íc sè thùc sù cña n Bµi tËp 3: ThuËt to¸n: Bước Đọc giá trị n Bước S 0, i Bước Nếu i > n 1, chuyển xuống bước Bước Nếu n chia hết cho i, S S + i, i i + và quay lại bước Bước Ghi giá trị S và kết thúc thuật toán Chương trình có thể sau: var n,i,S: integer; begin write('Cho so tu nhien n= '); readln(n); i:=2; S:=0; while i<=n-1 begin if (n mod i)=0 then S:=S+i; i:=i+1; end; write('Tong cac uoc so thuc su cua ',n,' la: ',S); readln; end Hoạt động 2: Hướng dẫn nhà: Xem lại các bài đã làm, làm tiếp các bài GV yêu cầu, Ôn tập kỹ phần lý thuyết và HS: Chú ý lắng nghe để thực c¸c d¹ng bµi tËp tiÕt sau kiÓm tra lý thuyÕt Gi¸o ¸n tin häc líp Lop8.net (3)