KIỂM TRA BÀI CŨ
KIỂM TRA BÀI CŨ
- Hãy nêu cú pháp câu lệnh lặp For…Do. Câu hỏiCú pháp:
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do
<câu lệnh>;

VD1: Viết chương trình
tính tổng các số tự
nhiên từ 1 đến 100
S = 1 + 2 + 3 + . . .+100
Laëp 100 laàn
VD2: Viết chương trình nhập
vào các số cho đến khi
gặp 0 thì dừng lại. Tính
tổng các số vừa nhập.
Ch a bi t l p m y l nư ế ặ ấ ầ
Lặp với số lần biết trước,
sử dụng câu lệnh lặp For…
Do để viết chương trình
Lặp với số lần chưa biết
trước, sử dụng câu lệnh gì
để viết chương trình?


lặp?
Điều kiện: Khi tổng T
n
nhỏ
nhất lớn hơn 1000 thì kết
thúc hoạt động lặp
tăng dần

1. Các hoạt động lặp với số lần chưa biết trước:
n Tổng T
n
Điều kiện T
n
≤ 1000
1
T
1
= 1 Đúng
2 T
2
= 1 + 2 Đúng
Đúng
… … …
?
T
n
= 1 + 2 + 3 + … +?
(Sao cho T
n


biết trước có thể được mô tả như sau:
Điều kiện?
Sai
Câu lệnh
Đúng


Trong Pascal câu lệnh lặp với số lần chưa
biết trước có dạng:
Trong đó:

Điều kiện thường là một phép so sánh;

Câu lệnh có thể là câu lệnh đơn giản hay là
câu lệnh ghép.
2. Ví d v l nh l p với số lần chưa biết trước:ụ ề ệ ặ


Câu lệnh lặp này được thực hiện như sau:
1) Kiểm tra điều kiện.
2) + Nếu điều kiện ĐÚNG, thực hiện
câu lệnh và quay lại bước 1.
+ Nếu điều kiện SAI, câu lệnh sẽ bò
bỏ qua và việc thực hiện lệnh lặp kết thúc.
2. Ví d v l nh l p với số lần chưa biết trước:ụ ề ệ ặ
Sơ đồ
hoạt động

điều kiện
LệNh

hiện thuật toán trong Ví dụ 2 (Sgk)
2. Ví d v l nh l p vôùi soá laàn chöa bieát tröôùc:ụ ề ệ ặ
var S, n: integer;
Begin
S := 0; n := 0;
while S <= 1000 do
begin
n := n+1; S := S+n ;
end;
write(‘Tong S = ’, S ,‘ va ’, n, ’ la so tu nhien nho nhat
sao cho S > 1000’);
Readln;
End.
Hãy nêu Cú Pháp câu lệnh lặp
với số lần chưa biết trước?
Tong S= 1035 va 45 la so tu nhien nho nhat sao cho S>1000
While <điều kiện> do <câu lệnh>;

Học sinh thảo luận theo nhóm (chia 4 nhóm)
Học sinh thảo luận theo nhóm (chia 4 nhóm)
-

Có 4 câu hỏi. Mỗi nhóm chỉ được phép chọn 1 câu hỏi,
nhóm chọn câu hỏi, cử đại diện đứng lên đọc đề. Sau đó
tất cả các nhóm cùng thảo luận.
-
Cách thức trả lời:
+ Nếu câu hỏi trắc nghiệm: tất cả các nhóm cùng giơ đáp án lên.
+ Nếu câu hỏi tự luận: nhóm chọn câu hỏi cử đại diện đứng lên trả
lời. Các nhóm khác nhận xét.

Thiếu Begin
Thiếu End
Câu 2: Hãy chỉ ra lỗi trong các câu lệnh sau đây?
30292827262524
23
222120191817161514131211109876543210

In ra các số từ 1 đến 9
In ra các số từ 1 đến 9
In ra các số từ 1 đến 10
In ra các số từ 1 đến 10
In ra các số 1
In ra các số 1
Không phương án nào đúng.
Không phương án nào đúng.
A
A
B
B
C
C
D
D
Câu 3: Đoạn lệnh sau đây cho kết quả là gì?
S:=1; While s < 10 do
Begin writeln(s); s:=s+1; end;
30292827262524
23
222120191817161514131211109876543210

CHóC Quý THÇY C¤ CïNG ToµN THÓ
CHóC Quý THÇY C¤ CïNG ToµN THÓ
C¸C EM LU¤N LU¤N M¹NH KHáE!
C¸C EM LU¤N LU¤N M¹NH KHáE!