Lập trình tính tổng sau: S=1+1/2+1/3+…+1/n+-.. Cho đến khi 1/n <= 0,0001

0 bình luận về “Lập trình tính tổng sau: S=1+1/2+1/3+…+1/n+-.. Cho đến khi 1/n <= 0,0001”

1. Uses Crt ; 
   Var i , n : Integer ; 
   tong: Real ; 
   BEGIN 
   Clrscr ; 
   Write (‘ Cho so tu nhien n : ‘) ; Readln (n) ; 
   tong :=0 ; 
   i :=1 ; 
   While i <= n Do 
   Begin 
   tong := tong + 1/i ; 
   i := i + 1 ; 
   End ; 
   Writeln (‘ Tong can tim la : ‘, tong:12:6 ) ; 
   Readln ; 
   END .

   DIDI2708

   Bình luận

2. program tinhtong;

   uses crt;

   var s:real;

         n:integer;

   begin

   clrscr;

   s:=0; n:=1;

   while 1/n>0.0001 do

    begin

     s:=s+1/n;

     n:=n+1;

    end;

   write(‘S= ‘,s:2:3);

   readln

   end.

   Bình luận