T22 lop8 2cot

TUẦN 22
Từ ngày 18/1/2010 đến ngày 24/1/2010
Ngày dạy:
Tiết 43, 44:
SỬ DỤNG LỆNH LẶP FOR…DO…
A. MỤC TIÊU:
- 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.
B. CHUẨN BỊ:
- GV:giáo án, sgk, phòng máy.
- HS: sgk.
C. TIẾN TRÌNH LÊN LỚP:
1. Ổ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

Tiế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.

Tiế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ò:
- bị bài mới.
6.Rút kinh nghiệm:
Tiết 43:
-


Tiết 44:
-