uses crt;

var i: integer;

begin

clrscr;

i:=0;

while i<=20 do

begin

i:=i+1;

writeln('Xin chao cac ban');

end;

readln;

end.

Ở bài trước, chúng ta đã làm quen với vòng lặp for với những tiện ích cho chúng ta việc lặp đi lặp lại nhiều lần. Bài này chúng ta tiếp tục tìm hiểu 2 loại vòng lặp khác có chức năng tương tự vòng lặp for nhưng cách dùng có khác một chút là vòng lặp while và do…while.

Các bạn có để ý đến các trang web mà chúng ta cần đăng nhập? Đơn giản như facebook hoặc google. Nếu các bạn viết sai username hoặc password thì sẽ không thể đăng nhập được dù cho bạn nhập bao nhiêu lần đi nữa. Cứ sai là họ bắt chúng ta nhập lại. Rõ ràng ở vòng for chúng ta thường nhìn thấy vòng for lặp một số lần cụ thể như từ 1 đến n,… Nhưng việc đăng nhập thì không biết bao nhiêu lần mới được mà chỉ có là đúng thì mới kết thúc. Đó là cách hoạt động của vòng lặp while và do…while.