3/ Bài mới: Hoạt động của GV Hoạt động của HS Nội dung - Tiết trước, chúng ta đã tìm hiểu câu Bài tập 1: lệnh lặp với số lần chưa biết trước.. Program - Tiết này, chúng ta sẽ thực hiện b[r]
Trang 1Trang 1
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ũ:
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:
Hoạt động của GV Hoạt động của HS Nội dung
- 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ế
- Đọ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
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;
TG
5’
TG
30’
Lop8.net
Trang 2Trang 2
- Y/c HS sửa lại chương trình - Gõ sửa lại chương
trình
TB:= TB/n;
Writeln(‘ Trung binh cua ‘,n,’ so la =
‘,TB:10:3);
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);
Enter de thoat …’); Readln
End.
4 Củng cố, dặn dò:
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
9’
TG
Lop8.net
