  GV: Dương Quang Tùng    !"#$! %&   Var I, s: Integer; Var I, s: Integer; Begin Begin S:=0; S:=0; For i:=1 to 100 do s:=s+I; For i:=1 to 100 do s:=s+I; Writeln(‘ Tong cac so tu 1 den 100 = ‘, s); Writeln(‘ Tong cac so tu 1 den 100 = ‘, s); Readln; Readln; End. End. Nhắc lại câu lệnh lặp với số lần biết trước Nhắc lại câu lệnh lặp với số lần biết trước ' <biến đếm> : = <giá trị đầu>  <giá trị cuối>  Câu lệnh trong vòng lặp ; Phải thuộc kiểu dữ liệu đếm được ( không là số thực ) Giá trị đầu < Giá trị cuối Từ khoá Câu lệnh trong vòng lặp có thể là lệnh đơn hay lệnh ghép  Một ngày chủ nhật, bạn 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.   Một ngày khác, Long quyết định cứ 10 phút gọi điện một lần cho Trang cho đến khi nào có người nhấc máy. Lần này Long sẽ lặp lại hoạt động gọi điện mấy lần? Chưa thể biết trước được, có thể một lần, có thể hai hoặc nhiều hơn nữa. Điều kiện để kết thúc hoạt động lặp đó là:   !"#$% &'( Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng: )*+<điều kiện> ,-<câu lệnh>. Trong đó: Điều kiện thường là một 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 Câu lệnh lặp này được thực hiện như sau: Bước 1 : Kiểm tra điều kiện. Bước 2 : Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1. Chúng ta biết rằng, nếu n càng lớn thì 1/n càng nhỏ, nhưng luôn luôn lớn hơn 0. Vậy với giá trị nào của n thì 1/n < 0.005 hoặc 1/n < 0.003? /012+0*.2++. /012+0*.2++. -03-4%. -03-4%. 5+ 5+ 124.24. 124.24. 6*+17403-,- 6*+17403-,-   8+ 8+   24. 24.   1249. 1249.   +,. +,. 6+*:;&--0,+9<=>03-2?2@>;*0;>A. 6+*:;&--0,+9<=>03-2?2@>;*0;>A. B+0,*. B+0,*. C,% C,% Chương trình dưới đây tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước Chương trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước Chương trình Pascal sau đây thể hiện thuật toán tính số n trong ví dụ 2: /0&>2++. /0&>2++. 8+ 8+ &24.24. &24.24. 6*+&<4,- 6*+&<4,- 8+ 8+ 24. 24. &24&. &24&. +,. +,. 6+*:;&--0,+-7*0;>A. 6+*:;&--0,+-7*0;>A. 6+*:;D-,0+7*0;>&A. 6+*:;D-,0+7*0;>&A. +,% +,% () * +, - . / 0 12 - 3: Nếu cộng lần lượt n số tự nhiên đầu tiên (n = 1, 2, 3, .), ta sẽ được các kết quả T1 =1, T2 =1 + 2, T3 =1 + 2 + 3, . 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? /0D>2++. /0D>2++. 8+ 8+ D24. D24. E-24-,-D24D9. E-24-,-D24D9. 6+*:DA. 6+*:DA. +,% +,% Hãy sử dụng lệnh lặp với số lần lặp biết trước E-,- để viết chương trình tính tổng Viết chương trình tính tổng Nếu sử dụng lệnh lặp 6*+,-, đoạn chương trình dưới đây cũng cho cùng một kết quả: Viết chương trình tính tổng /0D>2++. /0D>2++. 8+ 8+ D24.24. D24.24. 6*+<4,- 6*+<4,-   8+ 8+   D24D9.24. D24D9.24.   +,. +,. 6+*:DA. 6+*:DA. +,% +,% FG1H : Qua ví dụ này cho thấy rằng chúng ta có thể sử dụng câu lệnh 6*+,- thay cho câu lệnh E-,-. [...]... còn có các câu lệnh lặp với số lần chưa biết trước - While do là câu lệnh lặp với số lần chưa biết trước trong Pascal Nếu S=10, i=0 Sau khi thực hiện câu lệnh While S>5 do begin i:=i+1; S:=S-i end; writeln(S); Thì giá trị của S là: A 4 C 10 B 5 D 6 BAÏN SAI ROÀI! 0:10 00 01 05 08 09 07 02 03 04 06 Nếu S=0,i=1 Sau khi thực hiện câu lệnh While i . /0&>2++. /0&>2++. 8+  8+  &24.24. &24.24. 6*+&<4,- 6*+&<4,- 8+  8+  24. 24. &24&.. /0D>2++. /0D>2++. 8+  8+  D24.24. D24.24. 6*+<4,- 6*+<4,-   8+  8+    D24D9.24.