Lazarus讲义7(数组二).docVIP

第七课 数组（二） 7.2 二维数组： 一、为什么需要二维数组： 一维数组在数据存储和处理中，给我们带来了很大的方便，让我们在解决集合型和线性型数据时，可以从容地将数据存入一维数组，再利用循环逐个调用并处理并保存结果。 但是，在处理矩阵型数据时，一维数组就束手无策了（有时也可以用特殊的处理方法来使用一维数组，一般目的是为了节约内存空间），例如如下问题： 输出如下形式的n*n数字矩阵：如图是5*5时的情况 1 16 15 14 13 2 17 24 23 12 3 18 25 22 11 4 19 20 21 10 5 6 7 8 9 由于程序的输出顺序是先左后右、自上而下，使用直接输出或先保存到一维数组中的方法都无法实现上图的输出。 我们设想，如果能有一个数组变量的存储单元能呈矩形平面排布，这样我们就可以在这样一个平面的数组变量中先生成上图，然后再依次输出即可。 二、二维数组的定义和内存占用情况： 1、二维数组的定义： 方法一： type 数组类型名=array [下标下限 ..下标上限, 下标下限 ..下标上限]of 基类型 ↑ ↑ 第一下标 第二下标 var 数组变量名表：数组类型名; 例如：type arr=array[1..5,1..5]of integer; var a,b,c:arr; 方法二： var数组变量名表: array[下标下限..下标上限, 下标下限 ..下标上限]of 基类型 例如：var a,b,c:array[1..5,1..5] of integer; 2、二维数组各单元的调用方法： 数组变量名[第一下标，第二下标] 例如：a[i,j] 3、二维数组的内存开销： 二维数组的内存开销=(第一下标上限－第一下标下限+1)* (第二下标上限－第二下标下限+1)*基类型所占单元数 例如：var a:array[1..10000,1..10000]of longint; 所需内存空间为=10000*10000*4Byte=100MB 对于：var a:array[1..5,1..5]of integer; 其内存单元分布情况如下： i，j→ 1 2 3 4 5 a[1,1] a[1,2] a[1,3] a[1,4] a[1,5] a[2,1] a[2,2] a[2,3] a[2,4] a[2,5] a[3,1] a[3,2] a[3,3] a[3,4] a[3,5] a[4,1] a[4,2] a[4,3] a[4,4] a[4,5] a[5,1] a[5,2] a[5,3] a[5,4] A[5,5] ↓ 1 2 3 4 5 第一下标i表示第i行，第二下标j表示第j列，a[i,j]表示第i行的第j列的单元。 三、二维数组的基本操作： 1、整体操作： （1）初始化： fillchar(数组变量名,sizeof(数组变量名),0); fillchar(数组变量名,sizeof(数组变量名),true); fillchar(数组变量名,sizeof(数组变量名),false); （2）整体赋值：对于定义完全相同的两个数组a、b，可以使用a:=b; 2、读入： for i:=1 to m do for j:=1 to n do read(inf,a[i,j]); 3、输出： for i:=1 to m do begin for j:=1 to n do write(outf,a[i,j]); writeln(outf); end; 4、单个单元调用： 数组变量名[第一下标表达式，第二下标表达式] 例如：a[i,j]:=a[j,i]; 四、例题： 例12.奖学金【问题描述】 某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。 任务：先根据输入的3门课的成绩计算总分，然后按