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

CHÀO MỪNG BẠN ĐẾN VỚI BÀI GIẢNG
ỨNG DỤNG KIẾN THỨC LIÊN MÔN
SỬ DỤNG KIẾN THỨC LIÊN MÔN VÀO BÀI GIẢNG
Tiết 14
CẤU TRÚC LẶP
(Tiếp theo)
3. Lặp với số lần chưa biết trước và câu lệnh While - do
SỞ GIÁO DỤC VÀ ĐÀO TẠO TUYÊN QUANG
B�i 2
Cho a>2 và N là số nguyên.
Tính tổng và đưa ra màn hình:
Thuật toán
B1: Nhập a;
B2: S:= 1/a; N:=0.
B3: Nếu 1/(a+N) <0.0001 thì thông báo kết quả và kết thúc.
B4: S:=S+1/(a+N); N:=N+1  B3



Và dừng khi
3. Lặp với số lần chưa biết trước và câu lệnh While - do
Cấu trúc
WHILE <điều kiện> DO ;
Trong đó: - while, do: là từ khóa
- điều kiện: là biểu thức lôgic hoặc biểu thức quan hệ.
- Câu lệnh: là câu lệnh đơn hoặc câu lệnh ghép.
Hoạt động
B1: Kiểm tra điều kiện
B2: Nếu điều kiện đúng thì thực hiện
câu lệnh và quay lại B1.
B3: Nếu điều kiện sai thoát khỏi vòng
lặp.
Program Bai_2;
Var s : Real;
N, a: Integer;
Begin
Write (‘Nhap a =’); Readln(a);
S:=1/a; N:=0;
While 1/(a+i) > 0.0001 do
Begin
N := N + 1;
S := S+1/(a+i);
end;
Write(‘Tong S=’), S:10:3);
Readln
End.
Khai báo
Thân chương trình
Ví dụ 1
Tìm ước chung lớn nhất của 2 số nguyên dương M, N.
B1: Nhập M, N.
B2: Nếu M = N thì UCLN là M hoặc N và kết thúc.
B3: Nếu M > N thì M := M - N ngược lại thì N := N - M và
quay lại B2
Thuật toán
Ví dụ 2
3. Lặp với số lần chưa biết trước và câu lệnh While - do
Program UCLN;
Var M, N: Integer;
Begin
Write(‘ Nhap M va N =’);
Readln(M,N);
While N<>M do
If N > M then M:= M-N
else N:=N-M;
Write(‘UCLN la ’, N);
Readln
End.
Khai báo
Thân chương trình
Bài tập củng cố
Câu 1: Cho biết câu lệnh While - do là loại câu lệnh
a. Lặp với số lần biết trước
b. Lặp với số lần chưa biết trước
c. Cả a, b đều sai
b. Lặp với số lần chưa biết trước
Câu 2: Câu lệnh sau từ khóa DO được thực hiện khi gặp điều kiện
a. Đúng
a. Đúng
c. Cả a, b đều đúng
b. Sai
d. Cả a, b đều sai
TRƯỜNG THPT TRUNG SƠN
Thank You !