Viết chương trình pascal tính: 1-1/3+1/5-1/7+…+1/2n-1 – 1/2n+1

0 bình luận về “Viết chương trình pascal tính: 1-1/3+1/5-1/7+…+1/2n-1 – 1/2n+1”

1. uses crt;
   var n,i : integer;
   t : real;
   begin clrscr;
   t:=0;
   write(‘Nhap n:’); readln(n);
   for i:=0 to n do if i mod 2 =0 then t:=t+1/(2*i+1) else t:=t-1/(2*i+1);
   write(‘Tong :’, t:3:3);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

         S:real;

   begin clrscr;

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

        S:=0;

      for i:=2 to n do

        S:=S+1/(2*i-1)-1/(2*i+1);

      write(‘Tong la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận