CHÀO MỪNG QUÝ THẦY, CÔ DỰ GIỜ THĂM LỚP
PHÒNG GD-ĐT THÀNH PHỐ TRÀ VINH
TRƯỜNG THCS MINH TRÍ
Gv: Thái Thị Kim Tiến
Câu 1: Trong các hoạt động dưới đây, hoạt động nào là hoạt động lặp lại với số lần không biết trước?
Câu 2:Hãy chỉ ra câu lệnh viết đúng cú pháp:

Câu 3:Nếu S=10, i=0 Sau khi thực hiện câu lệnh
While S>5 do
begin i:=i+1; S:=S-i end;
writeln(S);
Với đoạn lệnh trên chương trình thực hiện bao nhiêu vòng lặp và giá trị của S là:
Câu 1: Trong các hoạt động dưới đây, hoạt động nào là hoạt động lặp lại với số lần không biết trước?
1/ Nêu cú pháp câu lệnh lặp For? Giải thích các thành phần trong câu lệnh?
2/ Nêu hoạt động của câu lệnh lặp For trong chương trình?
Bài 9 CẤU TRÚC LẶP
2. Lặp với số lần biết trước: lệnh For
Bài 9 CẤU TRÚC LẶP
2. Lặp với số lần biết trước: lệnh For
FOR := TO DO < câu lệnh>;
Cú pháp:
Trong đó:
 For, to, do: là các từ khóa.
 Biến đếm: thuộc kiểu dữ liệu đếm được (Integer; char; byte;..)
 Giá trị đầu; giá trị cuối: thuộc cùng kiểu dữ liệu với biến đếm.
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
 Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.
Bài 9 CẤU TRÚC LẶP
2. Lặp với số lần biết trước: lệnh For
* Số vòng lặp = GIÁ TRỊ CUỐI – GIÁ TRỊ ĐẦU + 1
Mô phỏng thuật toán:
Bắt đầu
Gán n = 1
1 <= 5?
Viết 1 ra màn hình và biến đếm tự động tăng lên 1 đơn vị
n=2
1
2
3
4
5
2 <= 5?
Viết 2 ra màn hình và biến đếm tự động tăng lên 1 đơn vị n=3
3 <= 5?
Viết 3 ra màn hình và biến đếm tự động tăng lên 1 đơn vị n=4
4<= 5?
Viết 4 ra màn hình và biến đếm tự động tăng lên 1 đơn vị n=5
Sai
Đúng
5<= 5?
Viết 5 ra màn hình và biến đếm tự động tăng lên 1 đơn vị n=6
6 <= 5?
Kết thúc
Kết quả
For n:=1 to 5 do writeln(n);
n:=1;
while n<=5 do
begin
writeln(n);
n:=n+1;
end;
b)
a)
c)
d)
Câu 1: Sau mỗi vòng lặp trong câu lệnh lặp For…To…Do thì giá trị biến đếm sẽ:
Tăng thêm 1 đơn vị.
Tăng thêm 2 đơn vị.
Giảm 1 đơn vị.
Giảm 2 đơn vị.
a)
c)
b)
d)
Câu 2: Giá trị biến đếm i trong câu lệnh lặp For…To…Do sẽ nhận giá trị thuộc kiểu dữ liệu nào?
Kiểu số nguyên (integer)..
Kiểu số thực (real).
Kiểu xâu (string).
Giá trị hằng.
Program Btap;
Var sum, i: integer
Begin
sum:=0;
For i = 1.5 to 10 do Begin sum:= sum + i; writeln(sum);
End;
Readln;
End.
Câu 3: 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);
End;
Readln;
End.
1
25
3
Bài tập 3 (SGK). Các em cùng thảo luận và cho biết kết quả chạy chương trình sau đây:
Bài tập 4 (SGK) Hãy sửa lại chương trình trên để màn hình kết quả có dạng như sau:
25
1
Bài tập 3
Bài tập 4
Sửa lại
3
3
3
Câu lệnh lặp
For…to…do
Cú pháp: For := to do ;
Tính số vòng lặp :
Giá trị cuối – giá trị đầu + 1
Ghi NH?
D?n dị
- Về nhà học bài (c� ph�p v� ho?t d?ng c?a c�u l?nh l?p While-do v� For-to-do; so s�nh l?nh While-do v� For-to-do).
- L�m c�c b�i t?p 2,4,6,8,9 trong b�i th?c h�nh 4.