Giải giúp e vs ak Lập trình tính tổng: S=1+1/3+1/5+–..+1/(2n+1) Với n từ 1 -100

0 bình luận về “Giải giúp e vs ak Lập trình tính tổng: S=1+1/3+1/5+–..+1/(2n+1) Với n từ 1 -100”

1. Program tinh_tong;

   Uses crt;

   Var i,n: byte;

            S: real;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=1;

   For i:= 1 to n do 

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

   Writeln (‘Tong S la:’, S:7:2);

   Readln

   End.

   Bình luận

2. uses crt;
   var n,i:longint;
          s:extended;
   begin
          clrscr;
          write(‘Nhap n (n<=100): ‘); readln(n);
          while (n<1) or (n>100) do
                 begin
                        writeln(‘NHAP LAI!’);
                        write(‘Nhap n (n<=100): ‘); readln(n);
                 end;
          for i:=1 to 2*n+1 do if i mod 2=1 then s:=s+1/i;
          writeln(‘S=’,s:0:2);
          readln;
   end.

   Bình luận