第八课多维数组§8.1二维数组类型定义的一般形式为：TYPE<类型标识符>=ARRAY[下标类型1，下标类型2]OF<基类型>；数组说明：VAR<数组名>：<数组类型标识符>；也可以直接在说明部分说明数组的类型，如：VAR<数组名>：ARRAY[下标类型1，下标类型2]OF<基类型>；例如：vara:array[1..3,0..4]ofinteger;a数组是一个二维数组，有两个下标，一维下标的值从1到3，二维下标从0到4，数组元素的类型为integer。它共有15个元素，可以看成3×5的矩阵。§8.2多维数组如果下标个数有n个，则称为n维数组。类型定义的一般形式为：TYPE<类型标识符>=ARRAY[下标类型1，……，下标类型n]OF<基类型>；数组说明：VAR<数组名>：<数组类型标识符>；也可以直接在说明部分说明数组的类型，如：VAR<数组名>：ARRAY[下标类型1，……，下标类型n]OF<基类型>；例如：金山中学全体在校生的期末成绩可以用以下的多维数组来表示S:array[1..3,1..12,1..70,1..10]ofinteger;其中第一维下标1..3表示3个年级，第二维下标1..12表示每年级12个班，第三维1..70表示各班同学的学号，第四维表示该同学各门课程的成绩。a[1,0]a[1,1]a[1,2]a[1,3]a[1,4]a[2,0]a[2,1]a[2,2]a[2,3]a[2,4]a[3,0]a[3,1]a[3,2]a[3,3]a[3,4]【例3】求两矩阵的乘积设矩阵A和B的形式如下：计算矩阵A和B的乘积矩阵C：根据矩阵相乘公式：（详见《数学基础》矩阵）参考程序：【例4】求奇数幻方幻方是指n2个自然数排成n行n列的n阶方阵，且每行、每列和两条对角线上n个数之c11c12……c1mc21c22……c2m┇┇┇cn1cn2……cnmC＝a11a12……a1sa21a22……a2s┇┇┇an1an2……ansA＝b11b12……b1mb21b22……b2m┇┇┇bs1bs2……bsmB＝i=1,2,…,nj=1,2,…,mprogramtimematrix;constmaxnm=100;vari,j,k,n,m,s:integer;a,b,c:array[1..maxnm,1..maxnm]ofinteger;beginwrite('n,s,m:');readln(n,s,m);writeln('A:');fori:=1tondoforj:=1tosdoread(a[i,j]);writeln('B:');fori:=1tosdoforj:=1tomdoread(b[i,j]);fori:=1tondoforj:=1tomdobeginc[i,j]:=0;fork:=1tosdoc[i,j]:=c[i,j]+a[i,k]*b[k,j];和都等于同一个数S。S称为幻方和，S＝n(n2+1)/2奇数幻方的排列方法：①首先确定1的位置——放在第一行的中间位置；②然后在当前自然数的右上方放下一个自然数；如果当前自然数在第一行，则下一个自然数放在最后一行；如果当前自然数在最右侧，则下一个自然数放在最左侧；如果准备放下一个数的格内已有数，则下一个自然数放在当前自然数的正下一格。参考程序：programjshf;constmaxn=100;vars:array[1..maxn,1..maxn]ofinteger;n,i,j,ii,jj,k:integer;beginreadln(n);fori:=1tondo{s数组初始化}forj:=1tondos[i,j]:=0;i:=1;j:=(ndiv2)+1;fork:=1ton*ndobegins[i,j]:=k;jj:=j;ii:=i;{备份i、j}j:=j+1;ifj>nthenj:=1;i:=i-1;ifi<1theni:=n;ifs[i,j]>0thenbegin{若准备放下一个数的格内已有数}j:=jj;816357492i:=ii+1;ifii>nthenii:=1;end;end;fori:=1tondobegin{输出结果}forj:=1tondowrite(s[i,j]:4);writeln;end;end.练习八1．勘探队在一个山区进行勘测，该地区呈正方形。勘探队在这片区域上等距地布了50×50个坐标点，并在每个坐标点上测得了海拔高度。请你编程输入这50×50个坐标点的海拔，并从中找出鞍点的坐标。鞍点是这样的点：它具有行最小值和列最大值。若无鞍点，则输出（0，0）。2．编程打印如下形式的n×n方阵。111111111122222221123333321123444321123454321123444321123333321122222221111111111
