slide bài giảng câu lệnh lặp

1


2


Tiết 40

BÀI 7: CÂU LỆNH LẶP

3. Ví dụ về câu lệnh lặp:
a/ Cú pháp:
b/
Trong
Câu
lệnhđó:
lặp với số lần biết trước trong Ngôn ngữ lập
- For,
To, Do
là: . . . . . .
trình
Pascal
có dạng?
- Biến đếm: . . .
- Giá trị đầu, giá trị cuối: . . .
- Câu lệnh . . .
c/ Hoạt động của câu lệnh:
d/ Lưu ý:

3

Tiết 40

BÀI 7: CÂU LỆNH LẶP

i lặp: Kết quả viết ra màn hình
3.Lần
Ví lặp
dụ thứ
về câu lệnh
1
1 sẽ
lan thứ
lap
1 lặp:
Ví
trình
màn
tự
Ví dụ
dụ 3:
3: Chương
Chương
trình sau
sau
sẽ in
in ra
ra Day
mànlahình
hình

thứthu
tự lần
lần
lặp:
2
2
Day la lan lap thu 2
day la lan lap thu 1
Program 3lap;
3
Day la lan day
laplathu
lan 3lap thu 2
day la lan lap thu 3
Uses crt;
4
4
Day la lan day
laplathu
lan 4lap thu 4
Var i: integer;
day la lan lap thu 5
5
5
Day
la
lan
lap
thu
5

Begin
day la lan lap thu 6
lan 6lap thu 7
6 1 to 10 do 6
Day la lan day
laplathu
For i:=
day la lan lap thu 8
Writeln
(‘day la lan
i ); la lan day
7
7 lap thu ’,Day
laplathu
lan 7lap thu 9
day la lan lap thu 10
Readln;
8
8
Day la lan lap thu 8
end.
9 màn
la lan
Theo em9dự đoán
Số lần
thì trên
lặp=
?10-1+1=10(lần)
hìnhDay
sẽ hiển

thịlap
lênthu
kết9 4
10 khi chạy chương
Day la lan
lap thu 10
quả10
như thế nào sau
trình?


Tiết 40

BÀI 7: CÂU LỆNH LẶP

3. Ví dụ về câu lệnh lặp:
Áp dụng:
Hãy viết chương trình in ra màn hình các số từ 1 đến 10
Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 10 do
Writeln (‘day la lan lap thu ’, i );
Readln;
end.

day la lan1 lap thu 1
day la lan2 lap thu 2
day la lan3 lap thu 3

day la lan4 lap thu 4
day la lan5 lap thu 5
day la lan6 lap thu 6
day la lan7 lap thu 7
day la lan8 lap thu 8
day la lan9 lap thu 9
day la lan10lap thu 10
5


Tiết 40

BÀI 7: CÂU LỆNH LẶP

3. Ví dụ về câu lệnh lặp:
Áp dụng:
Hãy viết chương trình in ra màn hình các số từ 1 đến 10
Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 10 do
Writeln ( i );
Readln;
end.

1
2
3
4

5
6
7
8
9
10
6


Tiết 40

BÀI 7: CÂU LỆNH LẶP

3. Ví dụ về câu lệnh lặp:
Để in một chữ “O” trên màn hình ta sử dụng lệnh nào?
Để in nhiều chữ “O” trên màn hình ta làm như thế nào?

For i:= 1 to 20 do Writeln (‘O’);

7


Tiết 40

BÀI 7: CÂU LỆNH LẶP

3. Ví dụ về câu lệnh lặp:
Ví dụ 4: Hiệu ứng trứng rơi

For i:= 1 to 20 do

Uses
crt;
begin
Var i: integer;
Writeln (‘O’);
Begin
delay(100)
For
i:= 1 to 20 do
begin
end;
Writeln (‘O’);
delay(100)
end;
Readln
end.

O
O
O
O
O
O
O
O
O
O
O
O
O

