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ả[r]
Trang 1TUẦ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:
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
- Hs lắng nghe và thực hành
Lop8.net
Trang 2Tieá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)
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:
-
Lop8.net