东风一中信息奥赛培训辅导多维数组 LIU
成绩统计来自湖北信息奥赛培训ch613
下标多于一个的数组称为多维数组。二维数组是最简单的多维数组。
数组类型名=array[下标变量1，下标变量2，……] OF 元素类型；
对二维数组进行整体赋值时，要求两个数组变量属于同一种二维数组类型。
二维数组常量名：二维数组类型=（（初值11,初值12,……初值1n）,（初值21,初值22,……初值2n）,……（初值m1,初值m2,……初值mn））在执行中应出现两个数组变量的赋值语句。
Program ch613;
Const maxn=66;{假定一个班人数不超过66}
Typenumber=0..maxn;
Course=(math,phys,chem.,biol);
Var s:array[number,course]of real;
ave:array[number]of real;
I,n:number ;
k:course;
Begin
N:=0; {N序号}
For k:=math to boil do
s[0,k]:=0; {初始化}
Writeln(‘请按顺序输入数学，物理，化学，生物成绩’)；
Repeat
n:=n+1;ave[n]:=0;
Write(‘NO.’,n, ’:’);
For k:= math to boil do
Begin read(s[n,k]);
Ave[n]:=ave[n]+s[n,k];{ 计算该生的总分}
S[0,k]:=s[0,k]+s[n,k]{计算该课程的全班总分}
End;
Ave[n]:=ave[n]/4; {该生的平均分}
Untileof ；{用CTRL+Z控制输入结束}
Writeln;
Writeln(‘成绩 单’)；
Writeln(‘序号数学物理化学生物平均’)；
Fori:=1 to n do
Begin write(i:3);{输出一个序号}
For k:= math to boil do write(s[I,k]:6:1); {输出各科分数}
Writeln(ave[i]:6:1);{输出该生平均分并换行}
End；
Write(‘科平’)；
FOR k:= math to boil do write(s[0,k]/n :6:1){输出每门课程全班平均分}
End.
输入：
序号数学物理 化学 生物
180 87 85 90
283 67 83 86
386 89 90 86
490 88 87 92
578 81 83 86^Z
输出：
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。