Ngày soạn: …./…./2015
Tiết theo PPCT: 45
Tuần: 23

1. Mục tiêu:
1.1/ Kiến thức:
- 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.
- Viết đúng được lệnh for…do trong một số tình huống đơn giản.
- Biết vận dụng câu lệnh lặp vào viết một số chương trình.
1.2/ Kĩ năng:
- Viết đúng câu lệnh lặp For…do.
- Biết sử dụng đúng và có hiệu quả câu lệnh lặp.
1.3/ Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học.
2. Chuẩn bị:
2.1/ Chuẩn bị của GV: Phòng máy, giáo án (BGĐT) hoặc tranh ảnh minh họa.
2.2/ Chuẩn bị của HS: Nghiên cứu SGK, vở ghi.
3. Tổ chức các hoạt động học tập:
3.1/ Ổn định lớp:
3.2/ Kiểm tra bài cũ:
3.3/ Tiến trình bài học:
Hoạt động của GV
Hoạt động của HS
Nội dung

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

GV giới thiệu cú pháp câu lệnh lặp.
- Cú pháp:
For := to do ;
- Giới thiệu hoạt động của câu lệnh For...do:
Hoạt động của vòng lặp:
+ Đầu tiên biến đếm nhận giá trị đầu và thực hiện câu lệnh sau từ khóa “do”.
+ Biến đếm tự động tăng lên 1 đơn vị và tiếp tục thực hiện câu lệnh sau từ khóa “do”.
+ Khi biến đếm bằng giá trị cuối thì câu lệnh kết thúc.

Ví dụ 3: Chương trình sau sẽ 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.

Ví dụ 4:
- Yêu cầu HS đọc và tìm hiểu ví dụ 4-SGK.
- GV giải thích ý nghĩa các câu lệnh trong chương trình.


- Học sinh chú ý lắng nghe, ghi nhớ kiến thức.











- HS đọc và tìm hiểu ví dụ.
- Học sinh chú ý lắng nghe, ghi nhớ kiến thức.
3. Ví dụ về câu lệnh lặp:

- Cú pháp:
For := to do ;
- Trong đó:
+ For, To, Do là các từ khóa.
+ Biến đếm là biến đơn có kiểu nguyên.
+ Giá trị đầu và giá trị cuối là các giá trị nguyên.
+ Câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép
+ Số vòng lặp là biết trước và bằng: giá trị cuối - giá trị đầu +1.

- Ví dụ 3:

Lần lặp thứ
i
Kết quả in ra

1
1
Lần lặp thứ 1

2
2
Lần lặp thứ 2

...
...
...

10
10
Lần lặp thứ 10


- Ví dụ 4: SGK/58





 Hoạt động 2: Tìm hiểu tính tổng và tích bằng câu lệnh lặp.

Ví dụ 5:
- Yêu Cầu HS đọc và tìm hiểu ví dụ 5-SGK. Sau đó xác định biến đếm, giá trị đầu, giá trị cuối, số vòng lặp của câu lệnh For...do.

Program tinh_tong;
Var N,i: Integer; S: longint;
Begin
Writeln(‘nhap so N =’); Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Witeln(‘tong la:’,S);
Readln;
End.
- GV yêu cầu HS điền kết quả vào bảng với N=0,1,2,3,4.

Ví dụ 6:
- Yêu Cầu HS đọc và tìm hiểu ví dụ 6-SGK. Sau đó xác định biến đếm, giá trị đầu, giá trị cuối, số vòng lặp của câu lệnh For...do.

Program tinh_giai_thua;
Var N,i: Integer; P: Longint;
Begin
Write(‘N =’); readln(N);
P:=1;
For i:=1 to N do P:=P*i;
Wirteln(N,’!=’,P);
Readln;
End.

- GV yêu cầu HS điền kết quả vào bảng với N=1,2,3,4,5