pascal-二维和多维数组

pascal-二维和多维数组

ID:20399939

大小:31.00 KB

页数:5页

时间:2018-10-12

pascal-二维和多维数组_第1页
pascal-二维和多维数组_第2页
pascal-二维和多维数组_第3页
pascal-二维和多维数组_第4页
pascal-二维和多维数组_第5页
资源描述:

《pascal-二维和多维数组》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、consta:array[1..4,1..4]ofinteger=((1,1,1,1),(1,1,1,1),(1,1,1,1),(1,1,1,1))这样子就定义了一个长4宽4所有元素为1的二维数组常量。多维数组一、多维数组的定义当一维数组元素的类型也是一维数组时,便构成了二维数组。二维数组定义的一般格式:array[下标类型1]ofarray[下标类型2]of元素类型;但我们一般这样定义二维数组:array[下标类型1,下标类型2]of元素类型;说明:其中两个下标类型与一维数组定义一样,可以看成"下界1..

2、上界1"和"下界2..上界2",给出二维数组中每个元素(双下标变量)可以使用下标值的范围。of后面的元素类型就是基类型。一般地,n维数组的格式为:array[下标类型1,下标类型2,…,下标类型n]of元素类型;其中,下标类型的个数即数组的维数,且说明了每个下标的类型及取值范围。二、多维数组元素的引用多维数组的数组元素引用与一维数组元素引用类似,区别在于多维数组元素的引用必须给出多个下标。引用的格式为:<数组名>[下标1,下标2,…,下标n]说明:显然,每个下标表达式的类型应与对应的下标类型一致,且取值不超

3、出下标类型所指定的范围。例如,设有说明:typematrix=array[1..5,1..4]ofinteger;vara: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列的元素。由于计算机的存储器是

4、一维的,要把二维数组的元素存放到存储器中,pascal是按行(第一个下标)的次序存放,即按a〔1,1〕a〔1,2〕a〔1,3〕a〔1,4〕a〔2,1〕…,a〔5,4〕的次序存放于存储器中某一组连续的存储单元之内。对于整个二维数组的元素引用时,大多采用二重循环来实现。如:给如上说明的二维数组a进行赋值:a[i,j]=i*j。fori:=1to5doforj:=1to4doa[i,j]:=i*j;对二维数组的输入与输出也同样可用二重循环来实现:fori:=1to5dobeginforj:=1to4doread(

5、a[i,j]);readln;end;fori:=1to5dobeginforj:=1to4dowrite(a[i,j]:5);writeln;end;三、多维数组的应用示例例1设有一程序:programex5_3;constn=3;typematrix=array[1..n,1..n]ofinteger;vara:matrix;i,j:1..n;beginfori:=1tondobeginforj:=1tondoread(a[i,j]);readln;end;fori:=1tondobeginforj:=

6、1tondowrite(a[j,i]:5);writeln;end;end.且运行程序时的输入为:2□1□3←┘3□3□1←┘1□2□1←┘则程序的输出应是:2□3□11□3□23□1□1例2输入4名学生数学、物理、英语、化学、pascal五门课的考试成绩,求出每名学生的平均分,打印出表格。分析:用二维数组a存放所给数据,第一下标表示学生的学号,第二个下标表示该学生某科成绩,如a[i,1]、a[i,2]、a[i,3]、a[i,4]、a[i,5]分别存放第i号学生数学、物理、英语、化学、pascal五门课的考

7、试成绩,由于要求每个学生的总分和平均分,所以第二下标可多开两列,分别存放每个学生5门成绩和总分、平均分。源程序如下:programex5_4;vara:array[1..4,1..7]ofreal;i,j:integer;beginfillchar(a,sizeof(a),0);{函数fillchar用以将a中所有元素置为0}writeln('Enter4studentsscore');fori:=1to4dobeginforj:=1to5do{读入每个人5科成绩}beginread(a[i,j]);{读每

8、科成绩时同时统计总分}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.');fori:=1to4dobeginwrite(i:2,'');forj:=1to7dowrite(a[i,j]:9:2);writeln;end;end.四、数组类型的应用例

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。