CÂU LỆNH LẶP
BÀI 7
Em đánh răng 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 đầu biến đếm (I =1< 4) lệnh writeln được thực hiện  In ra màn hỡnh chữ O đầu tiên
 Biến đếm I tăng 1 đơn vị (I = 2< 4) lệnh writeln được thực hiện  In ra màn hỡnh chữ O thứ 2
 Tương tự cho đến khi i bằng giỏ trị cuối (I = 4) thỡ lệnh writeln đượ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