* Kiến thức: - 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.. * kỹ năng: - Rèn luyện khã năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.[r]
(1)Giáo án Tin Học - Trường THCS Hải Thái Ngµy so¹n: Bµi thùc hµnh Sö dông lÖnh lÆp while (TiÕt 51) A Môc tiªu * Kiến thức: - 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 * kỹ năng: - Rèn luyện khã đọc chương trình, tìm hiểu tác dụng các câu lệnh * Thái độ: - Nghiêm túc, nghiên cứu tài liệu, yêu thích môn học B Phương pháp - Thùc hµnh, rÌn luyÖn kü n¨ng lËp tr×nh trªn m¸y C ChuÈn bÞ ChuÈn bÞ cña gi¸o viªn: Gi¸o ¸n, SGK, m¸y tÝnh ChuÈn bÞ cña häc sinh: SGK, tµi liÖu tham kh¶o, lµm bµi tËp thùc hµnh D TiÕn tr×nh lªn líp I ổn định: KiÓm tra sÜ sè (1 phót) II KiÓm tra bµi cò: III Bµi míi: Đặt vấn đề: Để làm quen với câu lệnh lặp với số lần chưa biết trước TriÓn khai bµi: a Hoạt động 1: Lặp với số lần chưa biết trước (39 phút) Hoạt động thầy và trò Néi dung kiÕn thøc Néi dung thùc hµnh * Bài 1: Viết chương trình sử dụng lệnh lặp GV: Yêu cầu HS khởi động máy và khởi động While để tính trung bình n số thực x1, x2, x3, , xn C¸c sè x1, x2, x3, , xn®îc nhËp tõ chương trình Pascal bµn phÝm HS: Thùc hiÖn a) M« T¶ thuËt to¸n GV: Yªu cÇu HS m« t¶ thuËt to¸n b) Gõ chương trình và lưu với tên Tinh_TB: HS: Thùc hiÖn Program tinh_trung_binh; GV: NhËn xÐt, bæ sung Use crt; Var n, dem: Integer; GV: Trương Quang Hiếu Lop7.net (2) Giáo án Tin Học - Trường THCS Hải Thái GV: Yªu cÇu HS nghiªn cøu SGK vµ thùc hiÖn bµi TH HS: Lµm bµi TH GV: Quan sát, hướng dẫn HS quá trình TH X, TB: Real; Begin Clrscr; Dem:= 0; TB:= O; Write (‘Nhap so cac so can tinh n = ‘); Readln(n); While dem < n Begin Dem:= dem + 1; 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 c) §äc vµ t×m hiÓu ý nghÜa cña tõng c©u lÖnh GV: Yêu cầu HS lưu bài TH và viết lại chương Dịch chương trình và sửa lỗi có tr×nh b»ng lÖnh lÆp For d) Viết lại chương trình câu lệnh For HS: Lµm bµi TH theo yªu cÇu cña GV thay cho c©u lÖnh While IV Còng cè: (5 phót) - NhËn xÐt bµi lµm cña tõng nhãm vµ chung cho c¶ líp - Yªu cÇu HS tho¸t khái Pascal vµ t¾t m¸y V DÆn dß: - Học bài Xem trước bài và viết bài thu hoạch thực hành * Rót kinh nghiÖm: GV: Trương Quang Hiếu Lop7.net (3) Giáo án Tin Học - Trường THCS Hải Thái Ngµy so¹n: Bµi thùc hµnh Sö dông lÖnh lÆp while (TiÕt 52) A Môc tiªu * Kiến thức: - 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 * kỹ năng: - Rèn luyện khã đọc chương trình, tìm hiểu tác dụng các câu lệnh * Thái độ: - Nghiêm túc, nghiên cứu tài liệu, yêu thích môn học B Phương pháp - Thùc hµnh, rÌn luyÖn kü n¨ng lËp tr×nh trªn m¸y C ChuÈn bÞ ChuÈn bÞ cña gi¸o viªn: Gi¸o ¸n, SGK, m¸y tÝnh ChuÈn bÞ cña häc sinh: SGK, tµi liÖu tham kh¶o, lµm bµi tËp thùc hµnh D TiÕn tr×nh lªn líp I ổn định: KiÓm tra sÜ sè (1 phót) II KiÓm tra bµi cò: III Bµi míi: Đặt vấn đề: Để làm quen với câu lệnh lặp với số lần chưa biết trước TriÓn khai bµi: a Hoạt động 1: Lặp với số lần chưa biết trước (39 phút) Hoạt động thầy và trò Néi dung kiÕn thøc Néi dung thùc hµnh * Bài 2: Tìm hiểu chương trình nhận biết số GV: Yêu cầu HS khởi động máy và khởi động tự nhiên N nhập vào từ bàn phím có phải lµ sè nguyªn tè hay kh«ng? chương trình Pascal a) §äc vµ hiÓu ý nghÜa cña tõng c©u lÖnh HS: Thùc hiÖn chương trình sau: GV: Yªu cÇu HS m« t¶ thuËt to¸n Use crt; HS: Thùc hiÖn Var n, i: Integer; GV: NhËn xÐt, bæ sung Begin Write (‘Nhap vao mot so nguyen: ‘); Readln(n); GV: Yªu cÇu HS nghiªn cøu SGK vµ thùc hiÖn GV: Trương Quang Hiếu Lop7.net (4) Giáo án Tin Học - Trường THCS Hải Thái bµi TH If n <= then writeln (n, ‘Khong la so nguyen HS: Lµm bµi TH to ‘) Else GV: Quan sát, hướng dẫn HS quá trình Begin TH i:= 2; While (n mod i<>0) i:= i + 1; If i = n then writeln (n, ‘La so nguyen to! ‘) HS: Lµm bµi TH theo yªu cÇu cña GV Else writeln (n, ‘Khong phai la so nguyen to! ‘); End; Readln End b) Gõ, dịch và chạy thử chương trình với vài độ chính xác khác IV Còng cè: (5 phót) - NhËn xÐt bµi lµm cña tõng nhãm vµ chung cho c¶ líp - Yªu cÇu HS tho¸t khái Pascal vµ t¾t m¸y V DÆn dß: - Häc bµi Lµm bµi tËp, chuÈn bÞ cho tiÕt bµi tËp * Rót kinh nghiÖm: GV: Trương Quang Hiếu Lop7.net (5)