Giáo án Tin học 8 - Tiết 41-42, Bài thực hành 5: Sử dụng lệnh lặp For...Do - Phạm Tấn Phát

Tuần 21	Ngày soạn:	
Tiết 41, 42	Ngày dạy:	
Baøi TH5: Söû duïng leänh laëp For do
I./ Mụcđích yêu cầu:
- Về kiến thức:
+ Hs nhắc lại cú pháp vòng lặp for  do, giải thích ý nghĩa các thành phần trong câu lệnh.
+ Hs nhắc lại câu lệnh ghép và cách sử dụng.
- Về kỹ năng: 
+ Hs viết được chương trình có sử dụng câu lệnh lặp for do.
+ Hs sử dụng được câu lệnh ghép.
+ Hs rèn luyện kỹ năng đọc hiểu chương trình có sử dụng vòng lặp for  do.
- Về thái độ: Hs có ý thức, tích cực thảo luận tìm hiểu chương trình.
II./ Phương pháp,phương tiện:
- Phương pháp thực hành, chia nhóm và thảo luận nhóm, nêu vấn đề.
- Máy chiếu Projector, phòng máy vi tính, ví dụ minh hoạ viết sẵn.
III./ Lưu ý sư phạm:
-GV cho hs thực hiện lại gõ lại ví dụ 3/sgk58 và chỉnh sửa giá trị cuối nhỏ, sửa lại và in ra lời chào các bạn trong lớphoặc vídụ 5/sgk59.
IV./ Hoạt động dạy học:
Hoạt động của giáo viên
Hoạt động của HS
Nội dung bài học
HĐ1: Kiểm tra bài cũ (10 phút)
-GV cho nêu các câu hỏi, gọi 2 hs và hỏi mỗi hs một câu hỏi.
1./ Hãy viết cấu trúc lặp for do, giải thích ý nghĩa các thành phần trong cấu trúc lặp for
-Áp dụng: Giải thích các câu lệnh trong bài tập 5a,b,c,d
2./ Câu lệnh ghép được viết như thế nào? Có công dụng gì?
-Áp dụng: Giải thích câu lệnh trong bài tập 5e, bài tập 4
-GV nhận xét và cho điểm
HĐ2: Gõ lại chương trình trong VD3,5/sgk58,59 (15 phút)
-GV cho hs tiến hành gõ ví dụ 3/sgk58, tiến hành biên dịch, sửa lỗi và hướng dẫn sửa lỗi, chạy chương trình
-GV yêu cầu hs sửa lại thành lời chào các bạn trong nhóm
For i:=1 to 3 do
begin 
 write(‘Nhap ten cua ban’);
 Readln(ten);
 Writeln(‘Chao ban ‘,ten);
 readln
end;
HĐ3: Thực hành các bài tập
* Hướng dẫn bài tập 1:
-GV yêu cầu hs đọc bài 1/sgk62 và nêu các yêu cầu của bài toán.
-GV chiếu lên bảng hình 36/sgk62, yêu cầu hs quan sát và tìm hiểu ý nghĩa của chương trình.
-GV gọi hs khá/ giỏi giải thích câu lệnh
	For i:=1 to 10 do 
	writeln(N,’ x’,i:2,’ = ’,N*i:3);
