二维数组应用.doc

二维数组的应用： 例1：竞赛小组共有20位同学，这学期每位同学共参与了三项比赛，请统计每位同学的平均分。 分析：定义一个20行3列的二维数组来存放这些成绩。定义一个20个元素的一维数组来存放平均分。 program p1; var a:array [1..20,1..3] of integer; 　　 b:array [1..20] of real; 　　 i,j:integer; begin 　　 for i:=1 to 20 do 　　 begin 　　 　　 for j:=1 to 3 do read(a[i,j]); 　　　　 readln; 　　 end; {————从键盘上读入20个同学的三次竞赛成绩} 　　 for i:=1 to 20 do b[i]:=0; {————先将平均分数组清0} 　　 for i:=1 to 20 do 　　 begin 　　　　 for j:=1 to 3 do b[i]:=b[i]+a[i,j];{————计算总分} 　　　　 b[i]:=b[i]/3;{————计算平均分} 　　 end; 　　 for i:=1 to 20 do write(b[i]:5:1); {————输出平均分} writeln; end. 例2：设有一程序: 　　 program ex5_3; 　　 const n=3; 　　 type matrix=array[1..n,1..n]of integer; 　　 var a:matrix; 　　　 i,j:1..n; 　　 begin 　　　 for i:=1 to n do 　　　 begin 　　　　 for j:=1 to n do 　　　　　 read(a[i,j]); 　　　　 readln; 　　　 end; 　　 for i:=1 to n do 　　 begin 　　　 for j:=1 to n do 　　　　 write(a[j,i]:5); 　　　 writeln; 　　 end; 　　 end. 且运行程序时的输入为: 则程序的输出应是: 　　 2□1□3←┘ 　　 3□3□1←┘ 　　 1□2□1←┘ 例3：输入一串字符,字符个数不超过100,且以.结束。 判断它们是否构成回文。 　　 分析：所谓回文指从左到右和从右到左读一串字符的值是一样的，如12321,ABCBA,AA等。先读入要判断的一串字符（放入数组letter中），并记住这串字符的长度，然后首尾字符比较，并不断向中间靠拢，就可以判断出是否为回文。 　　 源程序如下： 　　 program ex5_5; 　　 var letter　 :　array[1..100]of char; 　　　　 i,j　　 :　0..100; 　　　　 ch　　 :　char; 　　 begin 　　 　{读入一个字符串以.号结束} 　　　 write(Input a string:); 　　　 i:=0;read(ch); 　　　 while ch. do 　　　 begin 　　　　 i:=i+1;letter[i]:=ch; 　　　　 read(ch) 　　　 end; 　　　 {判断它是否是回文} 　　　 j:=1; 　　　 while (ji)and(letter[j]=letter[i])do 　　　 begin 　　　　 i:=i-1;j:=j+1; 　　　 end; 　　　 if j=i　then writeln(Yes.) 　　　 else writeln(No.); 　　 end. 例4：奇数阶魔阵 　　 魔阵是用自然数1，2，3…，n2填n阶方阵的各个元素位置，使方阵的每行的元素之和、每列元素之和及主对角线元素之和均相等。奇数阶魔阵的一个算法是将自然数数列从方阵的中间一行最后一个位置排起，每次总是向右下角排（即Aij的下一个是Ai+1,j+1）。但若遇以下四种情形，则应修正排数法。 　　 （1） 列排完（即j=n+1时），则转排第一列; 　　 （2） 行排完（即i=n+1时），则转排第一行; 　　 （3） 对An,n的下一个总是An,n-1; 　　 （4） 若Aij已排进一个自然数，则排Ai－1，j－2。 　　 例如3阶方阵，则按上述算法可排成： 　　　　　　　　　　 4 3 8 　　　　　　　　　　 9 5 1 　　　　　　　　　　 2 7 6 　　有了以上的算法，解题主要思路可用伪代码描述如下： 　　 1　in div 2+1,yn /*排数的初始位置*/ 　　 2　a[i,j]1; 　　 3　for k:=2 to n*n do 　　 4　计算下一个排数位置（i,j）； 　　 5　if a[i,j]0 then 　　 6　ii-1;