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

thcs NGUYễN TRƯờNG Tộ
Kính chào qúy thầy cô
và các em học sinh
Kiểm tra bài cũ
Nêu cú pháp lệnh IF dạng thiếu và dạng đủ.
Cho ví dụ minh họa 2 dạng trên.
Câu lệnh lặp
Bài 7
Em dỏnh rang 2 l?n m?i ng�y
Kim giõy quõy 60 vũng trong 1 gi?
Viết chương trình in ra
màn hình từ 1 đến 10
Hãy kể tên những hoạt động được thực hiện lặp đi lặp lại với số lần nhất định và biết trước ?
10 lệnh in
1. Các công việc phải thực hiện nhiều lần


HELLO




HELLO
HELLO
HELLO
HELLO
VD1 : in ra MH 1 chữ HELLO
Program BT1;
Uses crt;
Begin
Writeln(`HELLO`);
End.
Program BT4;
Uses crt;
Begin
Writeln(`HELLO`);
Writeln(`HELLO`);
Writeln(`HELLO`);
Writeln(`HELLO`);
End.
VD2 : in ra MH 4 chữ HELLO
2.Câu lệnh lặp – Một lệnh thay cho nhiều lệnh
 Mọi ngôn ngữ lập trình đều có CÂU LỆNH LẶP
Nếu viết chương trình in ra màn hình 100 chữ ‘O’ thì sao nhỉ?
chương trình quá dài, và viết mất nhiều thời gian !
a. Cú pháp :
FOR := TO DO ;
b. Giải thích:
FOR, TO, DO : là các từ khóa của Pascal
Biến đếm : thường có kiểu số nguyên
Giá trị đầu, giá trị cuối : là giá trị số nguyên
( Giá trị cuối > Giá trị đầu)
Câu lệnh : có thể là câu lệnh đơn hoặc câu lệnh ghép
3. Câu lệnh lặp với số lần lặp biết trước
Program in4;
Uses crt;
Begin
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
End.
Program in4;
Uses crt;
Begin

For i:=1 to 4 do Writeln(`O`);

End.
? Ban d?u bi?n d?m (I =1< 4) l?nh writeln du?c th?c hi?n ? In ra m�n hỡnh ch? O d?u tiờn
? Bi?n d?m I tang 1 don v? (I = 2< 4) l?nh writeln du?c th?c hi?n ? In ra m�n hỡnh ch? O th? 2
? Tuong t? cho d?n khi i b?ng giỏ tr? cu?i (I = 4) thỡ l?nh writeln du?c th?c hi?n l?n cu?i v� k?t thỳc ? trờn m�n hỡnh cú 4 ch? O









O
O
O
O
Hoạt động của lệnh For …To… Do
c. Các ví dụ :
c1. In ra màn hình 4 chữ O
Program thutu;
Uses crt;
Begin

For i:=1 to 4 do
writeln(‘ day la lan lap thu :’, i);
Readln;
End.
Program thutu;
Uses crt;
Begin
Writeln(‘day la lan lap thu:’, 1);
Writeln(‘day la lan lap thu:’, 2);
Writeln(‘day la lan lap thu:’, 3);
Writeln(‘day la lan lap thu:’, 4);
Readln;
End.









day la lan lap thu : 1
day la lan lap thu : 2
day la lan lap thu : 3
day la lan lap thu : 4
Kết quả khi chạy chương trình
c2. In lên màn hình thứ tự lần lặp
Ví dụ 1: Tính tổng của 100 số tự nhiên đầu tiên liên tiếp
S = 1 + 2 + 3 + 4 + ... + 100
Nhận xét:
S = 0
S = S + 1
S = S + 2
S = S + 3


.....
S = S + 100
Việc tính S được lặp đi lặp lại 100 lần theo quy luật
Ssau = Strước+ i
với i tăng lần lượt từ 1 đến100
. . . . . . . . . . . . . . . . . . . .
4. Tính tổng và tích bằng câu lệnh lặp.
Diễn tả thuật toán
B1: Bắt đầu
B3: Nếu i > 100 thì kết thúc
B4 : S:= S + i
i := i +1 quay lại B3.
Program tinhtong;
Uses crt;
Var S,i : Integer;
Begin
S:=0;
For i:=1 to 100 do S:=S +i;
Writeln(`Tong S=`,S);
Readln;
End.
Chương trình
B2: S:=0; i:=1;
Uses crt;
Var i,N : Integer; S : real;
BEGIN
Readln;
END.
S:=0;
FOR i:=1 to N do S := S+1/i;
Writeln(‘ Tong S =’,S:8:3);
Write(‘ Nhap vao gia tri cua N :’);readln(N);
Program Tinh_tong2;
Dựa vào đề bài hãy xác định:
Giá trị khởi tạo của S
Giá trị đầu, cuối của biến đếm i
Câu lệnh sẽ được lặp
S:=0;
For i:=1 to N do
S:= S + 1/i;
Lập chương trình tính tổng sau:
Ví dụ 2:
1! = 1
2! = 1 . 2
3! = 1 . 2 . 3
4! = 1. 2 . 3 . 4
Ví dụ 3: Tính N ! (Tích N số tự nhiên đầu tiên)
GT = 1
GT = GT . 2
GT = GT . 3
GT = GT . 4
Hãy xác định:
Giá trị khởi tạo của GT
Giá trị đầu, cuối của biến đếm i
Câu lệnh sẽ được lặp
GT:=1;
For i:=1 to N do
GT:= GT*i;
Em hãy khai báo biến cho bài toán trên?
Em hãy viết câu lệnh nhập vào N?
Begin
Clrscr;
Write(`Nhap N= `); Readln(N);
Khởi tạo GT bằng bao nhiêu?
GT:=1;
Hãy viết câu lệnh lặp với các giá trị của biến đếm và câu lệnh được lặp.
For i:=1 to N do GT:=GT*i;
In ra kết quả?
Writeln(`Tich cua N so tu nhien =`,GT);
Readln;
End.

N: integer ;
GT: longint ;
Mô phỏng chương trình bằng Pascal
Câu lệnh lặp
Cú pháp
Giải thích
Tính tổng và tích bằng câu lệnh lặp
Tính tổng
Tính tích
BÀI TẬP VỀ NHÀ
Làm bài tập 1, 2, 3, 4, 5 trong sách giáo khoa trang 61
Good bye
Chúc các em học tốt