3/ Bài mới: Hoạt động của GV Hoạt động của HS Nội dung Ví dụ 3: Hoạt động : Tìm hiểu các ví dụ về câu lệnh lặp với số Program Lap; lần biết trước.. Uses CRT; - Câu lệnh lặp sẽ được sử dụ[r]
Trang 1GIÁ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)
I 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ũ:
- Đặ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:
- 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ắng nghe
- Ghi lại ví dụ 3 và 4
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;
TG
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.
5’
TG
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
Trang 2để 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
- Tìm hiểu và ghi chương trình ví dụ 5
và 6 trên bảng
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ò:
* 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
9’
TG