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

Nhiệt liệt chào mừng các thầy
cô giáo đến dự giờ
PHÒNG GIÁO DỤC & ĐÀO TẠO TRẢNG BÀNG
TRƯỜNG THCS THỊ TRẤN
Trảng Bàng. Ngày 25 tháng 02 năm 2014
MÔN : TIN HỌC LỚP 8
KI?M TRA MI?NG
Câu 1: Hãy ghi cú pháp của câu lệnh lặp For…do ?
Câu 2: Hãy viết chương tình tính tổng của 5 số đầu tiên ?
For := to do ;
Var i, Tong: integer;
Begin
Tong:=0;
For i: = 1 to 5 do
Tong:= Tong + i;
Write(‘Tong= ’,Tong);
Readln;
End.
VD1: Viết chương trình tính tổng các số tự nhiên từ 1 đến 100
S = 1 + 2 + 3 + . . .+100
Lặp 99 lần
Hãy quan sát
VD2: Viết chương trình nhập vào các số cho đến khi gặp 0 thì dừng lại. Tính tổng các số vừa nhập.
Chua bi?t l?p m?y l?n
Lặp với số lần biết trước, sử dụng câu lệnh lặp For…Do để viết chương trình
Lặp với số lần chưa biết trước, sử dụng câu lệnh gì để viết chương trình?
LặP VớI Số LầN CHƯA BIếT TRƯớC
Tiết: 49 - 50
BÀI : 8
Tiết: 49-50
1. 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.
3. L?p vụ h?n l?n-L?i l?p trỡnh c?n trỏnh.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Tiết: 49-50
1. 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.
3. L?p vụ h?n l?n-L?i l?p trỡnh c?n trỏnh.
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
Các bạn học sinh nhặt rác ở
công viên.
Nam học từ vựng tiếng anh bằng cách
viết lại nhiều lần cho đến khi thuộc.
Con quạ nhặt đá bỏ vào bình cho
đến khi nước tràn ra.
Các em hãy cho thêm những ví dụ về hoạt động lặp với số lần chưa biết trước?
Ví Dụ 1:SGK/67
Xảy ra 2 tình huống:
* Tình huống 1: Long dã biết trước mình sẽ lặp lại hoạt động gọi điện thêm hai lần.

*Tình huống 2: Cứ 10 phút gọi điện một lần cho đến khi nào có người nhấc máy.
1. Các hoạt động lặp với số lần chưa biết trước
LặP VớI Số LầN CHƯA BIếT TRƯớC
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
Ví dụ 2: Nếu cộng n số tự nhiên đầu tiên
(n=1,2,3,4…), ta được các kết quả
T1 = 1
T2 = 1+2
T3 = 1+2+3
……………..
Cần cộng bao nhiêu lần số tự nhiên đầutiên để nhận
được Tn nhỏ nhất > 1000?
THUẬT TOÁN:
Kí hiệu S là tổng cần tìm, ta có thuật toán sau:
Bước 1: S ? 0; n? 0;
Bước 2: Nếu S<= 1000,
n? n+1;
ngược lại, chuyển tới 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 sao cho S > 1000. Kết thúc thuật toán;
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
Câu lệnh
Đúng
Sai
Kết thúc
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
Mô tả hoạt động lặp với số lần chưa biết trước
Tiết: 49-50
1. 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.
3. L?p vụ h?n l?n-L?i l?p trỡnh c?n trỏnh.
LặP VớI Số LầN CHƯA BIếT TRƯớC
While <điều kiện> do ;
 Trong đó:
Điều kiện thường là các phép so sánh;
câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.
2.Ví dụ về lệnh lặp với số lần chưa biết trước.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Cấu Trúc
Ví dụ 3: Với giá trị nào của n để 1/n < 0.003 ?. Viết chương
Trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước.
Uses crt;
Var x:Real;
n:Integer;
Const Sai_So=0.003;
Begin
Clrscr;
x:=1; n:=1;
While x >= Sai_So do
Begin
n:=n+1; x:=1/n;
End;
Writeln(‘So n nho nhat de 1/n < ‘,Sai_So:6:4, ‘ la ‘,n);
Readln;
End.
2.Ví dụ về lệnh lặp với số lần chưa biết trước.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Ví dụ 4: Viết chương tình tính tổng n số trong ví dụ 2
Var S,n:Integer;
Begin
S:=0; n:=1;
While S<=1000 do
Begin
S:=S+n; n:=n+1;
End;
Writeln(‘So n nho nhat de tong > 1000 la ‘,n);
Writeln(‘Tong dau tien lon hon n la ‘,S);
Readln;
End.
2.Ví dụ về lệnh lặp với số lần chưa biết trước.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Ví dụ 5: Viết chương tình tính tổng T=1+1/2+1/3+…+1/n
T:=0;
For i:=1 to 100 do
T:=T+1/i;
Writeln(T);
T:=0;
i:=1;
While i<= 100 do
Begin
T:=T+1/i;
i:=i+1;
End;
Writeln(T);
For…do
While…do
2.Ví dụ về lệnh lặp với số lần chưa biết trước.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Tiết: 49-50
1. 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.
3. L?p vụ h?n l?n-L?i l?p trỡnh c?n trỏnh.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Var a:Integer;
Begin
a:=5;
While a < 6 do
Writeln(‘A’);
End.
Var a:Integer;
Begin
a:=5;
While a < 6 do
Begin
Writeln(‘A’);
a:=a+1;
End;
End.
3. L?p vụ h?n l?n-L?i l?p trỡnh c?n trỏnh.
LặP VớI Số LầN CHƯA BIếT TRƯớC
GHI NHỚ:
Ngoài cấu trúc lặp với số lần lặp biết trước, các ngôn ngữ
lập trình còn có các câu lệnh lặp với số lần chưa biết trước.
2. While…do là câu lệnh lặp với số lần chưa biết trước trong
pascal.
LặP VớI Số LầN CHƯA BIếT TRƯớC
Câu 1: Hãy ghi cú pháp câu lệnh lặp với số lần chưa biết trước ? Cho ví dụ minh họa ?
Câu 2: Câu lệnh nào sau đây đúng ?
A. While x:=10 do x:=x+1;
B. While x=10 do x=x+1;
C. While x<=10 do x:=x+1;
D. Tất cả đều sai.
TỔNG KẾT
Về học bài này.
Tập trả lời các câu hỏi và bài tập trang 71 SGK.
Xem trước Bài thực hành 8
HƯỚNG DẪN HỌC TẬP
Thân ái chào các em !
Bài học kết thúc tại đây!