www.themegallery.com
Bài 8
Lặp với số lần chưa
biết trước

Tin Học 8
GV TRẦM THANH ViỆT
Trường THCS Tân Hiệp

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.

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:
Ví dụ 1:
Ví dụ 2: Nếu cộng lần lượt n số tự nhiên đầu tiên (n=1,2,3,
…), ta sẽ được kết quả tăng dần T
1

Câu lệnh
Điều kiện
?
Đúng
Sai
Kết thúc
Bài 8

www.themegallery.com
Lặp với số lần chưa biết trước
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;
While x >= Sai_So do
Begin
n:=n+1; x:=1/n;
End;
Writeln(‘So n nho nhat de 1/n < ‘,Sai_So:6:4, ‘ la ‘,n);
Readln;
End.
Bài 8

www.themegallery.com

End;
Writeln(T);
For…do
While…do
Bài 8

www.themegallery.com
3. Lặp vô hạn lần – lỗi lập trình cần tránh:
Lặp với số lần chưa biết trước
Var a:Integer;
Begin
a:=5;
While a < 6 do
Writeln(‘A’);
End.
Var a:Integer;
Begin
a:=5;
While a < 6 do
Begin
Writeln(‘A’);
a:=a+1;
End;
End.
Bài 8

www.themegallery.com
Lặp với số lần chưa biết trước
GHI NHỚ:
1. Ngoài cấu trúc lặp với số lần lặp biết trước, các ngôn ngữ