-GV nhấn mạnh sự thay đổi của biến I và các tham số của câu lệnh để viết bản nhân, theo em các tham số :2,:3 có ý nghĩa gì ?
-GV các em hãy thảo luận nhóm và điền vào bảng, báo cáo kết quả
Bước
i
i<=10?
Writeln(..)
1
?
?
?
2
?
?
?
10
10
?
?
11
11
?
?
-GV: Qua bảng ta thấy sự lặplại của câu lệnh for  do, nhóm phân công các bạn gõ chương trình vào máy, nhóm cử đại diện báo cáo.
* Hướng dẫn bài tập 2:
-GV chiếu lên hình 37/sgk63, gọi một hs nhận xét về cách trình bày kết quả trên hình vẽ theo dạng dòng và cột.
-GV: “Theo em làm thế nào đẻ có kết quả trình bày được đẹp?”
-GV: làm thế nào để đạt được kết quả chỉnh sửa như vậy? Đưa ra màn hình chương trình được chỉnh sửa và hỏi
+Trong đoạn chương trình trên có lệnh gì mới ?
+GotoXY: có tác dụng đưa con trỏ về cột a, hàng b
+Lệnh WhereX: cho biết số thứ tự cột đang có con trỏ
+Lệnh WhereY: cho biết số thứ tự hàng đang có con trỏ
+ Đưa ra ví dụ GotoXY(5, whereY) và giải thích ?
-GV cho các nhóm lưu ý, sửa lại chương trình, dịch, sửa lỗi và chạy chương trình?
* Hướng dẫn bài tập 3:
-GV chiếu lên hình 37/sgk, gọi hs nêu yêu cầu của đề
-GV đưa chương trình bài 3/sgk65, yêu cầu các nhóm thảo luận và tìm ý nghĩa của các câu lệnh trong chương trình.
-GV giới thiệu dữ liệu kiểu Byte, các nhóm gõ và chạy chương trình
-GV theo dõi và nhận xét
-GV: sử dụng hai lệnh for  do lồng nhau sẽ giải quyết rất nhiều vấn đề, chẳng hạn để hiểu rõ hơn cấu trúc for ..do lồng vào nhau chúng ta cùng nhau giải bài toán cổ.
“Vừa gà, vừa chó bó lại cho tròn 36 con 100 chân chẵn. Hỏi có bao nhiêu con gà, con chó?”
-GV hướng dẫn hs giải qua các bước
+ Số con gà, chó thay đổi nhưng bị giới hạn bới con số nào ?
+ Điều kiện về số chân liên hệ đến hai biến đếm của hai vòng lặp trên như thế nào?
-GV cho hs thực hiện theo nhóm khoảng 15 phút, tuyên duyên và chấm điểm thực hành cho nhóm có kết quả tốt.
-GV nhận xét đánh giá giờ thực hành về ý thức tổ chức, kỹ luật của các nhóm, tuyên dương cá nhân hoặc nhóm thực hành tốt, về nhà làm lại các ví dụ, chuẩn bị kiểm tra 15 phút viết.
-Hs 1 lên trả bài
-Hs 2 lên trả bài
-Hs đọc đề, nêu yc
-Hs giải thích
-Hs suy nghĩ, nxét
-Các nhóm thảo luận, cử đại diện báo cáo
-Nhóm phân công gõ chương trình, cử đại diện báo cáo
-Hs quan sát, suy nghĩ
-Hs trả lờiàchèn thêm hàng trốngvà đẩy các hàng sang phải
-Các nhóm chú ý lắng nghe
-Các nhóm phân công sửa lại chương trình.
-Hs phát biểu
-Hs thảo luận, gõ chương trình và trả lời kết quả
-Hs suy nghĩ, trả lời
gà Î [1..36]
chóÎ[1..36]
2*gà+4*chó=100
-Hs thực hành theo nhóm, cử đại diện trả lời.
-Hs chú ý lắng nghe và ghi chép.
Program VD3;
Uses crt;
Var i: integer;
Begin
 Clrscr;
 For i:=1 to 10 do
 Writeln(‘Day la lan lap thu’,i);
 Readln
End.
1./ Mục đích yêu cầu
2./ Nội dung
a./ Bài tâp1: 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, số được nhập từ bàn phím, dừng màn hình để quan sát kết quả ?
b./ Bài tập 2: Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình
-Câu lệnh:
+ gotoxy(x,y)
+ whereX, whereY: số thứ cột có con trỏ, số thứ tự hàng có con trỏ.
c./ Bài tập 3: 
+ Cũng như câu lện if, có thể sử dụng câu lệnh for ..do lồng vào nhau để thực hiện lặp
+ Hãy in ra màn hình các số từ 0..99 như hình 38/sgk65?
Chương trình minh hoạ
Var ga,cho:byte;
Begin
For ga:=1 to 36 do
 For cho:=1 to 36 do
If (2*ga+4*cho=100) and (ga+cho=36) then
begin
writeln(‘So ga = ’,ga);
writeln(‘So cho =’,cho);
end;
End.
Có thể cải tiến lại như sau:
Var ga,cho:Byte;
Begin
For cho:=1 to 24 do
begin
ga:=36-cho;
if (2*ga+4*cho=100) then
writeln(‘Ga:’,ga,’Cho:’,cho);
end;
readln
End.
IV./ Rút kinh nghiệm tiết dạy