Giáo án Tin học 8 - Tiết 41-42: Bài thực hành 5: Sử dụng câu lệnh lặp For...Do - Đoàn Thị Ánh Nguyệt

<span class='text_page_counter'>(1)</span>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 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 trong for --Viết được 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ỹ năng đọc hiểu chương trình có sử dụng vòng lặp for .. do. -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: 1. Bµi cò: Kiểm tra bài tập đã cho về nhà.. 2. Bµi míi: Hoạt động của 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 của 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 trong qu¸ tr×nh Tong:=0; Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do thùc hµnh. Tong: = Tong+i; Writeln(‘Tong cña’, n,’so tu nhien dau tien la’,tong); Readln; End. Baứi 2. Viết chương trình tìm xem có bao nhiêu số dương trong 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; 1 Lop8.net.

<span class='text_page_counter'>(2)</span> - Sau khi kết quả chạy chương trình đã đúng, gv yêu cầu học sinh chữa bài của mình đã làm ở nhà cho đúng theo chương trình đã chạy.. Bảng cửu chương. - GV: §­a ra 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 một học sinh đứng tại vị trí trình bày hoạt động của 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 do 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 ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát kết quả. 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 do 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 quả bằng 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 giữa 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 2 sgk (T63) Giíi thiÖu lÖnh gotoxy(), where - Gotoxy(a,b) Trong đó: a là chỉ số cột, b là chỉ số hàng - ý nghÜa cña c©u lÖnh lµ ®­a con 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 khi sử dông hai lÖnh trªn a) Chỉnh sửa chương trình như sau: Program Bang_cuu_chuong; Uses crt; Var i, n: integer; Begin Clrscr; 2 Lop8.net.

<span class='text_page_counter'>(3)</span> quả và so sánh với kết quả của chương Writeln(‘Nhap vao so n’); readln(n); trinh khi ch­a dïng lÖnh gotoxy(5, Writeln(‘Bang nhan’); where) Writeln; For i:=1 to 10 do begin gotoxy(5, wherey); Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End. Bµi 3 SGK (T64). C©u lÖnh for lång trong for - For <biến đếm1:= giá trị đầu> to <giá trị cuèi> do Hoạt động 2 – 20p - Sö dông lÖnh For lång trong 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è> do 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 3 lªn mµn h×nh, yªu cÇu häc For i:=1 to 9 do sinh đọc chương trình, tìm hiểu hoạt Begin động của chương trình. For j:=0 to 9 do - GV: cho chạy chương trình. Writeln(10*i+j:4); Writeln; End; Readln; End. 5. Cñng cè: NhËn xÐt rót kinh nghiÖm giê thùc hµnh. Học sinh về nhà sử dụng lệnh gotoxy để chỉnh sửa lại bài thực hành số 3 cho kết quả in ra màn hình đẹp.. Tæ chuyªn m«n ký duyÖt ngµy / / 2010 TTCM. 3 Lop8.net.

<span class='text_page_counter'>(4)</span> Gi¸o ¸n: Tin häc 8. Người soạn: Đoàn Thị ánh Nguyệt. Trường THCS Sơn Hoá Lop8.net.

<span class='text_page_counter'>(5)</span>