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

BÀI 9
CẤU TRÚC LẶP (TT)
Ngày 30/11/2009
Bài 9
Tiết PPCT: 15
3. Lặp với số lần chưa biết trước và câu lệnh While-do
While
Trong đó:
+ <điều kiện> là biểu thức logic;
+ là các câu lệnh đơn hoặc ghép.
Cú pháp:
<điều kiện>
do

;
Hoạt động của While-do:
Kiểm tra <điều kiện>,
3. Lặp với số lần chưa biết trước và câu lệnh While-do
câu lệnh sau từ khóa Do sẽ được thực hiện;
chừng nào <điều kiện> đúng thì
sau đó quay lại kiểm tra điều kiện…, cứ tiếp tục như thế cho đến khi <điều kiện> sai thì kết thúc vòng lặp.
While
<điều kiện>
do

;
Đúng | sai ?
Đúng
Tôi làm việc
Sai
Tôi không làm việc
Sơ đồ khối
3. Lặp với số lần chưa biết trước và câu lệnh While-do
Điều kiện ?
Câu lệnh
Đúng
Sai
3. Lặp với số lần chưa biết trước và câu lệnh While-do
Ví dụ: Chương trình cài đặt thuật toán tính tổng sau:
Tong = 1/a + 1/(a+1) + 1/(a+2) +…+ 1/(a+N) +…
cho đến khi 1/(a+N) < 0.0001
Thuật toán:
B1: tong := 1/a; N := 0;
Bước 1: ?
B2: Nếu 1/(a+N) < 0.0001
thì In kết quả và kết thúc;
B3: N := N+1;
B4: tong := tong + 1/(a+N); rồi quay lại bước 2;
B5: In kết quả và kết thúc.
Program tong_2;
Uses crt;
Var
Begin
Readln
End.
Write(‘Nhap gia tri a>2:’); readln(a);
tong := 1/a; N := 0;
while 1/(a+N) > 0.0001 do
begin
n : = n+1;
tong := tong + 1/(a+N);
end;
Writeln(‘Ket qua tong la:’, tong:8:2);
a, N :integer;
tong :real;
3. Lặp với số lần chưa biết trước và câu lệnh While-do
Program tong_2;
Uses crt;
Var
Begin
Readln
End.
Write(‘Nhap gia tri a>2:’); readln(a);
tong := 1/a; N := 0;
while 1/(a+N) > 0.0001 do
begin
n : = n+1;
tong := tong + 1/(a+N);
end;
a, N :integer;
tong :real;
Writeln(‘Ket qua tong la:’, tong:8:2);
Sơ đồ khối
N  N + 1
S  S +1/(a + N)
1/(a+N) > 0.0001
Nhập a
In k quả;
kết thúc
S  1/a
N  0
Đúng
Sai
Củng cố
Cấu trúc lặp While – do được sử dụng trong trường hợp nào?



Câu lệnh sau Do thực hiện khi nào?
BÀI TẬP VỀ NHÀ
Về nhà các em xem thêm ví dụ 2 “Tìm ước chung lớn nhất của 2 số nguyên dương” ?
Làm các bài tập cuối bài Cấu trúc lặp ?