While do:

- Cú pháp:

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

- Cách thực hiện: 

   + Kiểm tra điều kiện

   + Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện

   + Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp

Hằng là đại lượng có giá trị không thay đổi trong suốt quá trình thực hiện chương trình. Tên_hằng = giá_trị; trong đó Tên_hằng là tự đặt, theo đúng quy tắc của một tên, còn giá_trị có thể là một hằng hoặc một biểu thức mà các toán hạng đều là hằng.

. KHAI BÁO HẰNG

- Hằng là một đại lượng có giá trị không thay đổi trong suốt chương trình.

- Cú pháp:

CONST < Tên hằng > = < Giá trị >;

hoặc:

CONST < Tên hằng >: = < Biểu thức hằng >;

*cú pháp For:

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

- Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối - giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.

Vd:

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n do tu nhien dau tien la:',s);

readln

end.

*cú pháp For:

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

- Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối - giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.

Vd:

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n do tu nhien dau tien la:',s);

readln

end.