HS: Ghi chÐp cÊu tróc vµ lÜnh héi GV: Đưa nội dung chương trình bài thực hành 3 lên màn hình, yêu cầu học sinh đọc chương trình, tìm hiểu hoạt động của chương trình.. HS: Hoạt động theo [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 for (TiÕt 41) A Môc tiªu * Kiến thức: - Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để viết chương tr×nh * kỹ năng: - Viết chương trình có sử dụng vòng lặp for … do; - Sö dông ®îc c©u lÖnh ghÐp; - Rèn luyện kỹ đọc hiểu chương trình có sử dụng vòng lặp for … * Thái độ: - Nghiêm túc Yêu thích môn học B Phương pháp - Hoạt động nhóm, làm bài tập trên máy - Thực hành, rèn luyện kỹ đọc hiểu vòng lặp for … 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: Häc bµi, SGK, lµm bµi 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ò: (4 phót) - Lµm bµi tËp 5, SGK trang 61 III Bµi míi: Đặt vấn đề: Chúng ta đã nghiên cứu lý thuyết vòng lặp for … Để biết vòng lÆp ch¹y nh thÕ nµo th× h«m chóng ta cïng ®i vµo tiÕt thùc hµnh TriÓn khai bµi: a Hoạt động 1: Viết chương trình cho các bài tập (35 phút) Hoạt động thầy và trò Néi dung kiÕn thøc Néi dung thùc hµnh GV HS GV Yªu cÇu HS tr×nh bµy c©u lÖnh lÆp víi sè lÇn * Lý thuyÕt: biết trước? - Câu lệnh lặp với số lần biết trước: Lªn b¶ng thùc hiÖn For<Biến đếm>:=<Giá trị đầu> To <Giá Yêu cầu HS trình bày nguyên tắc hoạt động trị cuối> Do <Câu lệnh>; GV: Trương Quang Hiếu Lop7.net (2) Giáo án Tin Học - Trường THCS Hải Thái HS GV HS GV GV GV HS GV HS GV HS GV HS GV cña c©u lÖnh for … Tr¶ lêi Bµi 1: TÝnh tæng cña n sè tù nhiªn ®Çu tiªn Program tinh_tong; Yêu cầu HS thực viết chương trình tính Uses crt; tæng n sè tù nhiªn ®Çu tiªn Var i, n: integer; tong: longin; Gõ chương trình, chạy thử chương trình và Begin b¸o c¸o kÕt qu¶ Clrscr; NhËn xÐt, bæ sung bµi lµm cña HS Tong:=0; Hç trî häc sinh qu¸ tr×nh thùc hµnh Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n Tong: = Tong+i; Writeln(‘Tong cña’, n,’so tu nhien dautien la’,tong); Readln; End §a néi dung cña bµi to¸n Nghiªn cøu bµi to¸n, t×m input vµ output Đưa nội dung chương trình lên màn hình, yêu cầu học sinh đọc hiểu chương trình Đọc, phân tích câu lệnh tìm hiểu hoạt động chương trình Yêu cầu học sinh đứng vị trí trình bày hoạt động chương trình, các nhóm khác cïng tham gia ph©n tÝch Tham gia hoạt động giáo viên Yêu cầu học sinh lập bảng hoạt động chương trình theo mẫu: Gi¶ sö N=2: Bước i i<=10 Writeln(n,’.’,i,’=’,n*i) 1 đúng 2.1=2 Các nhóm lập bảng và đại diện nhóm báo cáo kÕt qu¶ Nhận xét, cho chương trình chạy trên máy, yêu cÇu häc sinh quan s¸t kÕt qu¶ Bài 2: Viết chương trình in màn hình bảng nhân số từ đến 9, và dừng màn hình để có thể quan sát kết Program Bang_cuu_chuong; Uses crt; Var i, n: integer; Begin Clrscr; Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n); Writeln; For i:=1 to 10 Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End GV: Trương Quang Hiếu Lop7.net (3) Giáo án Tin Học - Trường THCS Hải Thái IV Còng cè: (5 phót) - NhËn xÐt bµi lµm cña c¸c nhãm vµ chung cho toµn líp - KÕt thóc tiÕt häc, cho HS t¾t m¸y V DÆn dß: - GV: Hướng dẫn HS nghiên cứu trước các bài thực hành còn lại: + Đọc trước bài tập 2, giải thích câu lệnh gotoxy(), where<> GV: Trương Quang Hiếu Lop7.net (4) 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 for (TiÕt 42) A Môc tiªu * Kiến thức: - Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để viết chương tr×nh, t×m hiÓu c©u lÖnh gotoxy(), where<>, lÖnh for lång for * kỹ năng: - Viết chương trình có sử dụng vòng lặp for … do; - Sö dông ®îc c©u lÖnh ghÐp; - Rèn luyện kỹ đọc hiểu chương trình có sử dụng vòng lặp for … * Thái độ: - Nghiêm túc Yêu thích môn học B Phương pháp - Hoạt động nhóm, làm bài tập trên máy - Thực hành, rèn luyện kỹ đọc hiểu vòng lặp for … 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: Häc bµi, SGK, lµm bµi 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 đề: Chúng ta đã nghiên cứu lý thuyết vòng lặp for … Để biết vòng lÆp ch¹y nh thÕ nµo th× h«m chóng ta cïng ®i vµo tiÕt thùc hµnh TriÓn khai bµi: a Hoạt động 1: Làm đẹp màn hình kết lệnh gotoxy, where (19 phút) Hoạt động thầy và trò GV HS GV Yêu cầu HS khởi động máy tính, khởi động Turbo Pascal Thùc hiÖn cho ch¹y kÕt qu¶ cña bµi thùc hµnh Bang_cuu_chuong Yªu cÇu häc sinh quan s¸t kÕt qu¶ vµ nhËn xÐt kho¶ng c¸ch gi÷a c¸c Néi dung kiÕn thøc Néi dung thùc hµnh * Bµi tËp: - Bµi sgk (T63) a) Giíi thiÖu lÖnh gotoxy(), wherex - Gotoxy(a,b) Trong đó: a là số cột, b là số hàng GV: Trương Quang Hiếu Lop7.net (5) Giáo án Tin Học - Trường THCS Hải Thái HS GV HS GV HS GV HS hµng, cét quan s¸t vµ ®a nhËn xÐt - ý nghÜa cña c©u lÖnh lµ ®a trá vÒ cét a hµng b ? Có cách nào để khoảng cách các hàng - Wherex: cho biết số thứ tự cột, wherey cho biÕt sè thø tù cña hµng vµ c¸c cét t¨ng lªn? * Lưu ý: Phải khai báo thư viện crt trước Tr¶ lêi sö dông hai lÖnh trªn Giíi thiÖu c©u lÖnh gotoxy vµ where a) Chỉnh sửa chương trình sau: yêu cầu học sinh mở chương trình Program Bang_cuu_chuong; Bang_cuu_chương và sửa lại chương trình Uses crt; theo bµi trªn mµn h×nh cña gi¸o viªn Var i, n: integer; Gõ chương trình vào máy, sửa lỗi chính tả, Begin chạy chương trình, quan sát kết Yªu cÇu häc sinh quan s¸t kÕt qu¶ vµ so s¸nh Clrscr; Writeln(‘Nhap vao so n’); readln(n); với kết chương trinh chưa dùng Writeln(‘Bang nha’, n); lÖnh gotoxy(5, wherey) Writeln; Quan s¸t vµ nhËn xÐt For i:=1 to 10 begin gotoxy(5, wherey); Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End b Hoạt động 2: Sö dông lÖnh For lång for (20 phót) GV: Giới thiệu cấu trúc lệnh for lồng, hướng dÉn häc sinh c¸ch sö dông lÖnh HS: Ghi chÐp cÊu tróc vµ lÜnh héi GV: Đưa nội dung chương trình bài thực hành lên màn hình, yêu cầu học sinh đọc chương trình, tìm hiểu hoạt động chương trình HS: Hoạt động theo nhóm, tìm hiểu hoạt động chương trinh, đại diện nhóm báo cáo kÕt qu¶ th¶o luËn GV: Cho chạy chương trình Bµi SGK (T64) a) C©u lÖnh for lång for - For <biến đếm1 >:= <giá trị đầu> to <giá trÞ cuèi > For <biến đếm2 >:= <giá trị đầu > to <gi¸ trÞ cuèi > < c©u lÖnh >; Program Tao_bang; Uses crt; Var i,j: byte; GV: Trương Quang Hiếu Lop7.net (6) Giáo án Tin Học - Trường THCS Hải Thái Begin HS : Quan s¸t kÕt qu¶ trªn mµn h×nh Kết thúc cho HS tắt chương trình ứng dụng, tắt Clrscr; m¸y, t¾t nguån For i:=1 to Begin For j:=0 to Writeln(10*i+j:4); Writeln; End; Readln; End IV Còng cè: (5 phót) - NhËn xÐt bµi lµm cña c¸c nhãm vµ chung cho toµn líp - NhËn xÐt rót kinh nghiÖm giê thùc hµnh - KÕt thóc tiÕt häc, cho HS t¾t m¸y V DÆn dß: - học sinh nhà sử dụng lệnh gotoxy để chỉnh sửa lại bài thực hành số cho kết in màn hình đẹp GV: Trương Quang Hiếu Lop7.net (7)