Bài 8. Lặp với số lần chưa biết trước

Trường THCS Hòa Hội
CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ GIỜ TIẾT HỌC
Năm học : 2008 - 2009
Bộ môn : Tin Học 8
Kiểm tra bài cũ
Em hãy điền chữ (Đ) vào câu đúng và (S) vào câu sai tương ứng với nội dung kiến thức em đã học:
A.Cú pháp của câu lệnh lặp For…Do là :
For:=todo;
B.Trong phần mềm Geogebra, để tìm trung điểm của đoạn thẳng AB ta làm : Chọn công cụ Điểm A Điểm B
C.Câu lệnh lặp For…Do là câu lệnh lặp với số lần chưa biết trước
D.Phần mềm Geogebra dùng để vẽ các hình hình học
E.Để dựng tam giác cân khi biết cạnh BC ta làm như sau:
Cạnh BC Dựng đường trung trực (d) của BC Dựng điểm A trên(d) Nối AB,AC
S
S
Đ
Đ
Đ
Tiết 49 – Bài 8

Lặp với số lần chưa biết trước
Các hoạt động lặp với số lần chưa biết trước
2.Ví dụ về lệnh lặp với số lần chưa biết trước
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động lặp với số lần chưa biết trước
Bài 8 - Lặp với số lần chưa biết trước
VD1:
*Ngày chủ nhật Long gọi điện cho Trang, không có ai nhấc máy, Long quyết định gọi thêm hai lần nữa, nếu vẫn không có ai nhấc máy thì chắc là không có ai ở nhà. Như vậy Long đã biết trước là mình sẽ lặp lại hoạt động gọi điện thêm hai lần nữa.
Đây là hoạt động lặp với số lần đã biết trước.
*Một ngày khác, Long quyết định cứ 10 phút gọi cho Trang một lần cho đến khi nào có người nhấc máy. Như vậy hoạt động gọi điện của Long sẽ lặp lại bao nhiêu lần và điều kiện kết thúc hoạt động này là gì?
Chưa thể biết được, có thể một lần, hai lần hoặc nhiều hơn nữa và điều kiện kết thúc hoạt động là có người nhấc máy.
Đây là hoạt động lặp với số lần chưa biết trước.
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
VD2:
Tính tổng n số tự nhiên đầu tiên. Vậy cần cộng bao nhiêu số tự nhiên đầu tiên để ta nhận được tổng Tn nhỏ nhất lớn hơn 1000? Vậy để quyết định thực hiện phép cộng với số tiếp theo hay không ta phải làm gì?
Ta phải kiểm tra tổng đã lớn hơn 1000 chưa.
Thuật toán:
Bước 1: s =0, n =0.
Bước 2: Nếu s <=1000, n n +1. Ngược lại chuyển đến bước 4.
Bước 3: s s + n và quay lại bước 2.
Bước 4: In kết quả s và n là số tự nhiên nhỏ nhất với s >1000. Kết thúc thuật toán.
* Việc thực hiện phép cộng ở thuật toán trên được lặp lại với số lần chưa biết trước, phụ thuộc vào điều kiện (s <=1000), dừng khi điều kiện đó sai.
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
* Lưu đồ
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
2. Ví dụ về lệnh lặp với số lần chưa biết trước (Ngôn ngữ lập trình Pascal)
VD1:
Nhập vào số nguyên dương n. Hãy tính tổng các số nguyên từ 1 đến n.
Input : Số nguyên dương n
Output: Tổng S từ 1 đến n
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
2. Ví dụ về lệnh lặp với số lần chưa biết trước (Ngôn ngữ lập trình Pascal)
*Viết chương trình:
Program tinhtong;
Var i, n, s: integer;
Begin
Writeln(‘Nhap vao so nguyen duong n=‘);
Readln(n);
i:=1; s:=0;
While (i<=n) do
Begin
s:=s+i;
i:=i+1;
end;
Writeln(Ket qua tong la:’,s);
Readln;
End.
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
2. Ví dụ về lệnh lặp với số lần chưa biết trước (Ngôn ngữ lập trình Pascal)
Cú pháp:
While <Điều kiện> Do ;
Trong đó:
+ While…Do là cặp từ khóa
+ <Điều kiện> trả về giá trị đúng hoặc sai
+ Là các câu lệnh nằm trong thân While

Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
2. Ví dụ về lệnh lặp với số lần chưa biết trước (Ngôn ngữ lập trình Pascal)
Cách thức hoạt động:
Câu lệnh While…Do được thực hiện theo 2 bước sau:
Bước 1: Xác định giá trị của <điều kiện>
Bước 2: Nếu <Điều kiện> trả về giá trị đúng thì được thực hiện và quay lại bước 1. Nếu <Điều kiện> trả về giá trị sai thì kết thúc câu lệnh While…Do
* Lưu ý:
Vì các câu lệnh là thân của vòng lặp While nên nếu là các câu lệnh phức thì phải đặt giữa cặp begin…end.
Bài 8 - Lặp với số lần chưa biết trước
1. Các hoạt động với số lần chưa biết trước
2. Ví dụ về lệnh lặp với số lần chưa biết trước (Ngôn ngữ lập trình Pascal)
VD2: Tìm n và tính tổng n số tự nhiên đầu tiên (n=1,2,3,…) sao cho tổng đó nhỏ nhất và lớn hơn 1000.
Thuật toán:
Bước 1: s =0, n =0.
Bước 2: Nếu s <=1000, n n +1. Ngược lại chuyển đến bước 4.
Bước 3: s s + n và quay lại bước 2.
Bước 4: In kết quả s và n là số tự nhiên nhỏ nhất với s >1000.
Kết thúc thuật toán.
Chương trình:
Program tinhtong;
Var s,n: integer;
Begin
s:=0; n:=0;
While s <= 1000 do
Begin n:=n+1; s:=s+n end;
Writeln(‘so n nho nhat de tong > 1000 la:’,n);
Writeln(‘Tong dau tien > 1000 la:’,s);
Readln;
End.
1
2
3
4
Chọn Câu hỏi
Cho chương trình sau:
Var i: byte;
Begin
i:=1;
While i < 10 do
Begin
If i mod 2 <>0 then
Writeln(i);
i:=i +1;
end;
Readln;
End.
Câu hỏi 1
Kết quả của chương trình bên là:
a. In ra các số lẻ từ 1 đến 10. Mỗi số nằm trên một dòng
b. In ra các số lẻ từ 1 đến 10 liên tục
c. In ra các số từ 1 đến 10. Mỗi số nằm trên một dòng
d. In ra các số chẵn từ 1 đến 10
Câu hỏi 2
Cho chương trình sau:
Var i,n,s: integer;
Begin
i:=1; s:=0;
While (i < =14) do
Begin
If (i mod 7 =0) then
s:=s + i;
i:=i +1;
end;
Writeln(‘Tong la:’,s);
Readln;
End.
Kết quả của chương trình bên là:
a. 14
b. 0
c. 21
d. Báo lỗi
Câu hỏi 3
Cho chương trình sau:
Var i,n,s: integer;
Begin
Writeln(‘nhap n=‘);
Readln(n);
i:=0; s:=0;
While (i < =n) do
Begin
s:=s + i;
i:=i +2;
end;
Writeln(‘Tong la:’,s);
Readln;
End.
Kết quả của chương trình bên là:
a. In ra tổng các số từ 1 đến n
b. In ra tổng các số chẵn từ 1 đến n
c. In ra tổng các số lẻ từ 1 đến n
d. Báo lỗi
Câu hỏi 4
Cú pháp câu lệnh lặp While…Do nào sau đây đúng:
a. While do<Điều kiện>;
b. Wihle<Điều kiện> do ;
c. While do <Điều kiện>
d. While <Điều kiện> do ;
Về nhà
Học bài
Chạy lại các chương trình ví dụ học trên lớp
Xem các ví dụ VD3, VD5 (Trang 68,69 Sgk)
Xem trước mục 3 và bài thực hành số 6.
Chân thành cảm ơn
và kính chúc các thầy cô mạnh khỏe ,
hạnh phúc , đạt nhiều thành tích trong công tác .