PASCAL/Vòng lặp/While ... Do

Cú pháp[edit]

WHILE <điều kiện> DO <câu lệnh>;

Trong đó:

<điều kiện> là biểu thức logic.

<câu lệnh> là một câu lệnh đơn hoặc ghép.

Khi <điều kiện> đúng, While...do sẽ thực hiện <câu lệnh> cho đến khi <điều kiện> sai. phải|While-do

Thí dụ[edit]

Đếm số

i := 0;
While (i<10) Do
 Begin 
  i := i + 1;
  write(i,' ');
 End;

1 2 3 4 5 6 7 8 9

Chuẩn hoá xâu

s:='   Wikibooks Tu    sach mo    cho    mot the gioi     mo     ';
While (s[1]=#' ') do delete(s,1,1);
While (s[length(s)]=' ') do delete(s,length(s),1);
while (pos('  ',s)<>0) do delete(s,pos('  ',s),1);
writeln('Xâu chuẩn hoá: ',s);

Xâu chuẩn hoá: Wikibooks Tu sach mo cho mot the gioi mo