Hãy sử dụng câu lệnh lặp với số lần chưa biết trước để biết chương trình tính tổng T=1+1/2+1/3

0 bình luận về “Hãy sử dụng câu lệnh lặp với số lần chưa biết trước để biết chương trình tính tổng T=1+1/2+1/3”

1. var n: byte;

          T: real;

   Begin

       n:=1; t:=0;

       While n<=3 do

           Begin

              T:=t + 1/n;

              n:=n + 1;

           End;

       Write(t);

       Readln

   End.

   Bình luận

2. program tinh_tong;

   uses crt;

   var n:byte;

        t:real;

   begin

          clrscr;

          n:=1;  t:=0;

          while n<=3 do

                 begin

                        t:=t+1/n;

                        n:=n+1;

                 end;

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

          readln;

   end.

   Bình luận