*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.

*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.

[ HỌC PYTHON]

for < tên biến > in range (bắt đầu, kết thúc ):     

        < Dãy các lệnh> 

vd : Tính tổng các số từ 1 đến n. Với n là số nguyên được nhập từ bàn phím.