BÀI TẬP SỬ DỤNG LỆNH LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
(LỆNH LẶP WHILE…DO, REPEAT…UNTIL)

Bài 1: Tính tổng S = 1+2+…+n, Với n được nhập vào từ bàn phím (sử dụng câu lệnh for và câu lệnh while (2 cách))
Giải:
• Cách 1: sử dụng câu lệnh for
Program tong;
uses crt;
var n,i,s:integer;
Begin
  Clrscr;
  write('nhap so :'); readln(n);
  S:=0; {tong ban dau = 0}
  for i:=1 to n do S:=S+i;
  Write('Tong cua 1+2+3+=',S);
readln;
End.

• Cách 1: sử dụng câu lệnh While
• Program tong;
• uses crt;
• var n,i,s:integer;
• Begin
•   Clrscr;
•   write('nhap so :');readln(n);
•   i:=1;
•   S:=0;
•   While i<=n Do
•     begin
•       S:=S+i;
•       i:=i+2;
•     end;
•   Write('Tong cua 1+3+5+=',S);
• readln;
• End.
Bài 2: Lập trình tính tổng: A = 1 + 1/2 + 1/3 + … + 1/n, ở đây n là số tự nhiên được nhập vào từ bàn phím .
Bài 3: Tìm số nguyên n lớn nhất để tổng S = 1/1 + ½ + … + 1/n nhỏ hơn 10.
Bài 4: Tính hàm lũy thừa an, ở đây a thực và n tự nhiên được nhập vào từ bàn phím . (so sánh với lệnh for)
Bài 5: Bạn có 1000 đ đem gửi ngân hàng với lãi suất 8% /tháng. Sau mỗi tháng tiền lãi được nhập vào vốn để tính lãi suất tháng sau . Bạn muốn để dành cho đến khi số tiền tăng lên là x . Vậy phải để trong bao lâu. (lưu ý x có thể <=1000đ).
Bài 6: Viết chương trình tìm ƯCLN và BCNN của 2 số tự nhiên a và b được nhập vào từ bàn phím. Cho biết a và b có phải là 2 số nguyên tố cùng nhau không?
Bài 7: Nhập số nguyên n. Cho biết n có pahir là số nguyên tố hay không. (xem bài 2/69 sgk)
Bài 8: Tại một buổi tiệc có một số người tham dự, mỗi người đều bỏ vào thùng một phong bì với một số tiền nào đó. Viết CT nhập lần lượt số tiền bỏ vào của từng người cho đến khi tổng số tiền thu được ít nhất là 2.000.000 đồng thì dừng và cho biết:
• Đã lấy tiền của bao nhiêu người?
• Có bao nhiêu người bỏ vào thùng từ 200.000 đồng trở lên?
• Số tiền bình quân của những người đã bỏ vào là bao nhiêu?