sử dụng câu lệnh for..to..do viết chương trình tính tổng A=1-1/3+1/5+…-1/15

0 bình luận về “sử dụng câu lệnh for..to..do viết chương trình tính tổng A=1-1/3+1/5+…-1/15”

1. program phuongt;
   uses crt;
     var A, i, s: integer;
   begin
           clrscr;
           A:=1;
           s:=-1;
           for i:=1 to 15 do if i mod 3 = then
           begin
                   A:=A+s*1/i;
                   s:=-s;
           end;
           write(‘Tong = ‘, A);
           readln
   end.

   Bình luận

2. uses crt;

   var a:real;

   i:byte;

   begin

            clrscr;

            a:=1;

            for i:=3 to 15 do

                     begin

                              if i mod 4 = 3 then a:=a-1/i;

                              if i mod 4 = 1 then a:=a+1/i;

                     end;

            writeln(a);

   readln;

   end.

   Bình luận