- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第二节 二维数组与枚举类型
[例5.6]假设四个商店一周内销售自行车的情况如下面表一所示,
自行车牌号 永久牌 飞达牌 五羊牌 第一商店 35 40 55 第二商店 20 50 64 第三商店 10 32 18 第四商店 38 36 28 表一
几种牌号自行车的单价如表二所示。求各店本周出售自行车的总营业额。
? 单价 ? 元 ? 永久牌 ?395 ? 飞达牌 ?398 ? 五羊牌 ?384 表二
解:①把表一看成是由行(每个店占一行)与列(每种牌号占一列)共同构成的数据组,按表格排列的位置顺序,用A数组表一各数据表示如下:
A[1,1]=35?? A[1,2]=40?? A[1,3]=55?????? {第一行共三个数据}
A[2,1]=20?? A[2,2]=50?? A[2,3]=64?????? {第二行共三个数据}
A[3,1]=10?? A[3,2]=32?? A[3,3]=18?????? {第三行共三个数据}
A[4,1]=38?? A[4,2]=36?? A[4,3]=28?????? {第四行共三个数据}
A数组有4行3列,每个数组元素由两个下标号表示,这样的数组称为二维数组。
②表二的数据按排列顺序用B数组表示如下:
? B[1]=395?????? B[2]=398??????????? B[3]=384
②B数组有3个数据,用一维数组表示,下标号与表一中列的序号有对应关系。
③计算各店营业额并用T数组表示:
T[1]=A[1,1]*B[1]+A[1,2]*B[2]+A[1,3]*B[3]???? {计算第一商店的营业额}
T[2]=A[2,1]*B[1]+A[2,2]*B[2]+A[2,3]*B[3]???? {计算第二商店的营业额}
T[3]=A[3,1]*B[1]+A[3,2]*B[2]+A[3,3]*B[3]???? {计算第三商店的营业额}
T[4]=A[4,1]*B[1]+A[4,2]*B[2]+A[4,3]*B[3]???? {计算第四商店的营业额}
T数组共有4个数据,为一维数组,下标号与商店号有对应关系。
④输出T数组各元素的值。
Pascal程序:
Program? Exam56;
Var A: array[1..4,1..3] of integer;???? ?{定义二维数组,整数类型}
??? B: array[1..3] of integer;????????? ???{一维数组,3个元素}
??? T: array[1..4] of integer;???????? ????{一维数组,4个元素}
?? i,j: integer;
Begin
?for i:=1 to 4 do?????????????? ????? {输入表一的数据}
????? Begin
???????? Write(‘A[‘,i,‘]: ’);??????????? ??? ????{提示输入哪一行}
???????? for j:=1 to 3 do? Read(a[i,j]); ????{每行3个数据}
??????? ?Readln;??????????? ???????????? ?{输完每行按回车键}
????? end;
?? for i:=1 to 3 do???????? ???????????? ?{输入表二的数据}
????? Begin
???????? Write(’B[’, I ,’]:’);?????? ?? ???????????{提示第几行}
???????? Readln(B[ i ]);??? ????? ????????{输入一个数据按回车}
?????? end;
?? for i:=1 to 4 do???????? ???????? ?? ???{计算并输出}
????? Begin
???????? T[ i ]:=0;
???????? Write(’ ’:5,I:4);
???????? for j:=1 to 3 do
??????????? Begin
????????????? Write(A[i , j]:6);
????????????? T[ i ]=T[ i ]+A[i , j]*B[j];
??????????? end;
???????? Write(T[ i ]:8);
?????? end;
???? Readln;
end.
?
程序中定义二维组方式与一维数组形式相同。二维数组的元素由两个下标确定。
二维数组元素的格式如下:
?????????????? ?????数组名 [下标1,下标2 ]
常用下标1代表数据在二维表格中的行序号,下标2代表所在表格中列的序号。
?
[例5.7]输入学号从1101 至1
您可能关注的文档
- 第6篇 数据访问页.ppt
- 现代公司制度的内涵及国有公司改革方向 3.pdf
- 现代汉语选择问句法来源.pdf
- 从标签式趋同到内涵式多样_生态课堂研究的回顾及前瞻.pdf
- 第6篇 数据库设计.ppt
- 从过渡模式到目标模式——对陕西省农业社会化服务体系的调查及思考.pdf
- 第6篇 注册表安全10.ppt
- 第6篇 子程序结构.ppt
- 从后《黄土地》到后贾樟柯时代——第六代电影美学及产业发展略论.pdf
- 第6篇 GUI应用程序设计.ppt
- 浙江省临海市白云高级中学2025届高三历史3月月考试题.doc
- 云南拾谷县第一中学2024_2025学年高二物理上学期10月月考试题.doc
- 2025版高考生物总复习第13讲基因的分离定律教案苏教版.doc
- 湖北省黄石实验高中2024_2025学年高一历史下学期期末考试模拟卷.doc
- 通史版2025版高考历史大一轮复习专题七近代化的曲折发展__中日甲午战争至五四运动前4第4讲从维新思想到新文化运动课后达标检测含解析新人教版.doc
- 2024年高考数学考试大纲解读专题04导数及其应用含解析文.doc
- 河南省许汝平九校联盟2024_2025学年高一语文上学期期末考试试题扫描版无答案.doc
- 江西省吉安市吉水县第二中学2024_2025学年高一历史上学期第二次月考试题.doc
- 北京市平谷区2025届高三政治一模考试试题含解析.doc
- 2025届中考物理第四讲物态变化专项复习测试无答案新人教版.docx
文档评论(0)