Tin Học www.themegallery.com Bài Lặp với số lần chưa biết trước GV TRẦM THANH ViỆT Trường THCS Tân Hiệp KIỂM TRA BÀI CŨ Câu 1: Hãy ghi cú pháp câu lệnh lặp For…do ? For := to ; www.themegallery.com Câu 2: Hãy viết chương tình tính tổng số ? Var i, Tong: integer; Begin Tong:=0; For i: = to Tong:= Tong + i; Write(‘Tong= ’,Tong); Readln; End Bài 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: Ví dụ 1: www.themegallery.com Ví dụ 2: Nếu cộng n số tự nhiên (n=1,2,3, …), ta kết tăng dần T1=1, T2=1+2,…tăng dần Cần cộng số tự nhiên để ta nhận tổng Tn nhỏ lớn 1000 ? Bước 1: S  0, n= Bước 2: Nếu S ≤ 1000, n  n + 1; ngược lại, chuyển tới bước Bước 3: S  S + n quay lại bước Bước 4: In kết quả: S n số tự nhiên nhỏ cho S > 1000 Kết thúc thuật toán Bài Lặp với số lần chưa biết trước Ví dụ lệnh lặp với số lần chưa biết trước: While ; www.themegallery.com Hãy nêu cấu trúc câu lệnh lặp với số lần chưa  Trong đó: biết trước ? - Điều kiện thường phép so sánh; - câu lệnh câu lệnh đơn giản hay câu lệnh ghép Câu lệnh lặp thực hiệnĐiều kiện Sai ? ? Đúng Câu lệnh Kết thúc Bài Lặp với số lần chưa biết trước Ví dụ lệnh lặp với số lần chưa biết trước: www.themegallery.com Ví dụ 3: Với giá trị n để 1/n < 0.003 ? Viết chương Trình tính số n nhỏ để 1/n nhỏ sai số cho trước Uses crt; Var x:Real; n:Integer; Const Si_So=0.003; Begin Clrscr; x:=1; n:=1; While x >= Sai_So 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 Lặp với số lần chưa biết trước Ví dụ lệnh lặp với số lần chưa biết trước: www.themegallery.com Ví dụ 4: Viết chương tình tính tổng n số ví dụ Var S,n:Integer; Begin S:=0; n:=1; While S 1000 la ‘,n); Writeln(‘Tong dau tien lon hon n la ‘,S); Readln; End Bài Lặp với số lần chưa biết trước Ví dụ 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 www.themegallery.com T:=0; For i:=1 to 100 T:=T+1/i; Writeln(T); For…do T:=0; i:=1; While i