1. B1: J<--0; J<--105 B2: Nếu T<20 chuyển qua B4 B3: J<-- J+5; T<-- T-1 B4: in ra kết quả T và J a. Hãy cho biết khi thực hiện thuật toán

0 bình luận về “1. B1: J<--0; J<--105 B2: Nếu T<20 chuyển qua B4 B3: J<-- J+5; T<-- T-1 B4: in ra kết quả T và J a. Hãy cho biết khi thực hiện thuật toán”

1. uses crt;

   var j,t:integer;

   begin

          clrscr;

          j:=0; T:=105;

          while T>=20 do

                 begin

                        j:=j+5;

                        t:=t-1;

                 end;

          writeln(‘T= ‘,t);

          writeln(‘j= ‘,j);

   readln;

   end.

   – T=19;

   – j=430;

   – Số vong lặp: 86

   Bình luận

2. 1.

   a) Vòng lặp sẽ không thực hiện 6 lần và j=30; t=0

   Lần 1: j=0+5=5; t=105-5=100;

   Lần 2: j=5+5=10; t=100-10=90;

   Lần 3: j=10+5=15; t=90-15=75;

   …

   Lần 6:  j:=25+5=30; t=30-30=0;

   b)

   uses crt;
   var t,j:longint; 
   begin
   clrscr;
      j:=0; t:=105;
      while t>=20 Do 
      begin
         j:=j+5; t:=t-j; 
      end;
      writeln(t,’ ‘,j);
   readln
   end.

   Bình luận