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

🔻 Giá trị S = 5 và X = 1

🔻 Mô phỏng quá trình chạy

- Giá trị ban đầu S = 13, X = 1

+ S = 13 > 5    ⇒ S = S - X = 13 - 1 = 12    ⇒ Lần lặp 1

+ S = 12 > 5    ⇒ S = S - X = 12 - 1 = 11    ⇒ Lần lặp 2

+ S = 11 > 5    ⇒ S = S - X = 11 - 1 = 10    ⇒ Lần lặp 3

+ S = 10 > 5    ⇒ S = S - X = 10 - 1 = 09    ⇒ Lần lặp 4

+ S = 09 > 5    ⇒ S = S - X = 09 - 1 = 08    ⇒ Lần lặp 5

+ S = 08 > 5    ⇒ S = S - X = 08 - 1 = 07    ⇒ Lần lặp 6

+ S = 07 > 5    ⇒ S = S - X = 07 - 1 = 06    ⇒ Lần lặp 7

+ S = 06 > 5    ⇒ S = S - X = 06 - 1 = 05    ⇒ Lần lặp 8

+ S = 05 > 5    ⇒ Sai ⇒ Kết thúc

🔻 Viết chương trình

uses crt;

var S, X : integer;

begin

clrscr;

S := 13; X := 1;

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

write('S = ', S);

readln

end.

◭ a.

lần 1: s=13>5 `->` điều kiện Đ `->` s=13-1=12

lần 2: s=12>5 `->` điều kiện Đ `->` s=13-1=11

lần 3: s=11>5 `->` điều kiện Đ `->` s=13-1=10

lần 4: s=10>5 `->` điều kiện Đ `->` s=13-1=9

lần 5: s=9>5 `->` điều kiện Đ `->` s=13-1=8

lần 6: s=8>5 `->` điều kiện Đ `->` s=13-1=7

lần 7: s=7>5 `->` điều kiện Đ `->` s=13-1=6

lần 8: s=6>5 `->` điều kiện Đ `->` s=13-1=5

`@` Lúc này S=5=5 `=>` điều kiện S `=>` dừng vòng lặp

`=>` lặp 8 lần; x=1; s=5

◭ b.

uses crt;

var s,x: integer;

begin

clrscr;

s:=13;

x:=1;

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

write('S=',s);

readln

end.