1. Viết chương trình tính tổng s:=1+2+…+n. (Không sử dụng lệnh lặp mà sử dụng công thức).

0 bình luận về “1. Viết chương trình tính tổng s:=1+2+…+n. (Không sử dụng lệnh lặp mà sử dụng công thức).”

1. program kaito;

   uses crt;

   var s, n: real;

   begin

      clrscr;

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

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

      write(‘S = ‘,s:0:0); 

   readln;

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. * Xâu dựng từ công thức Toán học :

   + Ta thấy dãng trên có : $(n-1) : 1 + 1 = n$ ( số số hạng )

   Nên tổng $S=1+2+3+….+n$ được tính là :

   $S = \dfrac{n.(n+1)}{2}$

   * Viết chương trình :

   program tinhtong;
   uses crt;
   var n,s : integer;
   begin clrscr;
   write(‘Nhap so n :’); readln(n);
   s:=trunc(n*(n+1)/2);
   write(‘Tong S la :’, s);
   readln
   end.

   Bình luận