I.Cấu trúc lặp
a) Câu lệnh for: Thờng dùng khi biết trớc số lần lặp.
Cú pháp:
+ Dạng tiến

+ Dạng lùi
Sơ đồ khối:a,b
Ví dụ: Viết chơng trình in ra màn hình các số nguyên chẵn trong N số
tự nhiên đầu tiên.
Program ct7;
uses ctr;
Biến:=Bthức1
Biến<= Bthức2
Lệnh
Biến:=Biến+1
Biến:=Bthức1
Biến>= Bthức2
Lệnh;
Biến:=Biến-1
FOR Biến_đếm:=Biểu_thức1 TO Biểu_thức2 DO
<Lệnh>
FOR Biến_đếm:=Biểu_thức1 DOWNTO Biểu_thức2 DO
<Lệnh>
const N=1000;
var i: integer;
Begin
clrscr;
writeln(CAC SO CHAN LA:);
for i:=1 to N do
If (not odd(i)) then writeln(i:4);
readln;

uses ctr;
var
a,b: integer;
Begin
write(‘Nhap 2 so nguyen a,b:’);
readln(a,b);
repeat
If a>b then a:=a-b
Else b:=b-a;
Until a=b;
writeln(‘USCLN cña a va b la: ‘,a);
readln;
end.
LÖnh1;
LÖnh2;
……………..
LÖnhN;
Bthøc_Logic
B¾t ®Çu
NhËp a,b
a>b
a:=a-b
a=b
in USCLN la aKÕt thóc
b:=b-a