Pascal二维数组的应用下.pptVIP

07-08下学期基础班 第八讲 二维数组的应用(下） 内容回顾 在上一次课中我们用了类比的方法具体介绍了二维数组的概念,定义,使用. 回头来看二维数组的使用可以使我们的数据更加有结构感,如果说一维数组的的应用经常伴随着一重循环的话,那么二维数组的运用经常伴随着两重循环,理解了这个概念后二维数组的概念和运用就会非常的简单和清晰。 定义的格式为：　　 数组名[下标1,下标2,…,下标n]　　说明：显然，每个下标表达式的类型应与对应的下标类型一致，且取值不超出下标类型所指定的范围。　　　例如,设有说明:　　type matrix=array[1..5,1..4]of integer;　　var a:matrix;　　则表示a是二维数组，共有5*4=20个元素，它们是： 　　a［1，1］a［1，2］a［1，3］a［1，4］　　a［2，1］a［2，2］a［2，3］a［2，4］　　a［3，1］a［3，2］a［3，3］a［3，4］　　a［4，1］a［4，2］a［4，3］a［4，4］　　a［5，1］a［5，2］a［5，3］a［5，4］ 　　因此可以看成一个矩阵，a［4，2］即表示第4行、第2列的元素。由于计算机的存储器是一维的，要把二维数组的元素存放到存储器中，pascal是按行（第一个下标）的次序存放，即按a［1，1］a［1，2］a［1，3］a［1，4］a［2，1］…，a［5，4］的次序存放于存储器中某一组连续的存储单元之内。 例题讲解一 输入4名学生数学、物理、英语、化学、pascal五门课的考试成绩，求出每名学生的平均分，打印出表格。 分析：用二维数组a存放所给数据,第一下标表示学生的学号, 第二个下标表示该学生某科成绩，如a[i,1]、a[i,2]、a[i,3]、a[i,4]、a[i,5]分别存放第i号学生数学、物理、英语、化学、pascal 五门课的考试成绩,由于要求每个学生的总分和平均分， 所以第二下标可多开两列，分别存放每个学生5门成绩和总分、平均分，即总分 a[i,6] ，平均分 a[i,7] 。 program ex5_4;　　var a:array[1..4,1..7]of real;{4行7列} 　　i,j:integer;　　begin　　　fillchar(a,sizeof(a),0);{函数fillchar用以将a中所有元素置为0}　　　writeln(‘Enter 4 students score’);　　　for i:=1 to 4 do {通过循环对四个学生的成绩进行处理} 　　 begin　　　　for j:=1 to 5 do {读入每个人5科成绩}　　　　begin　　　　 read(a[i,j]);　　 {读每科成绩时同时统计总分}　　　　 a[i,6]:=a[i,6]+a[i,j];　　　　end;　　　　readln; {读入回车} 　　　　a[i,7]:=a[i,6]/5;{求平均分}　　 end;　　 {输出成绩表}　　 writeln( No. Mat. Phy. Eng. Che. Pas. Tot. Ave.);　　 for i:=1 to 4 do　　 begin　　　　write(i:2, );　　　　for j:=1 to 7 do　　　　 write(a[i,j]:9:2);　　　　writeln;　　 end;　　end. 二：打印扬辉三角 打印 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 参考程序 Program p6; Var yh:array[1..10,1..10] of integer; {定义一个十行十列的二维数组} I,j:integer; Begin Yh[1,1]:=1; {第一行} For i:=2 to 10 do {从第二行开始} Begin Yh[I,1]:=1,yh[I,i]:=1; {每一行首尾都是1} For j:=2 to i-1 do {非首尾数字} Yh[I,j]:=yh[i-1,j-1]+yh[i-1,j]; {计算} End; Writeln(‘yanghui’); For i:=1 to 10 do {输出扬辉三角} Begin Write(‘ ‘:40-3*i); {首字母定位} For j:=1 to I do write(yh[I,j]:6); Writeln; End; End. 三、求二维数组中