Dùng ngôn ngữ Pascal để viết các chương trình tính tổng sau (n là số tự nhiên được nhập từ bàn phím ) A=1+3+5+8+…+2n+1 B=2+4+6+8+…+2n T=1+1/3+1/5+

0 bình luận về “Dùng ngôn ngữ Pascal để viết các chương trình tính tổng sau (n là số tự nhiên được nhập từ bàn phím ) A=1+3+5+8+…+2n+1 B=2+4+6+8+…+2n T=1+1/3+1/5+”

1. program tong;

   uses crt;

   var n,i,A,B: integer;

         T,S: real;

   Begin

            clrscr;

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

            A:=1; B:=2; T:=1; S:=1;

            for i:=1 to n do

            begin

                     A:=A+(2*i+1);

                     B:=B+2*i;

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

                     S:=S+1/2*i;

            end;

            writeln(‘A = ‘,A);

            writeln(‘B = ‘,B);

            writeln(‘T = ‘,T:2:3);

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

            readln

   End.

   Bình luận

2. program tinh_tong;

   uses crt;

   var n,i,a,b:inteegr;

        t,s:real;

   begin

          clrscr;

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

          a=1; b:=0;  t:=1;  s:=1;

          for i:=1 to n do

                 begin

                        a:=a+2*i+1;

                        b:=b+2*i;

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

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

                 end;

          writeln(‘A= ‘,a);

          writeln(‘B= ‘,b);

          writeln(‘T= ‘,t:0:3);

          writeln(‘S= ‘,s:0:3);

          readln;

   end.

   Bình luận