- Ví dụ 4 trang 65 :

+ Sử dụng lệnh lặp với số lần biết trước tính for ... do

uses crt;

var i : byte; T : real;

begin

clrscr;

T := 0;

for i := 1 to 100 do T := T + 1 / i;

writeln('T = ', T : 2 : 3);

readln

end.

+ Sử dụng lệnh lặp while ... do

uses crt;

var i : byte; T : real;

begin

clrscr;

T := 0; i := 1;

while i <= 100 do begin T := T + 1 / i; i := i + 1; end;

writeln('T = ', T : 2 : 3);

readln

end.

While a>b do

       Begin

                 write('a>b')

                 a:=a-1;

        End;

`-` Trong đó : 

   `+` While là do các từ khóa

   `+` Điều kiện là a>b ( có chứa phép so sánh)

   `+` Câu lệnh là write('a>b') và a:=a-1 ( câu lệnh ghép )

$#Zen$