BÀI 10.
Tiết 3
Nội dung
Lặp với số lần chưa biết trước
4
Biết sử dụng câu lệnh lặp của Turbo Pascal
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Thuật toán giải bài toán 2:
Bước 1. Nhập a.
Bước 2: S  1/a; N  0
Bước 3: Nếu 1/(a + N) <0.0001 thì chuyển đến bước 6;
Bước 4: N  N+1;
Bước 5: S  S + 1/(a + N) rồi quay lại bước 3;
Bước 6: đưa kết quả S ra màn hình rồi kết thúc.
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Cú pháp:
While <điều kiện> do ;
SƠ ĐỒ HOẠT ĐỘNG CỦA CÂU LỆNH
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Sơ đồ khối
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Program Tinh_S3;
Var a, N: integer;
S : real;
Begin
Writeln (‘Nhap so a:’); Readln(a);
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 S la: ‘, S:8:2);
Readln;
End.
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Ví dụ: Tìm UCLN của hai số nguyên dương.
 Ý tưởng:
 Nếu M=N thì UCLN(M,N)=M.
 Nếu M>N thì chúng ta sẽ gán M bằng M – N rồi lại xét như trên, ngược lại thì gán N bằng N – M rồi quay lại bước đầu tiên.
BÀI 10.
NỘI DUNG
1. CẤU TRÚC LẶP
2. LẶP VỚI SỐ LẦN
BIẾT TRƯỚC
3. LẶP VỚI SỐ LẦN
CHƯA BIẾT TRƯỚC
4. CÁC VÍ DỤ
3. LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
Sơ đồ khối
CÂU HỎI CHUẨN BỊ
1. Cho biết sự giống và khác nhau của hai dạng câu lệnh If-then?
2. Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
BÀI TẬP CHUẨN BỊ
Bài 4 trang 51/SGK
Bài 6 trang 51/ SGK