第五章第二节二维数组与枚举类型.doc

第二节　二维数组与枚举类型
[]假设四个商店一周内销售自行车的情况如下面表一所示，
自行车牌号
永久牌
飞达牌
五羊牌
第一商店
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 {输入表二