Máy tính thực hiện 10 vòng lặp. Khi kết thúc giá trị của S=5

program CT;

uses crt;

var i, n : integer;

x, S : real;

begin

clrscr;

S:=0; x:=0.5;

while S>5.2 do S:=S-x;

Write('Gia tri S la: ',S:2:3);

readln

end

- Giá trị ban đầu S = 10, x = 2

+ S < 5 ⇒ 10 < 5 ⇒ Sai ⇒ Vòng lặp 1 ⇒ S = 10 - 2 = 8

+ S < 5 ⇒   8 < 5 ⇒ Sai ⇒ Vòng lặp 2 ⇒ S =   8 - 2 = 6 

+ S < 5 ⇒   6 < 5 ⇒ Sai ⇒ Vòng lặp 3 ⇒ S =   6 - 2 = 4

+ S < 5 ⇒   4 < 5 ⇒ Đúng ⇒ Thông báo S, kết thúc

- Máy tính thực hiện 3 vòng lặp

- Khi kết thúc S = 4

- Viết chương trình :

uses crt;

var S, x : integer;

begin

clrscr;

S := 10; x := 2;

while S >= 5 do S := S - x;

write('S = ', S);

readln

end.