Cho mình xin code về mảng hai chiều và giải thích với ạ

0 bình luận về “Cho mình xin code về mảng hai chiều và giải thích với ạ”

1. **Cú pháp mảng 2 chiều (ma trận):

   Var <tên biến mảng> : array[<chỉ số đầu> .. <chỉ số cuối>, <chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu> ;

   **Giải thích:

   – Khai báo thêm các biến: i và j (biến đếm), m và n (số hàng, cột) [có thể thay đổi tên biến]

   – m: hàng, i: biến đếm hàng.

   – n: cột, j: biến đếm cột.

   – Nhập, xuất ma trận: sử dụng 2 vòng lặp i, j.

   – Sử dụng giá trị của hàng i cột j: <tên biến mảng> [i, j];

   – Chỉ số đầu, cuối là các giá trị thuộc N*.

   – Kiểu dữ liệu bất kì.

   **Cách nhập xuất ma trận.

   – Nhập ma trận:

   for i:=1 to m do
         for j:=1 to n do
         begin
                  write(‘A[‘, i, ‘, ‘, j, ‘] = ‘); readln(A[i,j]);
         end;

   – Xuất ma trận:

   for i:=1 to m do
          for j:=1 to n do
          begin
                   write(A[i,j]:3);
                   if j=n then writeln;
          end;
   [Các biến có thể thay đổi]

   **Viết chương trình (hoàn chỉnh):

   program pht;
   uses crt;
     var A: array[1..500, 1..500] of integer;
           i, j, m, n: integer;
   begin
            clrscr;
            write(‘Nhap so hang = ‘); readln(m);
            write(‘Nhap so cot = ‘); readln(n);
            for i:=1 to m do
                     for j:=1 to n do
                     begin
                                 write(‘A[‘, i, ‘, ‘, j, ‘] = ‘); readln(A[i,j]);
                     end;

            for i:=1 to m do
                     for j:=1 to n do
                     begin
                                  write(A[i,j]:3);
                                  if j=n then writeln;
                     end;
             readln
   end.

   Bình luận

2. *Cú pháp:

   <mảng>:array[<chỉ số đầu>..<chỉ số cuối>,<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

   $———$

   Số hàng ($\forall m$)

   Số cột ($\forall n$)

   *Bạn có thể đổi hàng thành n và cột bằng m cũng được nhé.

   *Ví dụ (in ra màn hình các số nhập từ bàn phím):

   uses crt;
   var a:array[1..100,1..100] of longint;
         i,j,m,n:longint;
   begin
         clrscr;
         write(‘Nhap so cot: ‘); readln(n);
         write(‘Nhap so hang: ‘); readln(m);
         for i:=1 to n do 
               for j:=1 to m do 
                     begin
                           write(‘a[‘,i,’,’,j,’]: ‘); readln(a[i,j]);
                     end;
         for i:=1 to n do 
               for j:=1 to m do 
                     write(a[i,j],’ ‘);
         readln
   end.

   Bình luận