Bài 8. Lặp với số lần chưa biết trước

Kiểm tra bài cũ
Câu I: Hãy chỉ ra những lỗi sai trong các câu lệnh sau:

A X:= 10; while X:= 10 do X:= X + 5;

B X:= 10; while X= 10 do X= X + 5;

C S:= 0; n:= 0; while S<= 10 do n:= n + 1; S:= S + n
Thừa dấu :
Thiếu dấu :
Thiếu Begin...end
Kiểm tra bài cũ
Câu II: Đoạn lệnh sau đây cho kết quả gì?
S:= 1; while S < 10 do
Begin writeln ( S ); S:= S + 1; end;
A: In ra các số từ 1 đến 9
B: In ra các số từ 1 đến 10
C: In ra các số 1
D: Không có phương án đúng.
Tiết 50
Lặp với số lần chưa biết trước
Bài 8: Lặp với số lần chưa biết trước
Tin Học 8
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 4: Dùng câu lệnh While...do để viết chưong trình thể hiện thuật toán trong vi dụ 2.
Var s,n: integer;
Begin
S:= 0; n:= 1;
while S < = 1000 do
Begin
n:= n + 1; S:= S + n;
end;
writeln (‘tổng s=‘,s,’và’,n,’ là số tự nhiên nhỏ nhất sao cho s<1000;);
Readln;
End.

Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 4: Dùng câu lệnh While...do để viết chưong trình thể hiện thuật toán trong vi dụ 2.
Var s,n: integer;
Begin
S:= 0; n:= 1;
while S < = 1000 do
Begin
n:= n + 1; S:= S + n;
end;
writeln (‘tổng s=‘,s,’và’,n,’ là số tự nhiên nhỏ nhất sao cho s<1000;);
Readln;
End.
Trong chương trình đâu là câu lệnh lặp?
Biến nào đóng vai trò là biến đếm?
Biến: n
S:=s+n
N:=n+1
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.

Ví dụ 4
Nếu chạy chương trình cho ta giá trị của n và s bằng bao nhiêu?
n= 45 và S= 1034
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 5: Viết chương trình tính tổng:
T=1+1/2+1/3+...+1/100
Sử dụng vòng lặp WHILE...DO
Sử dụng vòng lặp FOR...DO
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 5: Viết chương trình tính tổng:
T=1+1/2+1/3+...+1/100
*. Sử dụng lệnh for..do.
T:=0;
for i:=1 to 100 do T:=T+1/i;
Writeln(T);
*.Sử dụng lệnh While..do
T:=0;
i:=1;
While i<=100 do Begin T:=t+1/i;
i:=i+1;
end;
Writeln(T);
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 5: Viết chương trình tính tổng:
T=1+1/2+1/3+...+1/100
Hãy dự đoán kết quả của 2 chương trình ?
Kết quả của hai
chương trình
giống nhau
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 5: Viết chương trình tính tổng:
T=1+1/2+1/3+...+1/100
âu lệnh lặp đi lặp lại?
Biến nào là
biến đếm?
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
Ví dụ 5: Viết chương trình tính tổng:
T=1+1/2+1/3+...+1/100
Dùng vòng lặp
For...do thì câu nào là
câu lệnh lặp?
T:= (T + 1) / i
Biến nào là biến đếm?
Biến: i
Chú ý: Có thể sử dụnh lệnh lặp while..do thay cho lệnh lặp for..do
Tiết 46: 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
2. Ví dụ về lệnh lặp với số lần chưa biết trước.
3.Lặp vô hạn lần- Lỗi lập trình cần tránh.
VÝ dô :
Var
a:integer;
Begin
a:=5;
While a<6 do
Write(` Chuong trinh chay mai khong thoat duoc`);
End.
L­u ý: Khi viÕt ch­¬ng trình víi c©u lÖnh lÆp, ®iÒu kiÖn ph¶i ®­îc thay ®æi ®Ó ch­¬ng trình kh«ng gÆp lçi lÆp v« h¹n.