1) viết công thức sử dụng biến mảng nhập từ bàn phím một dãy số nguyên, in ra màn hình tổng các giá trị là số lẻ 2) viết công thức sử dụng biến mản

0 bình luận về “1) viết công thức sử dụng biến mảng nhập từ bàn phím một dãy số nguyên, in ra màn hình tổng các giá trị là số lẻ 2) viết công thức sử dụng biến mản”

1. B1: làm mẫu và cả cho những bài sau:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,tsl:integer;
   Write(‘ Nhap so ptu N = ‘); Readln(n); {Quan trọng là bạn có khai báo Readln là được! Có hay không có Write không quan trọng}
   tsl:=0;
   For i:=1 to n do
   Begin
   Write(‘ Nhap a[‘,i,’]= ‘) ; Readln(a[i]);
   If a[i] mod 2 = 1 then tsl:=tsl+a[i]; {công thức tính tổng số lẻ} {1}
   End;
   Write(‘ Tong cac so le o day tren la: ‘,tsl); {In ra màn hình tổng số lẻ} {2}
   Readln
   End.
   B2:
   Bạn khai báo Var có biến để gọi là tổng số chẵn. Và mình sẽ vd luôn ở dưới nhá
   CT:  If a[i] mod 2 = 0 then tsc:=tsc+a[i]; {cái này lắp vào 1}
   Write(‘ Tong cac so chan o day tren la: ‘,tsc) {cái này lắp vào 2}
   B3: Chương trình ví dụ: 
   Uses crt;

   Var i,x,n,Kq:longint;
   Begin
   Clrscr;
   Write(‘Goi X so nguyen= ‘); Readln(x);
   Writeln;
   Write(‘Goi n luy thua= ‘); Readln(n);
   Kq:=1;
   For i:=1 to n do
   Kq:=kq*x;
   Writeln(Vay ket qua cua x,’^’,n,’=’,kq); {công thức tính x mũ n}
   Readln;
   end.

   B4: Gọi biến tổng để chia hết cho cả 2 và 3 là “tch” (Bạn có thể gọi là một biến bất kì cũng được)
   If (a[i] mod 2=0) and (a[i] mod 3 = 0) then tch:=tch+a[i]; {lắp vào 1}

   Bình luận