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

TIẾT 41 :
BÀI TẬP CÂU LỆNH LẶP
TIN HỌC 8
KIỂM TRA BÀI CŨ
Hãy viết cú pháp câu lệnh lặp với số lần biết trước.
Biến đếm: là biến kiểu nguyên
Giá trị đầu, giá trị cuối là những giá trị nguyên.
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối.
For := to do ;
Ví dụ S:=1;
FOR i:=2 TO 100 DO S:=S+1/i;
Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp, số vòng lặp là biết trước và bằng
giá trị cuối– giá trị đầu + 1
BÀI TẬP VỀ CÂU LỆNH LẶP
Cú pháp câu lệnh lặp
Khi thực hiện vòng lặp, ban đầu biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp thì biến đếm tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối
Quan sát sơ đồ khối, hãy cho biết sự thực hiện của máy?
Bước 1: tính giá trị đầu gán cho biến đếm.
Bước 2: Nếu biến đếm <= giá trị cuối thì:
thực hiện lệnh cần lặp.
tăng biến đếm 1 đơn vị, quay lại bước 2
CẤU TRÚC DẠNG LẶP LÙI
Biến đếm: biến kiểu nguyên, kí tự
Giá trị đầu, giá trị cuối là biểu thức cùng kiểu với biến đếm.
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối.
for := downto do ;
Ví dụ
S:=1;
FOR i:=100 DOWNTO 2 DO S:=S+1/i;
TÍNH TỔNG BẰNG CÂU LỆNH LẶP
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
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 cua S = ’,N,’ So tu nhien dau tien S = ‘,S);
Readln
end.
TÍNH TỔNG BẰNG CÂU LỆNH LẶP
Viết chương trình tính tổng
S=1+2+3+4+5
Program Tinh_tong;
Uses crt;
Var i: integer;
S: longint;
Begin
S:=0;
For i:= 1 to 5 do S:= S + i;
Writeln (‘Tong cua S = ’,s);
Readln
end.
TÍNH TÍCH BẰNG CÂU LỆNH LẶP
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 vào từ bàn
phím.
Program Tính_Giai_thua;
Uses crt;
Var i, N: integer;
P: longint;
Begin
write (‘Nhap N = ‘); readln (N);
P:= 1;
For i:= 1 to N do P:= P*i;
Writeln (N,’! = ’,P);
Readln
end.


Bài 1 (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
. Bài tập
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 i: real; For i:= 1 to 10 do writeln(‘A’);
Bài 2. Hãy chỉ ra lỗi trong các câu lệnh sau đây:
. Bài tập
a, For i:= 1 to 100 do writeln(‘A’);
b, For i:= 1 to 10 do writeln(‘A’);
c, For i:= 1 to 10 do writeln(‘A’);
d, For i:= 1 to 10 do writeln(‘A’);
e, Var i: integer;; For i:= 1 to 10 do writeln(‘A’);
Sửa lại đúng là:
. Bài tập
Bài 3. Sau khi thực hiện đoạn chương trình sau thì giá trị của biến i, j bằng bao nhiêu?
A) i:= -1; j:=20;
For k:=1 to 5 do Begin
i:=i+1;
j:=j+i;
End;
B) i:= -1; j:=20;
For k:=1 to 5 do
If k mod 2 =0 then i:=i+1;
j:=j+i;
Bài 4. Tính tổng các số tự nhiên từ n đến m (n<=m).
Sử dụng cấu trúc: ___________________
Giá trị đầu: _____ -Giá trị cuối: ______
Câu lệnh: __________________________
For .. do
n
m
S := S + i;
. 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 nhập vào từ bàn phím
Program tinh_tong;
Uses crt;
Var m, n, i: integer;
S: longint;
Begin
write (‘Nhap n = ‘); readln ( n);
write (‘Nhap m=‘); readln ( m);
S:=0;
For i:= n to m do S:= S + i;
Writeln (‘Tong cua S = ’,s); Readln
end.
BÀI TẬP
Lập trình giải bài toán sau:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Hỏi có bao nhiêu con mỗi loại?
Gợi ý: Đây là bài toán giải phương trình: x.4+(36-x).2=100, trong đó x là số chó và 36-x là số gà.
Chương trình
Program baigiai;
Var x:integer;
Begin
For x:=1 to 36 do
Begin
If 4*x+(36-x)*2=100 then
writeln (‘so cho la’,x,’so ga la’,36-x);
End;
Readln;
End.
Dặn dò
Về nhà làm lại các bài tập trong sách giáo khoa.
Chạy thử chương trình tính tổng của N số tự nhiên đầu tiên.
Chạy thử chương tình tìm số gà và số chó ở trên
Thực hiện tháng 01 năm 2015
Bài học đã
KẾT THÚC
Thân ái chào các em