Em xây dựng một số chương trình con để tính tổng dãy số nguyên từ a1, a2,…an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng. Giú

0 bình luận về “Em xây dựng một số chương trình con để tính tổng dãy số nguyên từ a1, a2,…an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng. Giú”

1. program nhap_tinhtong;

   uses crt;

   type kmang=array[1..1000] of integer;

   var A:kmang;

        n:integer;

   {—Nhap—}

   procedure nhap;

   var i:integer;

   begin

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

          for i:=1 to n do

                 begin

                        write(‘A[‘,i,’]= ‘);  readln(A[i]);

                 end;

   end;

   {—Tinh-tong—}

   function tinh_tong(A:kmang; n:integer):integer;

   var t,i:integer;

   begin

          t:=0;

          for i:=1 to n do

                 t:=t+A[i];

          tinh_tong:=t;

   end;

   {—CT-chinh—}

   BEGIN

          clrscr;

          nhap;

          write(‘Tong cac phan tu la: ‘,tinh_tong(A,n));

          readln;

   end.

   Bình luận

2. uses crt;

   var a: array[1..100] of integer;

   i,n,s: integer;

   procedure nhaptinh;

   var i,n,s: integer;

   begin

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

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   s:=s+a[i];

   end;

   begin

   clrscr;

   nhaptinh;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận