Tin học lớp 8. Tiết 38.

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 09/01/2010.
Tiết PPCT: 38. Ngày dạy: 12/01/2010.
BàI 7: Câu lệnh lặp (T2)
I. Mục tiêu:
1. Kiến thức:
- Hiểu cấu trúc câu lệnh ghép.
2. Kỹ năng: biết kết hợp câu lệnh ghép và câu lệnh lặp for ………do vào giải quyết một số bài toán.
3. Thái độ Thái độ học tập nghiêm túc, tích cực làm các dạng bài tập ứng dụng.
II. Phương pháp:
- Thuyết trình, chia nhóm nghiên cứu làm bài tập, vấn đáp.
III. chuẩn bị của GV, HS
1. Chuẩn bị của GV: - Giáo án, SGK, phòng máy, phần mềm pascal
2. Chuẩn bị của HS: - SGK, vở ghi, bút
IV. Tiến Trình lên lớp:
1. định lớp
2. Bài mới:
Hoạt động của thầy và trò
Nội dung ghi bảng

Hoạt động 1: Kiểm tra bài cũ.
? Trình bày cầu trúc của câu lệnh lặp trong pascal, nêu ý nghĩa của các thành phần trong cấu trúc?

Hoạt động 2: Ví dụ về câu lệnh lặp.

-GV: Trình bày cấu trúc của câu lệnh lặp lùi trong pascal
For ……..downto……….do
HS: Ghi chép cấu trúc vào vở
GV: Giải thích hoạt động của câu lện.
- HS: Đọc và tìm hiểu chương trình
- HS: một em đứng tại chỗ phân tích hoạt động của ví dụ.
- HS: Các em khác thảo luận và cho ý kiến.
- GV: cho chạy chương trình mẫu đã gõ trước trong máy, yêu cầu học sinh quan sát kết quả.
- GV: Giải thích kết quả của chương trình




- HS: Đọc và tìm hiểu chương trình
- HS: một em đứng tại chỗ phân tích hoạt động của ví dụ.
- HS: Các em khác thảo luận và cho ý kiến.
- GV: Trình bày cấu trúc câu lệnh ghép
- HS: Nghe, ghi chép.
- GV: cho chạy chương trình mẫu đã gõ trước trong máy, yêu cầu học sinh quan sát kết quả.
- GV: Giải thích kết quả của chương trình

3. Ví dụ về câu lệnh lặp (tiếp)
- Cấu trúc của câu lệnh lặp lùi:
For := downto do ;
- Câu lệnh sẽ được thực hiện nhiều lần, mỗi lần thực hiện câu lệnh là một lần lặp và sau mỗi lần lặp biến đếm sẽ tự động giảm đi1 đơn vị, giảm cho đến khi giá trị của biến đếm nhỏ hơn giá trị đầu thì vòng lặp được dừng lại.
-số lần lặp = giá trị cuối-giá trị đầu+1
=> for …do là cấu trúc lặp với số lần lặp biết trước.
- Ví dụ 3 (SGK-58) in ra màn hình thứ tự lần lặp.
Program lap;
Var i: integer;
Begin
For i:=1 to 10 do
Writeln(‘day la lan lap thu’, i);
Readln;
End.
- VD4 (SGK-58) Viết chương trình đưa ra màn hình những chữ “0” theo hình trứng rơi.
Program trung_roi;
Uses crt;
Var i: integer;
Begin
Clrscr;
For i:=1 to 10 do
begin
Writeln(‘0’); delay(100);
end;
Readln;
End.
- Tập hợp các câu lệnh con được đặt trong cặp từ khoá begin end; được gọi là câu lệnh ghép.

Hoạt động 2: Tính tổng