Giáo án Tin học Lớp 8 - Tuần 22 - Năm học 2009-2010

TUAÀN 22
Từ ngày 18/1/2010 đến ngày 24/1/2010
Ngày dạy: 
Tieát 43, 44:
SỬ DỤNG LỆNH LẶP FORDO
A. MUÏC TIEÂU:
- 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.
B. CHUAÅN BÒ:
- GV:giáo án, sgk, phòng máy.
- HS: sgk.
C. TIEÁN TRÌNH LEÂN LÔÙP:
1. OÅn ñònh: lôùp 8/1	lôùp 8/2..
2. Kiểm tra bài cũ:
- Không có.
3. Dạy bài mới:
Giáo viên
Học sinh
Tieát 43:
Bài 1: 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 và dừng màn hình để có thế quan sát kết quả
a. Gõ chương trình sau:
program bangnhan;
var N, i: integer;
begin
write(‘ Nhap so N =’); readln(N);
writeln;
write(‘ bang nhan’, N ); 
writeln;
for i:= 1 to 10 do writeln(N, ‘ x ’, i:2, ‘ =’, N*i:3);
readln
end.
b. Tìm hiểu ý nghĩa của các câu lệnh, dịch sữa lỗivà chạy chương trình.
c. Chạy chương trình với các giá trị nhập lần lượt 1, 2, , 10
Bài 2: Chỉnh sữa chương trình để làm đẹp kết quả trên màn hình
- Kết quả trong bài 1 có hai nhược điểm sau:
+ Các hàng kết quả sát nhau nên khó đọc.
+ Các hàng kết quả không cân đối với hàng tiêu đề.
a. Gõ lại chương trình chỉnh sửa:
for i:= 1 to 10 do 
begin
 GotoXY(5, Where); writeln(N, ‘ x ’, i:2, ‘ =’, N*i:3);
writeln;
end.
*Lưu ý:
GotoXY(a, b); có tác dụng đưa con trỏ về cột a, hàng b.
b. Dịch và chạy chương trình, quan sát kết quả nhận được.
Tieát 44:
Bài 3: 
a. Tìm hiểu chương trình sau:
program Taobang;
var i : byte; j : byte;
begin
for i:= 1 to 9 do 
begin
 for i:= 1 to 9 do 
 write(10*i+j:4);
 writeln;
end;
readln
end.
b. Gõ và chạy chương trình và quan sát kết quả, sử dụng thêm chương trình GotoXY(a, b).
- Hs lắng nghe và thực hành.
4. Củng cố:
- Chú ý các bài thực hành.
5. Dặn dò:
- Chuẩn bị bài mới.
6.Ruùt kinh nghieäm:
Tieát 43:
-	
Tieát 44:
-