- Thuật toán có 10 vòng lặp, giá trị S = 5

- Chương trình Pascal :

Program      Bai_tap_1;

Uses            crt;     

Var              x, S : real   

BEGIN            

                   clrscr;

                   S := 10;

                   x := 0.5;

                   While S>5.2 do

                   begin

                               S := S-x;

                   end;

                   Write (S);

                    Readln;

END.

Cho mik ctlhn nhé!                

                           

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 ạ !!!