Giáo án Tin học 8 - Tiết 41, 42: Sử dụng lệnh lặp for ... do

Ngày soạn:
Bài thực hành 5
Sử dụng lệnh lặp for ... do
(Tiết 41)
A. Mục tiêu.
* Kiến thức: - 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.
* kỹ năng: - 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 độ: - 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ỹ năng đọc hiểu vòng lặp for .. do.
C. Chuẩn bị.
1. Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2. 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, 6 SGK trang 61.
 III. Bài mới:
1. Đặt vấn đề: Chúng ta đã nghiên cứu lý thuyết về vòng lặp for  do. Để biết vòng lặp chạy như thế nào thì hôm nay chúng ta cùng nhau đi vào tiết thực hành.
2. 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 của thầy và trò
Nội dung kiến thức
GV
HS
GV
HS
GV
HS
GV
GV
GV
HS
GV
HS
GV
HS
GV
HS
GV
Yêu cầu HS trình bày câu lệnh lặp với số lần biết trước?
Lên bảng thực hiện.
Yêu cầu HS trình bày nguyên tắc hoạt động của câu lệnh for  do.
Trả lời.
Yêu cầu HS thực hiện viết chương trình tính tổng n số tự nhiên đầu tiên.
Gõ chương trình, chạy thử chương trình và báo cáo kết quả.
Nhận xét, bổ sung bài làm của HS.
Hỗ trợ học sinh trong quá trình thực hành.
 Đưa ra 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 của chương trình.
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.
Tham gia hoạt động của giáo viên
Yêu cầu học sinh lập bảng hoạt động của chương trình theo mẫu:
Giả sử N=2:
Bước
i
i<=10
Writeln(n,’.’,i,’=’,n*i)
1
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ả.
1. Nội dung thực hành.
 * Lý thuyết:
- Câu lệnh lặp với số lần biết trước:
 For:= To Do ;
Bài 1: Tính tổng của n số tự nhiên đầu tiên
Program tinh_tong;
Uses crt;
Var i, n: integer; tong: longin;
Begin
Clrscr;
Tong:=0;
Writeln(‘Nhap vao so n’); readln(n);
For i:=1 to n do
Tong: = Tong+i;
Writeln(‘Tong của’, n,’so tu nhien dautien la’,tong); 
Readln;
End.
Bài 2: 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.
 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.
Ngày soạn:
Bài thực hành 5
Sử dụng lệnh lặp for ... do
(Tiết 42)
A. Mục tiêu.
* Kiến thức: - 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.
* kỹ năng: - 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 độ: - 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ỹ năng đọc hiểu vòng lặp for .. do.
C. Chuẩn bị.
1. Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2. 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:
1. Đặt vấn đề: Chúng ta đã nghiên cứu lý thuyết về vòng lặp for  do. Để biết vòng lặp chạy như thế nào thì hôm nay chúng ta cùng nhau đi vào tiết thực hành.
2. Triển khai bài: 	
 a. Hoạt động 1: Làm đẹp màn hình kết quả bằng lệnh gotoxy, where. (19 phút).
Hoạt động của thầy và trò
Nội dung kiến thức
GV
HS
GV
HS
GV
HS
GV
HS
GV
HS
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 hàng, cột. 
quan sát và đưa ra nhận xé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?
Trả lời.
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.
Gõ chương trình vào máy, sửa lỗi chính tả, chạy chương trình, quan sát kết quả.
Yêu cầu học sinh quan sát kết quả và so sánh với kết quả của chương trinh khi chưa dùng lệnh gotoxy(5, wherey)
Quan sát và nhận xét.
1. Nội dung thực hành.
* Bài tập:
 - Bài 2 sgk (T63)
a) Giới thiệu lệnh gotoxy(), wherex
- 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;
Writeln(‘Nhap vao so n’); readln(n);
Writeln(‘Bang nha’, n);
Writeln;
For i:=1 to 10 do
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 trong 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 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 nhóm, tìm hiểu hoạt động của chương trinh, đại diện của nhóm báo cáo kết quả thảo luận.
GV: Cho chạy chương trình.
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 máy, tắt nguồn.
Bài 3 SGK (T64).
a) Câu lệnh for lồng trong for
- For := to do
 For := to do
;
Program Tao_bang;
Uses crt;
Var i,j: byte;
Begin
Clrscr;
For i:=1 to 9 do
Begin
For j:=0 to 9 do 
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 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.