1. ổn định lớp.
8A 8B
2. Kiểm tra bài cũ.
- Hãy cho biết tác dụng của câu lệnh lặp với số lần biết trớc? - Hãy viết cú pháp và nêu hoạt động của câu lệnh lặp for...do?
3. Bài mới
HĐ của Thầy và trò Ghi Bảng
Hoạt động 1: 1. Mục đích yêu cầu
Trình bày mục đích yêu cầu của bài thực hành cho hs biết để hs thực hành đạt mục đích yêu cầu đó.
Chú ý lắng nghe, ghi nhận:
- Viết chơng trình Pascal có sử dụng câu lệnh For do.…
- Tiếp tục nâng cao kỷ năng đọc hiểu c/trình.
Hoạt động 2: 2. Nội dung
Yêu cầu hs đọc đề ra bài tập 1.
Yêu cầu hs gõ chơng trình.
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 vào từ bàn phím và dừng màn hình để có thể quan sát kết quả. a. Chơng trình. Lắng nghe, thực hiện. Uses crt; Var n, i: integer; Begin Clrscr;
Write(‘Moi nhap n=’);readln(n); Writeln;
Yêu cầu hs suy nghĩ, giải thích tác dụng của các lệnh trong chơng trình?
Hớng dẫn hs chạy chơng trình và quan sát kết quả.
Hãy nêu nhợc điểm của kết quả chơng trình trong bài tập 1?
Trình bày cho hs biết ý nghĩa của một số câu lệnh.
Yêu cầu hs thực hiện chỉnh sửa chơng trình và chạy chơng trình.
For i:=1 to n 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 trong chơng trình, dịch chơng trình và sửa lỗi nếu có.
c. Chạy chơng trình với các giá trị nhập vào lần lợt bằng: 1, 2, ,10.… Quan sát kết quả nhận đợc trên màn hình.
Bài 2: Chỉnh sửa chơng trình để làm đẹp kết quả trên màn hình.
Suy nghĩ, thảo luận -> trả lời:
- Các hàng kết quả sát nhau nên khó đọc.
- Các hàng kết quả không đợc cân đối với hàng tiêu đề.
a. Chỉnh sửa câu lệnh lặp của chơng trình.
For i:=1 to n do Begin
gotoXY(5,WhereY);
writeln(n, ’ x ‘, i:2, ‘ = ’, n*i:3); writeln
end;
chú ý lắng nghe, ghi nhận:
- Câu lệnh GotoXY(a, b) có tác dụng đa con trỏ về cột a, hàng b.
- WhereX cho biết số thứ tự của cột và WhereY cho biết số thứ tự của hàng đang có con trỏ.
b. Dịch và chạy chơng trình với các giá trị gõ vào từ bàn phím. Quan sát kết quả nhận đợc trên màn hình.
Hoạt động 3: Thực hành
Chú ý quan sát quá trình thực hành của học sinh, chỗ nào học sinh còn lúng túng cha hiểu rõ -> giáo viên hớng dẫn lại.
Chú ý thực hành theo nội dung giáo viên đề ra.
4. Cũng cố.
- Hệ thống lại những nội dung lý thuyết cần nhớ sau tiết thực hành. - Nhận xét chung về giờ thực hành
5. Hớng dẫn về nhà.
Ngày dạy: 26/01/2011
Tiết 42: Bài thực hành 5:
sử dụng lệnh lặp for … do (Tiếp).
a. Mục tiêu
1. Kiến thức: Viết chơng trình Pascal có sử dụng câu lệnh lặp For do. …
2. Kỹ năng: Thực hiện nhanh chóng, chính xác và dứt khoát, tiếp tục nâng cao kỷ năng đọc hiểu chơng trình.
3. Thái độ: Nghiêm túc trong học tập, ham thích học hỏi nghiên cứu lập trình
b. Chuẩn bị của giáo viên và học sinh
- Giáo viên: SGK, tài liệu tham khảo, máy tính đã đợc cài đặt sẵn môi trờng lập trình Turbo Pascal. trình Turbo Pascal.
- Học sinh: SGK, Đọc bài trớc.
C. Tiến trình lên lớp
1. ổn định lớp.
8A 8B
2. Kiểm tra bài cũ.
- Hãy cho biết tác dụng của các lệnh: GotoXY(a, b), WhereX, WhereY - Hãy viết cú pháp của câu lệnh if..then lồng nhau?
3. Bài mới
HĐ của Thầy và trò Ghi Bảng
Hoạt động 1: 2. Nội dung (Tiếp)
Yêu cầu hs cho biết ý nghĩa của các câu lệnh trong chơng trình. Bài 3: Sử dụng lệnh For..do lồng nhau in ra màn hình các số từ 0 đến 99 theo dạng bảng hình 38 sgk. a. Tìm hiểu chơng trình Program tao_bang; Uses crt;
Var i: byte; {chi so cua hang} j: byte; {chi so cua cot} Begin
Clrscr; {xoa man hinh} For i:=1 to 9 do {viet theo tung hang}
Begin
For j:=0 to 9 do {viet theo cot}
Write(10*i+j:4); Writeln;
End; Readln; End.
b. Gõ và chạy chơng trình, quan sát kết quả trên màn hình. Sử dụng thêm các câu lệnh GotoXY(a, b) để điều chỉnh (một cách tơng đối) bảng kết quả ra giữa màn hình.
Hoạt động 2: Thực hành
Chú ý quan sát quá trình thực hành của học sinh, chỗ nào học sinh còn lúng túng cha hiểu rõ -> giáo viên hớng dẫn lại.
Chú ý thực hành theo nội dung giáo viên đề ra.
Hoạt động 3: Tổng kết
Yêu cầu hs đọc phần tổng kết sgk -> rút ra những nội dung chính cần nhớ sau bài thực hành?
Đọc bài, chú ý -> rút ra kết luận:
Ghi nhớ:
1. Cấu trúc lặp với số lần lặp biết trớc đợc thể hiện bằng câu lệnh Pascal For..do.
2. Giống nh các câu lệnh rẽ nhánh if ... then, câu lệnh for..do cũng có thể lồng nhau. Khi đó các biến đếm trong các câu lệnh lặp phải khác nhau.
3. Câu lệnh GotoXY(a, b) có tác dụng đa con trỏ về cột a, hàng b. WhereX cho biết số thứ tự của cột và WhereY cho biết số thứ tự của hàng đang có con trỏ.
4. Có thể kết hợp câu lệnh GotoXY(a, b) với các hàm chuẩn WhereX, WhereY để điều khiển vị trí con trỏ trên màn hình.
4. Cũng cố.
- Hệ thống lại những nội dung lý thuyết cần nhớ sau tiết thực hành.
- Nhận xét chung về giờ thực hành, động viên khích lệ những hs thực hành tốt đồng thời nhắc nhở hs một số lỗi thờng gặp trong quá trình thực hành để hs khắc phục.
5. Hớng dẫn về nhà.
- Yêu cầu hs về nhà ôn lại phần lý thuyết cần nhớ sau tiết thực hành. - Đọc bài đọc thêm 1 (Tính gần đúng số Π)
- Thực hành thêm (nếu có máy).
Ngày dạy: 11/02/2011
Tiết 43