1
BÀI 7 - CÂU LỆNH LẶP
Tiết 41- 42
Hãy nêu ví dụ về các hoạt động lặp trong cuộc sống hàng ngày.
Đánh răng ngày 2 lần
Ăn ngày 3 bữa chính
Đi học ngày 1 buổi
Học bài đến khi thuộc
…
3
1. Câu lệnh lặp. Một lệnh thay cho nhiều lệnh
Ví dụ 1: vẽ 3 hình vuông có cạnh 1 đơn vị
(các em nghiên cứu trong sgk)
4
1. Câu lệnh lặp. Một lệnh thay cho nhiều lệnh
Ví dụ 2: tính tổng của 100 số tự nhiên đầu tiên
Thuật toán;
Bước 1:S0;i0
Bước 2: ii+1
Bước 3; nếu i<=100 thì,SS+1, quay lại bước 2
Bước 4; in kết quả, kết thúc thuật toán
5
2. Câu lệnh lặp for…do:
a/ Cú pháp:

b/ Trong đó:
For, to, do: là từ khóa
Biến đếm: biến kiểu nguyên
Giá trị đầu, giá trị cuối: là biểu thức cùng kiểu với biến đếm (giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối)
Câu lệnh: Không được làm thay đổi giá trị biến đếm, nếu có nhiều hơn một lệnh thì phải đặt trong cặp từ khoá Begin ... end;

For : to do ;
2. Câu lệnh lặp for…do
c/ Hoạt động của câu lệnh:
Quan sát sơ đồ khối, hãy cho biết sự thực hiện của máy?
Bước 1: tính giá trị đầu, gán cho biến đếm.

Bước 2: Nếu biến đếm <= giá trị cuối thì:
- thực hiện lệnh cần lặp.
- tăng biến đếm 1 đơn vị, quay lại bước 2
7
d. Ví dụ về câu lệnh lặp:
Ví dụ 3: Chương trình sau sẽ in ra màn hình thứ tự lần lặp:

Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 10 do
Writeln (‘day la lan lap thu ’, i );
Readln;
end.
day la lan lap thu 1
day la lan lap thu 2
day la lan lap thu 3
day la lan lap thu 4
day la lan lap thu 5
day la lan lap thu 6
day la lan lap thu 7
day la lan lap thu 8
day la lan lap thu 9
day la lan lap thu 10
Theo em dự đoán thì trên màn hình sẽ hiển thị lên kết quả như thế nào sau khi chạy chương trình?
Số lần lặp= 10-1+1=10(lần)
Số lần lặp= ?
Ví dụ 3: Chương trình sau sẽ in ra màn hình thứ tự lần lặp:
8
2. Câu lệnh lặp for…do :
Áp dụng:
Hãy viết chương trình in ra màn hình các số từ 1 đến 10
Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 10 do
Writeln (‘day la lan lap thu ’, i );
Readln;
end.
day la lan lap thu 1
day la lan lap thu 2
day la lan lap thu 3
day la lan lap thu 4
day la lan lap thu 5
day la lan lap thu 6
day la lan lap thu 7
day la lan lap thu 8
day la lan lap thu 9
day la lan lap thu 10
1
2
3
4
5
6
7
8
9
10
9
2. Câu lệnh lặp for…do :
Áp dụng:
Hãy viết chương trình in ra màn hình các số từ 1 đến 10
Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 10 do
Writeln ( i );
Readln;
end.
1
2
3
4
5
6
7
8
9
10
10
2. Câu lệnh lặp for…do :
Để in một chữ “O” trên màn hình ta sử dụng lệnh nào?
Để in nhiều chữ “O” trên màn hình ta làm như thế nào?

For i:= 1 to 20 do Writeln (‘O’);

11
2. Câu lệnh lặp for…do :
Ví dụ 4: Hiệu ứng trứng rơi
For i:= 1 to 20 do
begin
Writeln (‘O’);
delay(100)
end;

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

Uses crt;
Var i: integer;
Begin
For i:= 1 to 20 do
begin
Writeln (‘O’);
delay(100)
end;
Readln
end.
12
Bài 4 (SGK-61) Sau khi thực hiện đoạn chương trình sau, giá trị j bằng bao nhiêu?

j:=0;
For i:=0 to 5 do j:=j+2;
Số lần lặp = 5 – 0 + 1 = 6 (Lần)
Sau mỗi vòng lặp giá trị j tăng thêm 2
Sau 6 vòng lặp giá trị j = 12
13
Nhận biết câu lệnh lặp

Các câu lệnh Pascal sau đây có hợp lệ hay không, vì sao?
a/ For i:=100 to 1 do writeln(‘A’);
b/ For i:=1.5 to 10.5 do writeln(‘A’);
c/ For i=1 to 10 do writeln(‘A’);
d/ For i:=1 to 10 do; writeln(‘A’);
e/ Var x:Real;
Begin
For x:=1 to 10 do writeln(‘A’);
End.







14
3. Tính tổng và tích bằng câu lệnh lặp:
Ví dụ 5: Tính tổng S = 1+2+3+…+N
Uses crt;
Var N, i: integer;
S: longint;
Begin
Write(‘nhap so N=‘); readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong S= ‘, S);
Readln
end.
15
3. Tính tổng và tích bằng câu lệnh lặp:
Ví dụ 6: Tính Tích N! = 1*2*3*…*N
Uses crt;
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
end.
Ví dụ 5: Tính tổng S = 1+2+3+…+N
Uses crt;
Var N, i: integer;
S: longint;
Begin
Write(‘nhap so N=‘); readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong S= ‘, S);
Readln
end.
16
3. Tính tổng và tích bằng câu lệnh lặp:
BÀI 7: CÂU LỆNH LẶP
Ví dụ 6: Tính Tích N! = 1*2*3*…*N
Program Tinh_Giai_thua;
Uses crt;
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
end.
Ví dụ 5: Tính tổng S = 1+2+3+…+N
Program Tinh_tong;
Uses crt;
Var N, i: integer;
S: longint;
Begin
Write(“nhap so N=‘); readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong S= ‘, S);
Readln
end.
Tiết 41-42
17
Ghi nhớ

1. Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn.
2. Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp.
3. Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh For … do
18
Củng cố
19
Hướng dẫn học ở nhà
- Học bài cũ
- Làm các bài tập còn lại trong phần câu hỏi và bài tập trang 59 (sgk)
Viết chương trình tính tổng các số 1 đến 100



- Xem trước: Bài thực hành số 5