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; End. Program sochan2; uses ctr; const N=1000; var i: integer; Begin clrscr; writeln(CAC SO CHAN LA:); for i:=N downto 1 do If (i mod 2=0) then writeln(i:4); readln; end. Chú ý: + Nếu <lệnh> nhiều hơn một lệnh phải đặt trong khối begin . . . end; + Biến, biểu_thức, biểu_thức2 chỉ đợc phép là kiểu kí tự, kiểu nguyên và phải cùng kiểu dữ liệu. + Trong dạng lùi Biểu_thức1> Biểu_thức2, trong dạng tiến Biểu_thức2> Biểu_thức1. b) Câu lệnh repeat Cú pháp: Sơ đồ khối: Repeat Lệnh1; Lệnh2; . LệnhN; UNTIL<Biểu_thức_Logic>; VÝ dô: T×m USCLN cña 2 sè nguyªn a,b. Program ct9; 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