O
O
O
O
O
O
O

8


Bài 4 (SGK-61) Sau khi thực hiện đoạn
chương trình sau, giá trị j bằng bao nhiêu?
j:=0;
For i:=0 to 5 do j:=j+2;
Số lần lặp = 5 – 0 + 1 = 6 (Lần)
Sau mỗi vòng lặp giá trị j tăng thêm 2
Sau 6 vòng lặp giá trị j = 12
9


Nhận biết câu lệnh lặp
Bài 5 (SGK-61) Các câu lệnh Pascal sau đây
có hợp lệ hay không, vì sao?
a/ For i:=100 to 1 do writeln(‘A’);
b/ For i:=1.5 to 10.5 do writeln(‘A’);
c/ For i=1 to 10 do writeln(‘A’);
d/ For i:=1 to 10 do; writeln(‘A’);
e/ Var x:Real;
Begin

For x:=1 to 10 do writeln(‘A’);
10
End.


Tiết 40

BÀI 7: CÂU LỆNH LẶP

4. Tính tổng và tích bằng câu lệnh lặp:
Ví dụ 5: Tính tổng S = 1+2+3+…+N
Uses crt;
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 S= ‘, S);
Readln
end.

11


Tiết 40

BÀI 7: CÂU LỆNH LẶP

4. Tính tổng và tích bằng câu lệnh lặp:

Ví dụ 5: Tính tổng S = 1+2+3+…+N
Uses
crt;
Ví
dụ 6:
Tính Tích N! = 1*2*3*…*N
Var N, i: integer;
P: longint;
Begin
Write(‘nhap so N=‘); readln(N);
P:=1;
For i:= 1 to N do p:=p*i;
Writeln (N ,’ != ’, p);
Readln
end.
12


Tiết 40

BÀI 7: CÂU LỆNH LẶP

4. Tính tổng và tích bằng câu lệnh lặp:
Ví dụ 5: Tính tổng S = 1+2+3+…+N

Ví dụ 6: Tính Tích N! = 1*2*3*…*N

Program Tinh_tong;
Uses crt;
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 S= ‘, S);
Readln
end.

Program Tinh_Giai_thua;
Uses crt;
Var N, i: integer;
P: longint;
Begin
Write(‘nhap so N=‘); readln(N);
P:=1;
For i:= 1 to N do p:=p*i;
Writeln (N ,’ != ’, p);
Readln
end.

13


Bài tập nhóm
Sau khi thực hiện đoạn chương trình sau giá
trị của A, B bằng bao nhiêu:
Câu 1

A:=0; B:=1;

For i:=1 to 5 do A:=A+1; B:=B+1

Câu 2

A:=0; B:=1;
For i:=1 to 5 do
Begin A:=A+1; B:=B+1; End;

Nhóm 1,2,3

Nhóm 4,5,6

1 phút
2
3
Hết
Thời
thờigian
gian 60
03
02
06
05
20
23
22
26
25
30
33

32
36
35
50
53
52
56
55
00
01
04
10
09
08
07
19
18
17
16
15
14
13
12
21
24
29
28
27
31
34

49
48
47
46
45
44
43
42
41
40
39
38
37
51
54
59
58
57
11

14


Ghi nhớ
1. Cấu trúc lặp được sử dụng để chỉ
thị cho máy tính thực hiện lặp lại một
vài hoạt động nào đó cho đến khi
một điều kiện nào đó được thoả mãn.
2. Mọi ngôn ngữ lập trình đều có các
câu lệnh lặp để thể hiện cấu trúc lặp.

3. Ngôn ngữ Pascal thể hiện cấu trúc
lặp với số lần lặp cho trước bằng câu
lệnh For … do
15


Củng cố

16


- Học bài cũ
- Làm các bài tập còn lại trong phần câu hỏi và
bài tập trang 60,61(sgk)
- Xem trước: Bài thực hành số 5

17