sử dụng câu lện while do viết chương trình tính tổng C= 1/3 + 1/6 + 1/9 +-.+ 1/3n

0 bình luận về “sử dụng câu lện while do viết chương trình tính tổng C= 1/3 + 1/6 + 1/9 +-.+ 1/3n”

1. uses crt;
   var n,i:longint;
      s:real;
   begin
      clrscr;
      s:=0;i:=1;
      write(‘Nhap n: ‘); readln(n);
      while i<=n do 
         begin
            s:=s+1/(3*i);
            inc(i,1);
         end;
      write(‘C=’,s:0:2);
      readln;
   end.

   Bình luận

2. program bai_giai;

   uses crt;

   var n,i:integer;

         C:real;

   begin

         clrscr;

         write(‘Nhap n: ‘);   readln(n);

         i:=1;  c:=0;

         while i<=n do

               begin

                     c:=c+1/(3*i);

                     i:=i+1;

               end;

         write(‘C= ‘,c);

         readln;

   end.

   Bình luận