Trân Trọng kính chào Quý Thầy Cô
và các em học sinh

1. Hãy cho biết câu lệnh điều kiện có mấy dạng, đó là
những dạng nào?
Trả lời: có 2 dạng
Dạng thiếu: if<điều kiện> then<câu lệnh>;
Dạng đủ: if<điều kiện> then<câu lệnh1> else <câu lệnh 2>;
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
2 . Câu lệnh điều kiện nào sau đây đúng ?
A . If a>b then max : = a ; else max : = b ;
B . If a>b then max = a else max = b ;
C . If a>b then max : = a else max : = b ;
D . If a>b then max : = a esle max = b ;

(Tiết 1)
T
i
ế
t

6
2
T
i
ế
t

t

6
2
CÂU LỆNH LẶP
CÂU LỆNH LẶP

2/ Câu lệnh lặp- một lệnh thay cho nhiều lệnh
Ví dụ 1: Giả sử cần vẽ 3 hình vuông có cạnh là 1
đơn vị. Mỗi hình vuông là ảnh dịch chuyển của
hình bên trái nó một khoảng cách là 2 đơn vị
? Viết thuật toán
CÂU LỆNH LẶP
CÂU LỆNH LẶP
Viết thuật toán
B1:Vẽ hình vuông(vẽ liên tiếp 4 cạnh và trở về đỉnh ban đầu)
B2:Nếu số hình vuông nhỏ hơn 3, di chuyển bút vẽ về bên phải
2 đơn vị và trở lại bước 1, ngược lại kết thúc thuật toán
T
i
ế
t

6
2
T
i
ế
t


CÂU LỆNH LẶP
CÂU LỆNH LẶP

T
i
ế
t

6
2
T
i
ế
t

6
2
CÂU LỆNH LẶP
CÂU LỆNH LẶP
2/ 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 sau
S=1+2+3+4 +100
Thuật toán:
B1:Sum←0;i ←0;
B2:i ←i+1;
B3: Nếu i≤100, thì sum ← sum+i và quay lại B2.
Ngược lại chuyển tới B4
B4: Thông báo kết quả và kết thúc thuật toán

Hãy viết chương trình in ra 10 lần chữ “Màu


6
2
T
i
ế
t

6
2
CÂU LỆNH LẶP
CÂU LỆNH LẶP
For<biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>
Đều kiện trong câu lệnh if then là phép so sánh,
điều kiện trong câu lệnh lặp for do là gì?
Giá trị đầu <giá trị cuối

Hãy viết chương trình in ra 10 lần chữ “Màu
sắc”
Program baitap;
Begin
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);
Writeln(‘Mau sac’);

Biến <=gtcBiến <=gtc
Biến:=gtđ
Câu lệnh
Biến tăng lên 1 đơn vị
Thoát
T
i
ế
t

6
2
T
i
ế
t

6
2
CÂU LỆNH LẶP
CÂU LỆNH LẶP

1/ Các câu lệnh Pascal sau có hợp lệ không? Vì sao?
a) for i:=1 to 50 do writeln(‘A’);
b) for i:=3.4 to 7.5 do writeln(‘A’);
c) for i:=100 to 1 do writeln(‘A’);
d) var i: real;
Begin for i:=1 to 50 do writeln(‘A’); end;
Sửa lại :
b) for i:=3 to 7 do writeln(‘A’);


Làm bài tập 4+5/61 (SGK)

Chuẩn bị nội dung tiếp theo của CÂU LỆNH
LẶP

KÍNH CHÚC QUÝ
KÍNH CHÚC QUÝ
THẦY CÔ CÙNG
THẦY CÔ CÙNG
CÁC EM HỌC
CÁC EM HỌC
SINH SỨC KHỎE.
SINH SỨC KHỎE.

Trân Trọng kính chào Quý Thầy Cô
và các em học sinh

1. Viết cú pháp của câu lệnh lặp và giải thích các giá trị
có liên quan. Cho ví dụ minh họa?
2. Sử dụng câu lệnh lặp viết chương trình tính tổng của
100 số tự nhiên đầu tiên S=1+2+ +100
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
For<biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>
For, to, do: các từ khóa
Biến đếm: biến kiểu nguyên
Giá trị đầu, giá trị cuối là các số nguyên

Ví dụ 3: Chương trình in ra màn hình thứ tự lần lặp
T
i
ế
t

6
3
T
i
ế
t

6
3
CÂU LỆNH LẶP(tt)
CÂU LỆNH LẶP(tt)
Thuật toán:
B1:i ←0;
B2:i ←i+1;
B3: Nếu i≤10, thì in ra lan lap thu i
và quay lại B2.
Ngược lại chuyển tới B4
B4: Thông báo kết quả và
kết thúc thuật toán
Program lap;
Var i:integer;
Begin
for i:=1 to 10 do
writeln(‘day la lan lap thu ‘,i);

CÂU LỆNH LẶP(tt)
writeln(‘O’); delay(100)
Câu lệnh ghép
Chú ý: Các câu lệnh đơn giản đặt trong hai từ khóa Begin và end
tạo thành câu lệnh ghép

3/ Ví dụ về câu lệnh lặp:
Ví dụ 5: Viết chương trình chào hỏi của các bạn trong lớp
T
i
ế
t

6
3
T
i
ế
t

6
3
CÂU LỆNH LẶP(tt)
CÂU LỆNH LẶP(tt)
Program chaohoi;
Var i:integer;
Ten:string;
For i:=1 to 5 do
Begin write(‘nhap ten:’); readln(ten);
Writeln(‘chao ban ‘, ten);

và quay lại B2.
Ngược lại chuyển tới B5
B5: Thông báo kết quả và
kết thúc thuật toán
Program tong;
Var i,n:integer;
S:longint;
Begin
Write(‘nhap so n=‘);
readln(n);s:=0;
For i:=1 to n do s:=s+i;
Writeln(‘tong =‘,s);
Readln;
End.

4/ Tính tổng và tích bằng câu lệnh lặp:
Ví dụ 7: Tính tích của N số tự nhiên đầu tiên với N được
nhập từ bàn phím
Kí hiệu N!=1.2.3 N
T
i
ế
t

6
3
T
i
ế
t

BÀI TẬP CỦNG CỐ
Program tong;
Var i,n,tc,tl:integer;
Begin
Write(‘nhap so n=‘); readln(n);tl:=0;tc:=0;
For i:=1 to n do
If i mod 2<>0 then tl:=tl+i else tc:=tc+i;
Writeln(‘tong chan=‘,tc);
Writeln(‘tong le=‘,tl);
Readln;
End.
2. Sau khi thực hiện đoạn chương trình sau
giá trị của biến j bằng bao nhiêu?
J :=0;
For i:=0 to 5 do j:=j+2;

§7. CÂU LỆNH LẶP
HƯỚNG DẪN HỌC Ở NHÀ

Học kỹ nắm vững cú pháp của câu lệnh lặp

Làm bài tập (SGK+SBT)

Chuẩn bị bài thực hành số 5 về CÂU LỆNH
LẶP