dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau T= 1*1/2*1/3*..*1/50

0 bình luận về “dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau T= 1*1/2*1/3*..*1/50”

1. for…to…do…

   program tong_T;

   uses crt;

   var t:real;

         i:byte;

   begin

          clrscr;

          T:=0;

          for i:=1 to 50 do

                 T:=T+1/i;

          write(‘T= ‘,t:0:3);

          readln;

   end.

   while…do…

   program tong_T;

   uses crt;

   var i:integer;

        T:real;

   begin

          clrscr;

          i:=1; T:=0;

          while i<=50 do

                 begin

                        T:=T+1/i;

                        i:=i+1;

                 end;

          write(‘T= ‘,t:0:3);

          readln;

   end.

   Bình luận

2. Dùng For…to…do:

   program tong;

   uses crt;

   var i: byte;

         T: real;

   Begin

            clrscr;

            T:=1;

            for i:=1 to 50 do T:=T*1/i;

            write(‘T = ‘,T:2:3);

            readln

   End.

   Dùng While…do:

   program tong;

   uses crt;

   var i: byte;

         T: real;

   Begin

            clrscr;

            T:=1;  i:=1;

            while i<=50 do

            begin

                     T:=T*1/i;

                     i:=i+1;

            end;

            write(‘T = ‘,T:2:3);

            readln

   End.

   Bình luận