Tiết 38

Ngày dạy: 11/ 01 / 2010
Tiết 38:
Bài 7
Câu lệnh lặp
(T2)
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.
Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học có liên quan.
- Đọc tài liệu ở nhà trước khi
Tiến trình lên lớp:
Kiểm tra bài cũ
Kiểm tra sự chuẩn bị của học sinh .
? 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?
Bài mới:
Hoạt động của GV và hs
Nội dung ghi bảNG

Hoạt động 1: Ví dụ về câu lệnh lặp. (15’)
-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 và tích bằng câu lệnh lặp (20)
- GV: Đưa đề bài lên bảng
- HS: 1 em lên bảng làm vd5, 1 em lên làm vd6.(mô tả thuật toán) (5’)
ở dưới lớp cá cem làm bài theo nhóm, mỗi d