Bài 8
Lặp với số lần chưa
biết trước
Tin Học 8
Tuần 28
Tiết 55

www.themegallery.com
KIỂM TRA BÀI CŨ
Câu 1: Hãy ghi cú pháp của câu lệnh lặp For…do ?
Câu 2: Hãy viết chương tình tính tổng của 5 số đầu tiên ?
For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Var i, Tong: integer;
Begin
Tong:=0;
For i: = 1 to 5 do
Tong:= Tong + i;
Write(‘Tong= ’,Tong);
Readln;
End.
Lặp với số lần chưa biết trước
Tuần 28
Tiết 55
Bài 8

www.themegallery.com
Lặp với số lần chưa biết trước
1. Các hoạt động lặp với số lần chưa biết trước:
Tuần 28

While <điều kiện> do <câu lệnh>;
 Trong đó:
-
Điều kiện thường là các phép so sánh;
-
câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.
Câu lệnh lặp được thực
hiện như thế nào ?
Câu lệnh
Điều kiện
?
Đúng
Sai
Kết thúc

www.themegallery.com
Lặp với số lần chưa biết trước
Tuần 28
Tiết 55
Bài 8
2. Ví dụ về lệnh lặp với số lần chưa biết trước:
Ví dụ 3: Với giá trị nào của n để 1/n < 0.003 ?. Viết chương
Trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước.
Uses crt;
Var x:Real;
n:Integer;
Const Si_So=0.003;
Begin
Clrscr;
x:=1; n:=1;