1) Cú pháp câu lệnh for
* Dạng tiến: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
* Dạng lùi: For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
Cách hoạt động
Bước 1: Biến điều khiển nhận giá trị đầu.
Bước 2: Nếu giá trị biến điều khiển nhỏ hơn giá trị cuối thì chuyển đến bước 4.
Bước 3: {khi giá trị biến điều khiển bằng giá trị cuối} thực hiện câu lệnh, sau đó dừng lặp, chuyển tới câu lệnh tiép theo vòng lặp.
Bước 4: Thực hiện câu lệnh phía sau do và tăng biến điều khiên tới giá trị tiếp theo.
2) Cú pháp câu lệnh while .. do
While <điều kiện> do <câu lệnh>;
Cách hoạt động: 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
3) uses crt;
Var N,i,S:integer;
begin
clrscr;
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln(S);
readln;
end.
4) PROGRAM bt1;
uses crt;
Var N,i,S:integer;
begin
clrscr;
readln(n);
for i:=1 to n do S:=S+i;
writeln(S);
readln;
end.
