Giáo án Tin học 8 - Tiết 18, Bài thực hành số 6: Sử dụng lệnh lặp While...Do (Tiếp theo) - Năm học 2009-2010

GIÁO ÁN TIN HỌC 8
Tiết PPCT: 18 (HKII)
Ngày soạn: 18/2/2010
Ngày dạy: ............................................
Bài thực hành số 6 
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)
I. Mục tiêu:
- Viết được cấu trúc câu lệnh lặp với số lần biết trước và chưa biết trước.
- Kết hợp cấu trúc câu lệnh rẽ nhánh với câu lệnh lặp giải quyết các bài toán đơn giản.
- Vận dụng câu lệnh lặp For  do và While  do vào một số bài toán đơn giản.
- Rèn luyện kĩ năng đọc chương trình, dịch và chạy chương trình.
- Rèn kĩ năng sử dụng máy tính.
II. Chuẩn bị:
GV: Phòng máy tính.
HS: SGK, dụng cụ học tập đầy đủ.
III. Hoạt động dạy học:
1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh (1’)
2/ Kiểm tra bài cũ: 
5’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
- Đặt câu hỏi chung cho cả lớp:
1. Kẻ bảng chạy chương trình BT2 SGK trang 73.
- Y/c 1 HS trả lời các câu hỏi trên (ghi trên bảng).
- Y/c HS nhận xét, đánh giá HS trả lời câu hỏi.
- 1 HS lần lượt trả lời các câu hỏi của GV.
- HS nhận xét, đánh giá HS trả lời câu hỏi.
- Vấn đáp giữa giáo viên, học sinh để ôn lại bài cũ.
- Nhóm HS nhận xét, đánh giá HS trả lời câu hỏi.
3/ Bài mới:
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
30’
- Tiết trước, chúng ta đã tìm hiểu câu lệnh lặp với số lần chưa biết trước ở bài tập 1.
- Tiết này, chúng ta sẽ thực hiện bài thực hành để hiểu hơn về câu lệnh lặp với số lần chưa biết trước ở bài tập 2.
- Y/c 1 HS đọc và tìm hiểu bài tập 2.
- Y/c 1 HS nhắc lại ý tưởng của thuật toán.
- Y/c HS gõ chương trình bài tập 2.
- Quan sát, hướng dẫn, sữa lỗi sai.
- Cho phép 2 -3 HS hướng dẫn HS có thao tác chưa tốt.
- Y/c HS dừng thao tác, nhìn lên bảng, giải thích và chạy chương trình trên bảng để HS hiểu.
- Đọc bài tập 2.
- Nhắc lại ý tưởng của thuật toán.
- Gõ chương trình bài tập 2.
- 2 – 3 HS hướng dẫn HS có thao tác yếu.
- Lắng nghe.
Bài tập 2:
Uses Crt;
Var n, i: integer;
Begin
Clrscr;
Write(‘ Nhap vao mot so nguyen: ‘);
Readln(n);
If n <= 1 then writeln(n,’ khong la so nguyen to’) Else
Begin
I:=2;
While (n mod I 0) do i:= I + 1;
If I = n then writeln(n,’ la so nguyen to! ‘) Else
Writeln(n,’ khong phai la so nguyen to! ‘); End;
Readln;
End.
4. Củng cố, dặn dò:
9’
TG
Hoạt động của GV
Hoạt động của HS
Nội dung
* Củng cố:
- GV: Gọi 2-3 hs kiểm tra kỹ năng đã đạt được.
- GV: Nhận xét, uốn nắn sai sót.
* Dặn dò:
- Yêu cầu hs về nhà xem lại nội dung lý thuyết, đọc bài đọc thêm.
- HS: thực hiện theo yêu cầu của GV.
- Hs thực hiện một số thao tác theo yêu cầu của GV