+ HS: Nên sửa chương trình bằng cách chèn thêm một hàng trống giữa các hàng kết quả và đẩy các hàng này sang phải một khoảng cách nào đó. + HS: Quan sát mẫu sau khi sửa để nhận biế[r]
(1)BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FOR…DO
I MỤC TIÊU:
1 Kiến thức: Sử dụng câu lệnh ghép. 2 Kĩ năng:
- Viết chương trình có sử dụng vịng lặp với số lần biết trước;
- Rèn luyện kĩ đọc hiểu chương trình có sử dụng vịng lặp với số lần biết trước 3 Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn. II CHUẨN BỊ:
1 Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu. 2 Học sinh: Vở ghi, sách giáo khoa.
III CÁC HOẠT ĐỘNG DẠY – HỌC: 1 Ổn định lớp: (1’)
8A1:……… 8A2:……… 2 Kiểm tra cũ:
Lồng ghép nội dung 3 Bài mới:
Hoạt động GV Hoạt động HS Nội dung ghi bảng
Hoạt động 1: (39’) Nội dung tập 3. + GV: Yêu cầu HS nhận xét cách
hiển thị chương trình tập
+ GV: Vậy để cân đối ta cần phải làm gì?
+ GV: Cách chỉnh sửa cho đẹp mắt khoa học?
+ GV: Nhận xét cách thực HS đưa mẫu cho HS quan sát + GV: Hướng dẫn HS thực chỉnh sửa chương trình
+ GV: Đưa yêu cầu
+ GV: Yêu cầu HS sửa câu lệnh theo yêu cầu
For i := to 10 Begin
GotoXY(5,WhereY); writeln(N, ‘ x ’, i:2, ‘ = ’, N*i:3);
Writeln End;
+ GV: Yêu cầu HS chạy lại chương trình
+ HS: Hàng kết sát nên khó đọc; Hàng kết không cân hàng tiêu đề + HS: Chỉnh sửa chương trình để làm đẹp kết hình + HS: Nên sửa chương trình cách chèn thêm hàng trống hàng kết đẩy hàng sang phải khoảng cách
+ HS: Quan sát mẫu sau sửa để nhận biết
+ HS: Thực theo yêu cầu GV đưa
+ HS: Thực yêu cầu + HS: Thêm lệnh GotoXY vào chương trình
For i := to 10 Begin
GotoXY(5,WhereY); writeln(N, ‘ x ’, i:2, ‘ = ’, N*i:3); Writeln
End;
+ HS: Dịch sửa lỗi chạy lại chương trình, quan sát nhận xét
3 Bài 3.
For i:= To 10 Do Begin
GotoXY(5,Where); Writeln(n, ‘ x ’, i:2, ‘ = ’, n*i:3);
Writeln; End;
Ngày soạn: Ngày dạy: Tuần 22
(2)+ GV: Cho HS quan sát chương trình sửa so với chương trình chưa sửa so sánh
+ GV: Hướng dẫn em câu lệnh GotoXY
+ GV: Câu lệnh GotoXY chia hình máy tính thành gì?
+ GV: Đưa lưu ý em sử dụng câu lệnh GotoXY + GV: Chỉ sử dụng câu lệnh GotoXY, WhereX WhereY khai báo gì?
+ GV: Hướng dẫn em câu lệnh WhereX WhereY
+ GV: Chức câu lệnh WhereX WhereY gì?
+ GV: Cho HS áp dụng thực giải thích câu lệnh tập + GV: Yêu cầu HS giải thích kiện số liệu câu lệnh
+ GV: Chỉnh sửa nội dung em cịn sai sót
+ GV: Cho HS ơn lại nội dung vừa tìm hiểu
+ GV: Cho HS thực hành tập kết hợp với vòng lặp
+ GV: Quan sát, hướng dẫn HS thực máy
+ GV: Sửa chữa sai sót em mắc phải
+ GV: Yêu cầu HS lên bảng thực
+ GV: Củng cố thao tác cho HS
+ HS: Quan sát hai chương trình nhận xét thay đổi khác hai chương trình
+ HS: Tập trung ý lắng nghe, hiểu thêm câu lệnh
+ HS: Chia thành cột hàng, tính góc bên trái
+ HS: Chú ý lắng nghe hiểu phần lưu ý sử dụng câu lệnh + HS: Sau khai báo thư viện crt Pascal
+ HS: Tập trung ý lắng nghe, hiểu thêm câu lệnh
+ HS: WhereX Cho biết số thứ tự cột WhereY cho biết số thứ tự hàng
+ HS: Thực hiên theo yêu cầu GV đưa
+ HS: Vận dụng lý thuyết trả lời yêu cầu GV đưa
+ HS: Tập trung ý lắng nghe hiểu
+ HS: Thực theo yêu cầu GV đưa
+ HS: Thực theo tập GV đưa
+ HS: Tự giác thực theo hướng dẫn GV
+ HS: Sửa lỗi mà em hay gặp phải dấu
+ HS: Các bạn khác quan sát nhận xét kết bạn
+ HS: Rèn luyện thao tác yếu 4 Củng cố: (4’)
- Củng cố câu lệnh GotoXY, WhereX, WhereY 5 Dặn dò: (1’)
- Xem trước nội dung phần IV RÚT KINH NGHIỆM: