Mảng hai chiều

2. Mảng hai chiều: * Xét bài toán 7935 382 9 6 7 41 Mảng 1 chiều Cột Dòng Mảng 2 chiều * Khái niệm: a. Khai báo * C¸ch 2: Khai b¸o gi¸n tiÕp TYPE < tªn kiÓu m¶ng> = array[kiÓuchØ sè dßng,kiÓu chØ sè cét] of <kiÓuphÇn tö>; Var <tªn biÕn m¶ng> : <tªn kiÓu m¶ng >; VÝ dô: TYPE Bang = array[1 9,1 9] of integer; Var A, B: Bang; * C¸ch 1: Khai b¸o trùc tiÕp Var < tªn biÕnm¶ng> : array[KiÓu chØ sè dßng,kiÓu chØ sè cét] of <kiÓuphÇn tö>; VÝ dô: Var Bang: array[1 9,1 9] of integer; Var Mang: array[1 9,1 9] of integer; A 7935 3829 6741 VÝ dô: A[2,3]= 8. 1 2 3 4 1 2 3 Tên biến mảng Chỉ số hàng Chỉ số cột [ ] , A 1 1 7 935 382 9 6 7 41 2 3 3 2 4 i J b. Một số ví dụ Ví dụ 1: Nhập vào một mảng hai chiều gồm n hàng và m cột được nhập vào từ bàn phím For i:= 1 to n do For j:=1 to m do readln(A[i,j]); Ví dụ 2: Hiển thị mảng vừa nhập For i:= 1 to n do Begin For j:=1 to m do write(A[i,j]); End; I= 1 I= 2 I= 3 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 1*2 2*2 1*3 Cột Hàng J = J = i*J i*J J = i = I = i*J Ví dụ bảng nhân Program bang_nhan; uses crt; var B: array[1 9,1 10] of integer; i, j: integer; Begin clrscr; for i:=1 to 9 do for j:= 1 to 10 do b[i,j]:= i*j; for i:= 1 to 9 do Begin for j:= 1 to 10 do write(b[i,j]:4); writeln; End; Readln; End. 2*1 i*J1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 i*J Vận dụng: . 2. Mảng hai chiều: * Xét bài toán 7935 382 9 6 7 41 Mảng 1 chiều Cột Dòng Mảng 2 chiều * Khái niệm: a. Khai báo * C¸ch 2: Khai b¸o gi¸n tiÕp. 1 2 3 Tên biến mảng Chỉ số hàng Chỉ số cột [ ] , A 1 1 7 935 382 9 6 7 41 2 3 3 2 4 i J b. Một số ví dụ Ví dụ 1: Nhập vào một mảng hai chiều gồm n hàng