Hãy viết khai báo biến mảng bằng hai cách Viết và in ra màn hình chương trình tính tổng số tiền gia đình đã chi trong 1 tuần

0 bình luận về “Hãy viết khai báo biến mảng bằng hai cách Viết và in ra màn hình chương trình tính tổng số tiền gia đình đã chi trong 1 tuần”

1. *Trực tiếp:

   var A:array[1..100] of inteegr;

   *Gián tiếp

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

   var A:kmang;

   *Chương trình

   program tinhtien;

   uses crt;

   var td,ta,th,tk,t:longint;

   begin

   clrscr;

   write(‘Nhap tien dien: ‘);   readln(td);

   write(‘Nhap tien an: ‘);   readln(ta);

   write(‘Nhap tien hoc: ‘);   readln(th);

   write(‘Nhap so tien cac khoan khac: ‘);   readln(tk);

   t:=td+ta+th+tk;

   write(‘Tong so tien chi tieu trong 1 tuan la: ‘,t);

   readln

   end.

   Bình luận

2. Khai báo biến mảng bằng hai cách:

   C1: a:aray[1..10000]of longint;

   C2:

   Type mang=array[1..10000]of longint;

   a:mang;

   Chương trình tính tiền:

   uses crt;
   var i,t:longint; a:array[1..100000]of longint;
   begin
   clrscr;
       for i:=1 to 7 do
           begin
              write(‘So tien ngay ‘,i,’: ‘);readln(A[i]);
              INC(t,a[i]);
           end;
       writeln(‘Tong chi tieu: ‘,t);
   readln;
   end.

   Bình luận