từ thuật toán viết được chương trình:

uses crt;

var s,x: real;

begin

clrscr;

s:=10;

x:=0.5;

repeat

s:=s-x;

until s<=5.2;

writeln (s:1:2);

readln;

end.

phân tích như sau:

vòng lặp 1: s:=s-x=10-0.5=9.5;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 2: s:=s-x=9.5-0.5=9;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 3: s:=s-x=9-0.5=8.5;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 4: s:=s-x=8.5-0.5=8;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 5: s:=s-x=8-0.5=7.5;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 6: s:=s-x=7.5-0.5=7;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 7: s:=s-x=7-0.5=6.5;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 8: s:=s-x=6.5-0.5=6;        điều kiện:  s<=5.2; chưa thỏa mãn

vòng lặp 9: s:=s-x=6-0.5=5;           điều kiện:  s<=5.2; thỏa mãn

vậy có 9 vòng lặp

#trumtinhoc

gửi bn ạ !!!

Máy thực hiện gồm 10 vòng lặp→

- Khi kết thúc vòng lặp giá trị của S=5→

- Chương trình :→

Program hotrotinhoc;→

var x,s:real;→

begin→

s:=10; x:=0.5;→

while s>=5.2 do s:=s-x;→

write(s:1:0);→

readln→

end