Vong lap xac dinh



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;
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 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:



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.