1、第八課 多維數(shù)組 8.1 二維數(shù)組類型定義的一般形式為：TYPE = ARRAY 下標類型1，下標類型2 OF ；數(shù)組說明： VAR ：；也可以直接在說明部分說明數(shù)組的類型，如： VAR ：ARRAY 下標類型1，下標類型2 OF ；例如：var a : array 1.3 , 0.4 of integer;a1,0 a1,1 a1,2 a1,3 a1,4a2,0 a2,1 a2,2 a2,3 a2,4a3,0 a3,1 a3,2 a3,3 a3,4 a數(shù)組是一個二維數(shù)組，有兩個下標，一維下標的值從1到3，二維下標從0到4，數(shù)組元素的類型為integer。 它共有15個元素，可以看成35的矩陣

2、。8.2 多維數(shù)組 如果下標個數(shù)有n個，則稱為n維數(shù)組。類型定義的一般形式為：TYPE = ARRAY 下標類型1，下標類型n OF ；數(shù)組說明： VAR ：；也可以直接在說明部分說明數(shù)組的類型，如： VAR ：ARRAY 下標類型1，下標類型n OF ；例如：金山中學全體在校生的期末成績可以用以下的多維數(shù)組來表示 S : array 1.3 , 1.12 , 1.70 , 1.10 of integer; 其中第一維下標1.3表示3個年級，第二維下標1.12表示每年級12個班，第三維1.70表示各班同學的學號，第四維表示該同學各門課程的成績。【例3】求兩矩陣的乘積b11 b12 b1mb21

3、 b22 b2m bs1 bs2 bsmB 設(shè)矩陣A和B的形式如下：a11 a12 a1sa21 a22 a2s an1 an2 ansA 計算矩陣A和B的乘積矩陣C： 根據(jù)矩陣相乘公式：（詳見數(shù)學基礎(chǔ)矩陣）c11 c12 c1mc21 c22 c2m cn1 cn2 cnmC i=1,2,nj=1,2,m program timematrix; const maxnm=100; var i , j , k , n , m , s : integer; a , b , c : array 1.maxnm , 1.maxnm of integer;begin write( n , s , m :

4、 ); readln( n , s , m ); writeln( A : );for i:=1 to n do for j:=1 to s do read(ai , j); writeln( B : ); for i:=1 to s do for j:=1 to m do read(bi , j); for i:=1 to n do for j:=1 to m do begin ci , j:=0; for k:=1 to s do ci , j:=ci , j+ai , k * bk , j; end; writeln( C : ); for i:=1 to n do begin for

5、j:=1 to m do write(ci,j:5); writeln; end;end.參考程序：【例4】求奇數(shù)幻方幻方是指n2個自然數(shù)排成n行n列的n階方陣，且每行、每列和兩條對角線上n個數(shù)之和都等于同一個數(shù)S。816357492S稱為幻方和，Sn(n2+1)/2奇數(shù)幻方的排列方法：首先確定1的位置放在第一行的中間位置；然后在當前自然數(shù)的右上方放下一個自然數(shù)；如果當前自然數(shù)在第一行，則下一個自然數(shù)放在最后一行；如果當前自然數(shù)在最右側(cè)，則下一個自然數(shù)放在最左側(cè)； 如果準備放下一個數(shù)的格內(nèi)已有數(shù)，則下一個自然數(shù)放在當前自然數(shù)的正下一格。參考程序：program jshf; const maxn

6、=100; var s : array1.maxn,1.maxn of integer; n , i , j , ii , jj , k : integer; begin readln(n); for i:=1 to n do s數(shù)組初始化 for j:=1 to n do si,j:=0; i:=1; j:=(n div 2)+1; for k:=1 to n*n do begin si,j:=k;jj:=j; ii:=i; 備份i、j j:=j+1; if jn then j:=1; i:=i-1; if i0 then begin 若準備放下一個數(shù)的格內(nèi)已有數(shù) j:=jj; i:=ii+

7、1; if iin then ii:=1; end; end; for i:=1 to n do begin 輸出結(jié)果 for j:=1 to n do write(si,j:4); writeln; end; end.練 習 八1 勘探隊在一個山區(qū)進行勘測，該地區(qū)呈正方形?？碧疥犜谶@片區(qū)域上等距地布了5050個坐標點，并在每個坐標點上測得了海拔高度。請你編程輸入這5050個坐標點的海拔，并從中找出鞍點的坐標。鞍點是這樣的點：它具有行最小值和列最大值。若無鞍點，則輸出（0，0）。2 編程打印如下形式的nn方陣。 1 1 1 1 1 1 1 1 11 2 2 2 2 2 2 2 11 2 3 3 3