$#QLinkVN$
`-` Lần lặp `1`: `s=13` và `s>5` là đúng
`=>` `s=s-x=13-1=12`
`-` Lần lặp `2`: `s=12` và `s>5` là đúng
`=>` `s=s-x=12-1=11`
`-` Lần lặp `3`: `s=11` và `s>5` là đúng
`=>` `s=s-x=11-1=10`
`-` Lần lặp `4`: `s=10` và `s>5` là đúng
`=>` `s=s-x=10-1=9`
`-` Lần lặp `5`: `s=9` và `s>5` là đúng
`=>` `s=s-x=13-1=12`
`-` Lần lặp `6`: `s=8` và `s>5` là đúng
`=>` `s=s-x=8-1=7`
`-` Lần lặp `7`: `s=7` và `s>5` là đúng
`=>` `s=s-x=7-1=6`
`-` Lần lặp `8`: `s=6` và `s>5` là đúng
`=>` `s=s-x=6-1=5`
`-` Lần lặp `9`: `s=5` và `s>5` là sai
`=>` KẾT THÚC VÒNG LẶP
Sau khi kết thúc chương trình, số lần lặp là `9` lần, `s` mang giá trị là `5`

a. Thuật toán 1 :

Quảng cáo

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