Trêng THCS S¬n TiÕn Gi¸o viªn: Ph¹m Tn Anh
Dạy Lớp: 8B; 8C; 8D. Ngày soạn: 11/01/2009.
Tiết PPCT: 37. Ngày dạy: 13/01/2009.
Bài 7. CÂU LỆNH LẶP. (T1).
I. Mục đích:
1. kiến thức
- Biết được nhu cầu cần có cấu trúc lặp được sử dụng để hướng dẫn cho máy
tính thực hiện lặp lại một công việc nào đó một số lần trong ngôn ngữ lập
trình.
- Nắm được cú pháp và cách sử dụng vòng lặp FOR… DO.
2. kỹ năng
- Đọc và tìm hiểu chương trình trong các ví dụ.
- Viết được câu lệnh lặp ở những bài toán đơn giản.
II. Phương tiện dạy học:
- Phương pháp: thuyết trình, nêu vấn đề và vấn đáp
- Phương tiên: sgk, sgv, ví dụ minh hoạ.
- Tiến trình bài giảng
1. ổn đònh só số:
2. kiểm tra bài cũ:
? viết lại cú pháp của câu lệnh IF… THEN
3. Giới thiệu bài mới: trong cuộc sống chúng ta thường gặp những công
việc lặp đi lặp lại nhiều lần. (Ví dụ những ví dụ sgk.).Trong máy tính ví
dụ để viết các số từ 1 đến 100. ta phải dùng lệnh write 100 lần1. thay vì
việc này ta sử dụng câu lệnh lặp.
4. Nội dung bài mới:
Hoạt động 1:
1. Các cơng việc phải thực hiện nhiều lần.
Hoạt động của GV Hoạt động của HS
Trong cuộc sống hằng ngày, nhiều hoạt
động được thực hiện lặp đi lặp lại nhiều
lần. ví dụ:

Gv: Như vậy khi vẽ hình vuông có
những thao tác lặp đi lặp lại. Thuật
toán sau sẽ mô tả các bước để vẽ hình
vuông.
Gv: Mô tả thuật toán trên bảng
Gv: Mô tả thuật toán tính tổng các số
tự nhiên từ 1→ 100
Cấu trúc mô tả thuật toán như trên gọi
là cấu trúc lặp.
1hs lên bảng vẽ, cả lớp theo dõi
4 thao tác
Các thao tác giống nhau.
Vd1: Thuật toán mô tả các bước để vẽ
hình vuông.
Bước 1: k ← 0 (k là số đoạn thẳng đã
vẽ được).
Bước 2: k ← k+1. Vẽ đoạn thẳng 1
đơn vị độ dài và quay thước 90
0
sang
phải.
Bước 3: Nếu k<4 thì quay lại bước 2;
ngược lại kết thúc.
•k là biến đếm
Vd2: Thuật toán tính
S= 1+2+3+ … + 100
Bước 1: S ← 0; i ← 0.
Bước 2: i← i + 1
Bước 3: nếu i ≤ 100, thì S ← S + i và
quay lại bước 2; ngược lại kết thúc.

cỏc biu thc cú cựng kiu vi
bin m v giỏ tr cui phi
ln hn giỏ tr u;
- cõu lnh cú th l cõu lnh
n gin hay cõu lnh ghộp.
Cho hs nhn xột v so sỏnh s khỏc
nhau cõu lnh lp trong hai vd trờn?
Gv: Gii thớch cho hc ti sao vd2
trong cõu lnh lp cú begin end
Cỳ Phỏp cõu lnh lp vi s ln bit
trc trong Pascal.
for<bin m>:= <giỏ tr u> to
<giỏ tr cui> do <cõu lnh>
trong ú: for, to, do l cỏc t khúa
Vd 1: Chuong trỡnh in ra mn hỡnh th
t ln lp.
var i:integer;
begin
for i:= 1 to 20 do
writeln(Day la lan lap
thu,i);
readln;
end.
Vd2: chng trỡnh ghi nhn v trớ 10
ch O ri t trờn xung.
ues crt;
var i:integer;
begin
clrscr;
for i:= 1 to 20 do

write(‘Nhap so N = ‘);
readln(N);
S:= 0;
for i:= 1 to N do
S:= S+i;
writeln(‘Tong cua’, N, ‘so tư
nhien dau tien S = ‘, S);
readln;
end.
*Kiểu longint có phạm vi từ -2
31
đến
2
31
– 1.
Vd 2: chương trình tính tích N số tự
nhiên, với N là số tự nhiên được nhập
từ bàn phím.
N! = 1.2.3….N
program Tinh_Giai_Thua;
var N,i:integer;
P:longint;
begin
write(‘Nhap so N = ‘);
readln(N);
P:= 1;
for i:= 1 to N do
P:= P*i;
writeln( N, ‘! = ‘, P);
readln;