Bình Dương,
ngày
05/03/2009
1
Môn: Tin học - Lớp 8

Bình Dương,
ngày
05/03/2009
2
Program Btap;
Var sum, i:= integer;
sum:=0;
For i = 1.5 to 10 do
Begin
sum:= sum + i;
writeln(sum);
Readln;
End.
KIỂM TRA BÀI CŨ
Câu hỏi : Hãy liệt kê các lỗi trong chương trình dưới
đây:
Program Btap;
Var sum, i: integer;
Begin
sum:=0;
For i := 1 to 10 do
Begin
sum:= sum + i;
writeln(sum);

= 1+ 2 + 3 + …
+ n, nhỏ nhất lớn hơn 1000.
1. Các hoạt động lặp với số lần chưa biết trước.
n S
n
S
n
≤ 1000
1
S
1
= 1 Đúng
2 S
2
= 1 + 2 Đúng
Đúng
… … …
n S
n
= 1 + 2 + 3 + … + n Sai, kết thúc việc tính tổng
3 S
3
= 1 + 2 + 3
Phân tích:

Bình Dương,
ngày
05/03/2009
6
Thuật toán :

Sai
1. Các hoạt động lặp với số lần chưa biết trước.