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

GIÁO ÁN TIN HỌC 8
Tiết PPCT: 17 (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
I. Mục tiêu:
- Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.
- Rèn luyện kĩ năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.
- Thái độ học tập nghiêm túc, chu đáo, cẩn thận. 
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 BT1 SGK trang 72.
- 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.
- 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.
- Y/c 1 HS đọc và tìm hiểu bài tập 1.
- 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 1.
- 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.
- Hướng dẫn HS thay thế câu lệnh While..do thành for....do.
- Giải thích cách thay thế.
- Y/c HS sửa lại chương trình.
- Đọc bài tập 1.
- Nhắc lại ý tưởng của thuật toán.
- Gõ chương trình bài tập 1.
- 2 – 3 HS hướng dẫn HS có thao tác yếu.
- Lắng nghe.
- Gõ sửa lại chương trình.
Bài tập 1:
Program Tinh_Trung_Binh;
Uses Crt;
Var n, dem: Integer; x, TB: real;
Begin
Clrscr;
Dem:= 0; TB:= 0;
Write(‘ Nhap so cac so can tinh n = ‘);
Readln(n);
While dem<n do
Begin
Dem:=dem + 1;
Write(‘ Nhap so thu ‘, dem,’ = ‘);
Readln(x); TB:= TB + x;
End;
TB:= TB/n;
Writeln(‘ Trung binh cua ‘,n,’ so la = ‘,TB:10:3);
Writeln(‘ Nhan Enter de thoat ’);
Readln
End.
Program Tinh_Trung_Binh;
Uses Crt;
Var n, dem: Integer; x, TB: real;
Begin
Clrscr;
Dem:= 0; TB:= 0;
Write(‘ Nhap so cac so can tinh n = ‘);
Readln(n);
For dem:=1 to n do
Begin
Write(‘ Nhap so thu ‘, dem,’ = ‘);
Readln(x); TB:= TB + x;
End;
TB:= TB/n;
Writeln(‘ Trung binh cua ‘,n,’ so la = ‘,TB:10:3);
Writeln(‘ Nhan Enter de thoat ’);
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