Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím 1. Sử dụng For… Do 2. Sử

0 bình luận về “Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím 1. Sử dụng For… Do 2. Sử”

1. program cau.a;

   var n,i,s:integer;
   begin

   readln(n);
   for i:=1 to n do s:=s+i*i;
   writeln(s);
   readln;
   end.

   Bình luận

2. 1. For…do

   a)

   program a;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            for i:=1 to N do S:=S+i*(i+1);

            write(‘S = ‘,S);

   End.

   b)

   program b;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            for i:=1 to N do S:=S+2*i;

            write(‘S = ‘,S);

   End.

   c)

   program c;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            for i:=1 to N do S:=S+(2*i+1);

            write(‘S = ‘,S);

   End.

   2. While…do

   a)

   program a;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            while i<=N do

            begin

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

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   b)

   program b;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            while i<=N do

            begin

                     S:=S+2*i;

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   c)

   program c;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

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

            while i<=N do

            begin

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

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   Bình luận