Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao
nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể
hiện các thuật toán đó!
a) Thuật toán 1
Bước 1. S
Bước 2. Nếu S 5.2, chuyển tới bớc 4.
Bước 3. S
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2
Bước 1. S 10, n  0.
Bước 2. Nếu S 10, chuyển tới bớc 4.
Bước 3. n n + 3, S = S-n quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
Lời giải : 
 a. Thuật toán 1 :
Máy tính sẽ thực hiện 10 vòng lặp, khi kết thúc thuật toán giá trị của S = 5.0
   Đoạn chương trình Pascal tương ứng:
   S := 10;  x := 0.5;
   While S > 5.2 do
                       S := S – x;
   Writeln(S);
b. Thuật toán 2 :
Máy tính sẽ không thực hiện vòng lặp nào do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10
Đoạn chương trình Pascal tương ứng:
S := 10;  n := 0;
   While S < 10 do
                 Begin
                       n := n + 3;
                       S := S – n
                   End;                     
   Writeln(S);