Đang tải... (xem toàn văn)
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]
(1)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 FOR…DO… A MUÏC TIEÂU: - Viết chương trình có sử dụng vòng lặp FOR…DO - Sử dụng câu lệnh ghép B CHUAÅN BÒ: - GV:giáo án, sgk, phòng máy - HS: sgk C TIẾN TRÌNH LÊN LỚP: Ổn định: lớp 8/1 lớp 8/2………………………………………………………………………… Kiểm tra bài cũ: - Không có 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 màn hình bảng nhân số từ - Hs lắng nghe và thực hành đến 9, số nhập từ bàn phím và dừng màn hình để có quan sát kết 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:= to 10 writeln(N, ‘ x ’, i:2, ‘ =’, N*i:3); readln end b Tìm hiểu ý nghĩ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 1, 2, …, 10 Bài 2: Chỉnh sữa chương trình để làm đẹp kết trên màn hình - Kết bài có hai nhược điểm sau: + Các hàng kết sát nên khó đọc + Các hàng kết không cân hàng tiêu đề a Gõ lại chương trình chỉnh sửa: for i:= to 10 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 trỏ cột a, hàng b b Dịch và chạy chương trình, quan sát kết nhận Lop8.net (2) 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:= to begin for i:= to 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) Củng cố: - Chú ý các bài thực hành Dặn dò: - Chuẩn bị bài 6.Ruùt kinh nghieäm: Tieát 43: - Tieát 44: - Lop8.net (3)