二维数组与枚举型.docVIP

第二节　二维数组与枚举类型 [例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