Bài giảng Tin học Lớp 8 - Tiết 49, Bài 8: Lặp với số lần chưa biết trước

 TIẾT 49 Bài 8
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:
 Ví dụ 1:
 Ví dụ 2: Nếu cộng lần lượt n số tự nhiên đầu tiên (n=1,2,3,
 ), ta sẽ được kết quả tăng dần T1=1, T2=1+2,tăng dần. 
 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 ?
 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ước4.
 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. Bài 8 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:
 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. Bài 8 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:
 Ví dụ 5: Viết chương tình tính tổng T=1+1/2+1/3++1/n,
 với n<=100
 T:=0; T:=0;
 For i:=1 to 100 do i:=1;
 T:=T+1/i; While i<= 100 do
 Writeln(T); Begin
 T:=T+1/i;
 Fordo i:=i+1;
 End;
 Writeln(T);
 Whiledo Bài 8 Lặp với số lần chưa biết trước
 GHI NHỚ:
 1. 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. Whiledo là câu lệnh lặp với số lần chưa biết trước trong
 pascal. DẶN DÒ
- 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 6.