Bài thực hành 6. Sử dụng lệnh lặp While…..Do

Câu lệnh lặp với số lần lặp lại chưa biết trước
1)While (điều kiện) do lệnh
Điều kiện sẽ được kiểm tra trước khi thực hiện các lệnh trong vòng lặp. Do đó nếu ngay từ đầu điều kiện sai thì các lệnh trong vòng lặp sẽ không được lặp lại
2) Repeat các lệnh … ; until (điều kiện)
Các lệnh cũng sẽ được lặp lại, nhưng các lệnh sẽ thực hiện trước rồi mới kiểm tra điều kiện sau, nếu điều kiện đúng thì các lệnh sẽ ngưng không lặp lại
Ví dụ chương trình nhập nhiều số cho đến khi nào nhập số 0 thì ngưng nhập, mỗi lần nhập đếm lần nhập thứ mấy
Dùng lệnh lặp repeat until
Dem:= 0 ;
Repeat
dem:= dem + 1;
write(‘nhap so thu= ‘, dem);readln(so);
Until so = 0;
Dùng lệnh lặp While do
dem:= 0,so := 1;
While so <> 0 do
begin
dem:= dem + 1;
write(‘nhap so thu ‘,dem);readln(so);
end;
Chương trình nhập câu hỏi, nếu trả lời không (nhấn chữ k) thì ngừng thực hiện chương
trình, nhấn phím khác thì tiếp tục thực hiện
chương trình
Var hoi : string ;
begin
Repeat
write(‘nhan phim k de ngung ’);
readln(hoi);
Until hoi =‘ k’ ;
BÀI TẬP
Viết chương trình nhập 3 số nguyên a,b, n.
Tính biểu thức S = an + … bn
VD a = 2
b = 4
n = 3
S = 23 + 33 + 43 = ?
Hướng dẫn
Nhắc lại:chương trình tính lủy thừa ab
For i:= 1 to b do lt:= lt *a
Lặp lại lệnh trên từ a đến b lần và cộng dồn tổng các luỷ thừa ta sẽ tính được biểu thức S