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

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 fordo;
-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:
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 đã cho về nhà
- GV: yêu cầu mỗi dãy gõ một bài vào máy.
- GV: hỗ trợ học sinh trong quá trình thực hành.
- 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ả.
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 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;
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 quả và so sánh với kết quả của chương trinh khi chưa dùng lệnh gotoxy(5, where)
Hoaùt ủoọng 2 – 20p
- Sử dụng lệnh For lồng trong for
- 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.
- 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.
- GV: cho chạy chương trình.
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;
Writeln(‘Nhap vao so n’); readln(n);
Writeln(‘Bang nhan’);
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 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.
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