东风一中信息奥赛培训辅导多维数组LIU

 

东风一中信息奥赛培训辅导多维数组 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图纸等内容。


TOP最近更新内容

    园林史名词解释
    长城小学关爱留守儿童工作制度
  • 上一篇:关于欣赏的作文
  • 下一篇:建筑工程技术(施工)毕业设计格式要求 (1)