Bài 7. Câu lệnh lặp

10/29/2010
PHÒNG GIÁO DỤC ĐÀO TẠO HƯƠNG THỦY
GIÁO ÁN ĐIỆN TỬ
LỚP 8
HƯƠNG THỦY 2010- 2011
TRƯỜNG THCS THỦY CHÂU
10/29/2010
Kiểm tra bài cũ:
? Để in ra màn hình 5 dòng chữ: “THCS Thuy Chau” ta làm như thế nào?
Writeln(‘THCS Thuy Chau’);
Writeln(‘THCS Thuy Chau’);
Writeln(‘THCS Thuy Chau’);
Writeln(‘THCS Thuy Chau’);
Writeln(‘THCS Thuy Chau’);
10/29/2010
1. Ví dụ về câu lệnh lặp
a) Cú pháp :
FOR biến đếm : = giá trị đầu TO giá trị cuối DO Câu lệnh trong vòng lặp ;
 Giá trị đầu < Giá trị cuối.
BÀI 7: CÂU LỆNH LẶP (t2)
Trong đó:
 Biến đếm phải thuộc kiểu dữ liệu đếm được
( không là số thực ).
10/29/2010
Không được làm thay đổi giá trị biến đếm
Nếu có nhiều hơn một lệnh thì phải đặt trong cặp từ khoá Begin ... end;
BÀI 7: CÂU LỆNH LẶP
1. Ví dụ về câu lệnh lặp
FOR biến đếm : = giá trị đầu TO giá trị cuối DO Câu lệnh trong vòng lặp ;
a) Cú pháp :
10/29/2010
Chú ý :
Sau DO không có dấu chấm phẩy.
- Có thể dùng các vòng lặp FOR lồng nhau.
BÀI 7: CÂU LỆNH LẶP
1. Ví dụ về câu lệnh lặp
FOR biến đếm : = giá trị đầu TO giá trị cuối DO Câu lệnh trong vòng lặp ;
a) Cú pháp :
10/29/2010
b) Hoạt động của câu lệnh :
Biến đếm : = Giá trị đầu
Câu lệnh trong vòng lặp ;
Biến đếm :=Biến đếm + 1;
Sai
Đúng
Giá trị đầu <=Giá trị cuối
BÀI 7: CÂU LỆNH LẶP
1. Ví dụ về câu lệnh lặp
10/29/2010
c. Ví dụ :Viết câu lệnh để in ra màn hình 5 dòng chữ “ THCS Thuy Chau “.
For i : = 1 to 5 do writeln( ‘THCS Thuy Chau’);
- Hãy chỉ ra các thành phần trong câu lệnh trên ?
i là biến đếm
1 là giá trị đầu
5 là giá trị cuối
writeln( ‘THCS Thuy Chau’); là câu lệnh
BÀI 7: CÂU LỆNH LẶP
1. Ví dụ về câu lệnh lặp
10/29/2010
- Hãy sử dụng câu lệnh trên để viết chương trình đầy đủ in ra màn hình 5 chữ “ THCS Thuy Chau “
c. Ví dụ :Viết câu lệnh để in ra màn hình 5 dòng “ THCS Thuy Chau “
For i : = 1 to 5 do writeln(‘THCS Thuy Chau’);
BÀI 7: CÂU LỆNH LẶP
1. Ví dụ về câu lệnh lặp
LK
10/29/2010
2. Tính tổng và tích bằng câu lệnh lặp
BÀI 7: CÂU LỆNH LẶP
Ví dụ 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím?
10/29/2010
Program Tinh_tong;
Var
N,i: integer;
S: longint;
Begin
Write(‘Nhap so N=‘); Readln(N)
S:=0;
For i:=1 to N do S:=S+i;
Writeln(‘tong cua N so tu nhien dau tien=‘,S);
Readln;
End.
BÀI 7: CÂU LỆNH LẶP
LK
10/29/2010
T  0; i0
i  i + 1
i ≤ n
T  T + i
Kết thúc
Bước 1: T  0; i  0
Bước 2: i  i + 1
Bước 3: Nếu i ≤n thì
T  T +i và quay lại bước 2
Bước 4: Thông báo kết quả và kết thúc.
Đúng
Sai
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
Với n = 5
T  0; i0
i  i + 1
i ≤ n
T  T + i
T  0; i0
i  0 + 1
1 ≤ 5
T  0 + 1
Đúng
Kết thúc
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
T  0; i0
i  1 + 1
2 ≤ 5
T  1 + 2
Đúng
Với n = 5
Kết thúc
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
T  0; i0
i  2 + 1
3 ≤ 5
T  3 + 3
Đúng
Với n = 5
Kết thúc
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
T  0; i0
i  3 + 1
4 ≤ 5
T  6 + 4
Đúng
Với n = 5
Kết thúc
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
T  0; i0
i  4 + 1
5 ≤ 5
T  10 + 5
Đúng
Với n = 5
Kết thúc
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
T  0; i0
i  5 + 1
6 ≤ 5
T  10 + 5
Kết thúc
Với n = 5
MÔ TẢ CHƯƠNG TRÌNH TÍNH TỔNG 5 SỐ TỰ NHIÊN ĐẦU TIÊN
10/29/2010
2. Tính tổng và tích bằng câu lệnh lặp
BÀI 7: CÂU LỆNH LẶP
Ví dụ 2: Ta kí hiệu N! là tích N số tự nhiên đầu tiên: N!=1.2.3...N.
-Viết chương trình tính N! Với n là số tự nhiên được nhập từ bàn phím.
10/29/2010
BÀI 7: CÂU LỆNH LẶP
Program tinhgiaithua;
Var i,n :integer;
Begin
Write(‘nhap n=‘); redaln(n);
P:=1;
For i:=1 to n do p:=p*i;
Writeln(n,’!=‘,p);
Readln; End.
LK
10/29/2010
Bài tập
Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên dương được nhập vào từ bàn phím?
Gợi ý
-Tìm input, output?
- Khai báo các biến nào? Kiểu dữ liệu gì?
Nhập từ bàn phím giá trị cho biến nào?
Tìm thuật toán của chương trình
Sử dụng các câu lệnh gì để viết chương trình?