二维数组及其应用.pptVIP

练习题1 最大数问题(big.pas) 在N行M列的正整数矩阵中，要求从每行选出一个数，使选出的总共N个数的和最大。 输入：第一行为N和M，以下N行，每行M个数据。 输出：结果。 样例输入： 5 4 4 5 1 6 2 8 9 3 5 7 10 2 6 6 5 4 7 1 8 3 样例输出： 39 练习题2 稀疏矩阵的转换（matrix.pas） 【问题描述】 大部分元素是0的矩阵称为稀疏矩阵，假设有k个非零元素，则可把稀疏矩阵用k*3的矩阵简记之，其中第一列是行号，第二列是列号，第三列是该行、该列下的非零元素的值。如： 0 0 0 5 2 0 0 0 0 1 0 0 0 0 0 0 可简记为： 1 4 5 2 1 2 3 2 1 【输入】第一行是以空格分隔的两个正整数m，n（1m,n10）。以下m行，每行是以空格分隔的n个整数（integer类型）。 【输出】一个k*3的矩阵。 【样例输入】： 4 4 0 0 0 5 2 0 0 0 0 1 0 0 0 0 0 0 【样例输出】： 1 4 5 2 1 2 3 2 1 练习题3 棋盘(qipan.pas) 输入三个自然数n,i,j(2=n=10,1=i=n,1=j=n).n表示有一个n行n列的棋盘格子，（i,j）表示棋盘中格子的位置如：n=4,i=2,j=3表示了棋盘中的第二行第三列的格子，如下图： (2,3)表示该格为第2行第3列。 要求编制一个程序，根据输入的n,i,j的值，输出与格子(i,j)在同一行、同一列、同一对角线上的所有格子位置。 例如：当n=4,i=2,j=3时，输出的结果是：(2,1)(2,2)(2,3)(2,4) {同一行格子的位置}(1,3)(2,3)(3,3)(4,3) {同一列格子的位置} (1,2)(2,3)(3,4) {左上到右下对角线上的格子位置}(4,1)(3,2)(2,3)(1,4) {左下到右上对角线上的格子位置} 【输入】一行，n、i、j，三个数分别用空格分隔。 【输出】四行，同上例。 【样例输入】： 4 2 3 【样例输出】： (2,1)(2,2)(2,3)(2,4) (1,3)(2,3)(3,3)(4,3) (1,2)(2,3)(3,4) (4,1)(3,2)(2,3)(1,4) * * 二维数组 1. 二维数组 涵义：基类型本身又是一个一维数组的数组。 例如： 一维数组： type 数组类型名=array[下标类型1] of 数组元素类型; 二维数组： type 数组类型名=array[下标类型1] of array[下标类型2] of 数组元素类型; 2.二维数组的定义： 二维数组定义与一维数组类同，只是下标类型有2个。2个下标类型规定该数组为二维数组及2个下标的取值范围，同时规定数组元素的个数。 定义的两种形式： ① type区定义，var区说明。 type 数组类型名=array[下标类型1，下标类型2] of 数组元素类型； 例如： type class=array[1..3,1..16] of char; var class1,class2:class; ②直接在var区中说明数组。 例如： var s:array[1..4,1..5] of integer; ③说明： 习惯上，把二维数组理解成二维表格（或矩阵）的形式，将下标1理解为行号，将下标2理解成列号。 ④常量说明：（用于给数组变量赋初始值） 一行一行列举法。 例如：一个四阶方阵 const n=4; unimax:array[1..n,1..n]of integer =((1,0,0,0),(0,1,0,0),(0,0,1,0),(0,0,0,1)); 3.二维数组的存储: Turbo pascal按行优先的顺序存储数组元素，依次把各行的元素放入一串连续的存储单元中，数组的存储如图所示： var s:array[1..4,1..5] of integer; 4.应用举例 ①输入5名学生4门功课的成绩，输出各人各科成绩及总分。 var a:array[1..5,1..5] of integer; i,j:integer; begin for i:=1 to 5 do for j:=1 to 4 do read(a[i,j]); for i:=1 to 5 do begin score[i,5]:=0; for j:=1 to 4 do a[i,5]:=a[i,5]+a[i,j]; end; f