Đang tải... (xem toàn văn)
TuÇn 21 TiÕt 41-42: bµi thùc hµnh 5: sö dông c©u lÖnh lÆp for …do I/Mục đích, yêu cầu: -Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chương trình.Vận dụng kiến thức của[r]
(1)TuÇn 21 TiÕt 41-42: bµi thùc hµnh 5: sö dông c©u lÖnh lÆp for …do I/Mục đích, yêu cầu: -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.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 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 độ học tập nghiêm túc, tích cực làm các bài tập thực hành II/ ChuÈn bÞ cña häc sinh vµ gi¸o viªn: GV: Bµi tËp HS: nghiên cứu trước bài III/ TiÕn tr×nh d¹y häc: Bµi cò: Kiểm tra bài tập đã cho nhà Bµi míi: Hoạt động GV + HS Néi dung ghi b¶ng Hoạt động 1:Bài tập - Viết chương trình cho các bài tập đã Bài 1: Tính tổng n số tự nhiên đầu tiên Program tinh_tong; cho vÒ nhµ - GV: yªu cÇu mçi d·y gâ mét bµi vµo Uses crt; Var i, n: integer; tong: longin; Begin m¸y Clrscr; - GV: hç trî häc sinh qu¸ tr×nh Tong:=0; Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n thùc hµnh Tong: = Tong+i; Writeln(‘Tong cña’, n,’so tu nhien dau tien la’,tong); Readln; End Baứi Viết chương trình tìm xem có bao nhiêu số dương n số nhập vào từ bàn phÝm Program tinh_so_cac_so_duong; Uses crt; Var i,A, dem, n: integer; Begin Clrscr; Dem:=0; Lop8.net (2) - Sau kết chạy chương trình đã đúng, gv yêu cầu học sinh chữa bài mình đã làm nhà cho đúng theo chương trình đã chạy Bảng cửu chương - GV: §a néi dung cña bµi to¸n - GV: Đư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 - GV: 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 - GV: cho chương trình chạy trên máy, yªu cÇu häc sinh quan s¸t kÕt qu¶ Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n begin writeln(‘nhap vao so thu’,i); readln(A); if A>0 then dem:=dem+1; end; Writeln(‘So cac so duong la’,dem); Readln; End Bài 3: 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 Hoạt động 2: bài tập thực hành - Làm đẹp màn hình kết lệnh gotoxy, where - Gi¸o viª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 hµng, cét ? Có cách nào để khoảng cách c¸c hµng vµ c¸c cét t¨ng lªn? - GV: Giíi thiÖu c©u lÖnh gotoxy vµ where - yêu cầu học sinh mở chương trình Bang_cuu_chương và sửa lại chương tr×nh theo bµi trªn mµn h×nh cña gi¸o viªn - GV: yªu cÇu häc sinh quan s¸t kÕt Bµi sgk (T63) Giíi thiÖu lÖnh gotoxy(), where - Gotoxy(a,b) Trong đó: a là số cột, b là số hàng - ý nghÜa cña c©u lÖnh lµ ®a trá vÒ cét a hµng b - Wherex: cho biÕt sè thø tù cña cét, wherey cho biÕt sè thø tù cña hµng * Lưu ý: Phải khai báo thư viện crt trước sử dông hai lÖnh trªn a) Chỉnh sửa chương trình sau: Program Bang_cuu_chuong; Uses crt; Var i, n: integer; Begin Clrscr; Lop8.net (3) và so sánh với kết chương Writeln(‘Nhap vao so n’); readln(n); trinh cha dïng lÖnh gotoxy(5, Writeln(‘Bang nhan’); where) Writeln; For i:=1 to 10 begin gotoxy(5, wherey); Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End Bµi SGK (T64) C©u lÖnh for lång for - For <biến đếm1:= giá trị đầu> to <giá trị cuèi> Hoạt động – 20p - Sö dông lÖnh For lång for For <biến đếm 2:=giá trị đầu> to <giá - GV: giíi thiÖu cÊu tróc lÖnh for lång, trÞ cuè> hướng dẫn học sinh cách sử dụng lệnh < c©u lÖnh>; Program Tao_bang; Uses crt; Var i,j: byte; Begin - GV: đưa nội dung chương trình bài Clrscr; thùc hµnh lªn mµn h×nh, yªu cÇu häc For i:=1 to sinh đọc chương trình, tìm hiểu hoạt Begin động chương trình For j:=0 to - GV: cho chạy chương trình Writeln(10*i+j:4); Writeln; End; Readln; End Cñng cè: NhËn xÐt rót kinh nghiÖm giê thùc hµnh 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 Tæ chuyªn m«n ký duyÖt ngµy / / 2010 TTCM Lop8.net (4) Gi¸o ¸n: Tin häc Người soạn: Đoàn Thị ánh Nguyệt Trường THCS Sơn Hoá Lop8.net (5)