Giáo án Tin học 8 - Tiết 2, Bài 7: Câu lệnh lặp (Tiếp theo) - Năm học 2009-2010

GIÁO ÁN TIN HỌC 8
Tiết PPCT: 2 (HKII)
Ngày soạn: 23/12/2009
Ngày dạy: 30/12/2009 – 9/1/2010 
§7. CÂU LỆNH LẶP (TT)
Mục tiêu:
- Hiểu hoạt động của câu lệnh lặp với số lần biết trước for...do trong Pascal thông qua các ví dụ cụ thể.
- Viết đúng được lệnh for...do trong một số tình huống đơn giản.
II. Chuẩn bị:
GV: Bảng phụ
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. Cho biết cú pháp câu lệnh lặp với số lần biết trước
2. Cho biết ý nghĩa của câu lệnh trên.
- Y/c 1 Hs trả lời các câu hỏi trên.
- Y/c 2 Hs nhận xét, đánh giá.
- Nhận xét, đánh giá điểm số.
- 1 HS trả lời.
- Hai HS nhận xét, đánh giá HS trả lời câu hỏi và đề nghị điểm số.
- 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
10’
Hoạt động : Tìm hiểu các ví dụ về câu lệnh lặp với số lần biết trước.
- Câu lệnh lặp sẽ được sử dụng như thế nào? Tiết này, chúng ta sẽ tìm hiểu thông qua các ví dụ cụ thể.
- Yêu cầu 2 HS lên bảng ghi lại chương trình trong ví dụ 3 và 4 SGK trang 35.
- Kẻ bảng có dạng:
Lần lặp thứ
i
Kết quả viết ra màn hình
1
1
Day la lan lap thu 1
2
2
Day la lan lap thu 2
3
3
Day la lan lap thu 3
...
...
...
để giải thích ví dụ 3, ví dụ 4 giải thích tương tự như cách trên.
- Y/c Hs tìm hiểu ví dụ 5 và 6 SGK trang 59 và 60 và ghi chương trình lên bảng.
- Giải thích các chương trình trên, từ ví dụ 4, nêu cho hs biết cách viết chương trình tính tổng 100 số tự nhiện đầu tiên.
- Lắng nghe.
- Ghi lại ví dụ 3 và 4.
- Tìm hiểu và ghi chương trình ví dụ 5 và 6 trên bảng.
Ví dụ 3:
Program Lap;
Uses CRT;
Var i: Integer;
Begin 
Clrscr;
For i := 1 to 10 do
writeln('Day la lan lap thu ',i);
end. 
Ví dụ 4: 
Program Chu_o;
Uses CRT;
Var i: Integer;
Begin 
Clrscr;
For i:=1 to 20 do
Begin Write(‘o’); Delay (100) end;
Readln;
End.
4. Tính tổng và tích bằng câu lệnh lặp:
 a. Chương trình tính tổng:
 Program Tinh_tong;
uses crt;
 Var N, i: integer; S: longint;
 Begin clrscr;
 Write(‘ Nhap so N = ‘);
 Readln(N); S:=0;
 For i:= 1 to N do S:=S+1;
 Writeln(‘ Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S); Readln;
 End.
b. Chương trình tính giai thừa:
 ProgramTinhGiaithua;
uses crt;
Var N, i:Integer; 
P: longint;
Begin clrscr;
Write(‘N = ‘); readln(N); P:=1;
For i:= 1 to N do P:=P*i;
Writeln(N,’ ! = ‘,P); 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ố:
1. Cho biết cú pháp câu lệnh lặp với số lần biết trước?
2. Viết lại chương trình tính tổng 100 số tự nhiên đầu tiên.
- Y/c Hs lần lượt trả lời các câu hỏi trên.
* Dặn dò:
- Yêu cầu hs về nhà xem lại nội dung bài, làm bài tập 4, 5 và 6 SGK trang 61, xem trước nội dung phần tiếp theo.
- Hs trả lời và nhận xét từng câu hỏi của GV.
- Hs trả lời một số câu hỏi của GV đặt ra.