*Cú pháp: While <điều kiện> do <câu lệnh>;

 Hoạt động :Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn 

Sơ đồ cụ thể bạn có thể thamkhao thêm

Cú pháp: while <điều kiện> do <câu lệnh>;

Giải thích:

While, do là các từ khóa

điều kiện thường là một phép so sánh

câu lệnh có thể là câu lệnh đơn hoặc câu lệnh kép

câu lệnh lặp số lần biết trước 

- chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được sắc định từ trước 

- điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên 

câu lệnh lặp với số lần chưa biết trước 

- chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước 

-điều kiện tổng quát hơn , có thể là kiểm tra 1 giá trị có thực ,cũng có thể là điều kiện tổng quát khác 

*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó

Cú pháp: While <điều kiện> do <câu lệnh>;

Trong đó:

While, do là các từ khóa

Điều kiện thường là một phép so sánh

Câu lệnh có thể là một câu lệnh đơn hoặc một câu lệnh ghép

TK:

Câu lệnh lặp với số lần biết trước :

– Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.

– Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

Câu lệnh lặp với số lần chưa biết trước :

– Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.

– Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

Refer:

*So sánh

-Giống nhau: Đều là câu lệnh lặp

Khác nhau:

+Câu lệnh lặp với số lần biết trước: Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước, điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

+Câu lệnh lặp với số lần chưa biết trước:

Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước, điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác

Tham khảo:

* Lặp tiến :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := 1 to n do P := P * i;

writeln(n,'! = ', P);

readln

end.

* Lặp lùi :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := n downto 1 do P := P * i;

writeln(n,'! = ', P);

readln

end.

while <điều kiện> do <câu lệnh>;

Ví dụ: 

a:=2; while a<=10 do a:=a+1;

x:=10; while x<>0 do x:=x+2;

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do t:=t+i;

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

đúng ko vậy:))