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

 BÀI 8: 
LỆNH LẶP VỚI SỐ LẦN 
 CHƯA BIẾT TRƯỚC
 1 2. Ví dụ về lệnh lặp với số lần chưa xác định
 Bài toán 1: Tính tổng S = 1+ 2+ 3+ 4+... + N
 Để tính tổng trên máy tính thực hiện cộng n số từ 1 đến N vào tổng S
 Lặp với số lần biết trước là n lần
 Bài toán 2: Tính tổng cho đến khi S>1000. Cho biết số N nhỏ 
 nhất
 S = 1+ 2+ 3+ 4+... + N
 Để tính tổng trên máy tính thực hiện cộng các số từ 1 đến N vào tổng 
 S đến khi nào S>1000 thì dừng
 Lặp với số lần chưa biết trước Ví dụ: 
Tính tổng cho đến khi S>1000. Cho biết số N nhỏ nhất
 S = 1+ 2+ 3+ 4+... + N
 Thuật toán Chương trình 
 chính
 B1: S:=0; N:=0; S:=0; N:=0;
 B2: Nếu S<= 1000 thì thực WHILE S<=1000 DO
 hiện tăng N thêm 1 đơn vị,
 Begin 
 ngược lại chuyển tới B4
 N:=N+1;
 B3: Cộng N vào S => sang B2 S:=S+N;
 END; 
 B4: In kết quả: N là số tự 
 nhiên nhỏ nhất sao cho Writeln(‘Số N nhỏ nhất để S>1000’, N)
 S>1000, Tổng S và kết thúc Writeln(‘Tổng đầu tiên >1000 là: ’, S); Ví dụ: Tính tổng
 1 1 1 1
 S = 1 + + + + ... +
 2 3 4 100
DÙNG LỆNH FOR ...DO DÙNG LỆNH WHIE...DO
 S:=0; S:=0; i:=1;
 For i:=1 to 100 do S:=S + 1/i; While i<=100 do 
 Begin 
 Writeln(‘ S = ’, S:7:2); S:=S + 1/i;
 i:=i+1;
 End;
 Writeln(‘ S = ’, S:7:2);
  Có thể sử dụng lệnh While ... do thay cho câu lệnh For...Do Ghi nhớ
• Ngoài cấu trúc lặp với số lần 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.
• While. . . do là câu lệnh lặp với số lần 
 chưa biết trước trong Pascal