Bài 10. Cấu trúc lặp

CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ GIỜ
KIỂM TRA BÀI CŨ

Có mấy loại cấu trúc lặp? Đó là những loại nào?
Bài toán tính giai thừa: Với n là số nguyên dương nhập vào từ bàn phím, viết đoạn lệnh tính và xuất ra màn hình kết quả của n!
Đáp án:
Có 2 cấu trúc lặp:
Lặp với số lần biết trước
Lặp với số lần chưa biết trước
2. tich:=1;
For i:=n downto 1 do
tich:=tich*i;
Write(‘ket qua la:’, tich:4);
Bài toán 1:
Bài toán 2:
Tính và xuất ra màn hình tổng S, với a là số nguyên và a>2
cho đến khi
Bài toán 2:
Tính và xuất ra màn hình tổng S, với a là số nguyên và a>2
cho đến khi
Bước 1:
S:=1/a; N:=1;
{Khởi tạo S và N}
Bước 2:
Nếu 1/(a+N) < 0.0001
dua S ra m�n hình rồi kết thúc
Bước 4:
S:=S+1/(a+N);
=> quay lại bước 2
thuật toán bài toán 2:
Bước 3: N? N+1;
? Vòng lặp chỉ dừng khi 1/(a+N)<0.0001
3. Lặp với số lần chưa biết trước và câu lệnh while - do
While <điều kiện> do
 Điều kiện: là biểu thức logic.
 Câu lệnh là một câu lệnh đơn hoặc ghép.
Cấu trúc
Hoạt động của While - do
Câu lệnh
Điều kiện
Đúng
Sai
Sơ đồ hoạt động
While <điều kiện> do
SƠ đồ khối bài toán 2:
Đưa ra S
=> Kết thúc
Đ
S
Lưu ý:
Phủ định của biểu thức logic 1/(a+N) <0.0001 là biểu thức not(1/(a+N) <0.0001)
 1/(a+N)>=0.0001
* Ví dụ 1: Viết đoạn lệnh tính và xuất ra màn hình tổng S trong bài toán 2
S:=1/a; N:=0;
While not(1/(a+N)<0.0001) do
begin
N:=N+1;
S:=S+1/(a+N);
end;
Writeln(‘Tong la:’, S:8:2);
* Ví dụ 2:
Nhập vào 2 số nguyên dương M, N. Tìm và xuất ra màn hình ƯCLN(M, N).
* Yêu cầu: Vi?t do?n lệnh nhập vào hai số nguyên dương M,N. Tìm ƯCLN của hai số đó.
B1: Nhập M,N;
B2 : Chừng nào M?N

nếu M>N thì M:=M-N,
ngược lại thì N:=N-M;

B3: Đến khi M=N thì
đưa ra ƯCLN(M,N)=M;

B1: readln(M,N);
B2 : While M<>N DO
Begin
IF M>N then M:=M-N
else N:=N-M; end;
B3: write(`UCLN la`, M);
Thuật toán
các bước viết câu lệnh
Mô tả hoạt động của vòng lặp, giả sử:
M= 4 ;N=10
M=4<>N=10 :kiểm tra
MM=4
N=6
M=4<>N=6 :kiểm tra
MM=2
N=2
M=4<>N=2 :kiểm tra
M>N nên M=M-N=4-2 =2
M=N :thoát khỏi vòng lặp
In ra ƯCLN là M
M=4
N=2
Lần thực hiện 1
Lần thực hiện 2
Lần thực hiện 3
Tham khảo:
Dạng khác của câu lệnh lặp với số lần lặp không biết trước
REPEAT UNTIL <Điều kiện>;
Điều kiện
Sai

Câu lệnh
Đúng
Sử dụng while…do… viết câu lệnh tính bài toán giai thừa:
tich:=1;
For i:=1 to n do
tich:=tich*i;
Write(‘ket qua la:’, tich:4);
tich:=1; i:=1;
While i<=n do
begin
tich:=tich*i;
i:=i+1;
End;
Write(‘ket qua la:’, tich:4);
Bài tập củng cố
Chọn đáp án đúng?
Khi chạy chương trình trên, kết quả sẽ hiển thị là bao nhiêu?
Đáp án: a. 3 b. 4 c. 5 d. 6
Bài tập củng cố
Chọn đáp án đúng?
Khi chạy chương trình trên, kết quả sẽ hiển thị là bao nhiêu?
Đáp án: a. 9 b. 10 c. 12 d. Kết quả khác
Dặn dò
Về nhà học bài cũ, làm các bài tập 4, 5, 6, 7, 8/ trang 51 SGK chuẩn bị tiết bài tập và thực hành