第07讲 一维数组.pptVIP

题：输入1000个人的成绩，计算他们的总成绩。 题：输入1000个人的成绩，计算他们的总成绩。样程： Program ex(input,output） var s,x,i:integer; begin s:=0; for I:=1 to 1000 do begin readln(x); s:=s+x; end; writeln(s); End. 问题： 输入1000个人的成绩，计算平均成绩，并根据平均成绩与个人的成绩之差给出评定成绩。 标准：大于平均成绩10分以上的为“A”，10分以内的为“B”；小于平均成绩10分以内的为“C”，其余的为“D”。 这样做可以吗？ Var x1,x2,x3,x4,x5,x6,x7,x8,x9,x10:real; sum,ave:real; Begin read(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10); sum:=x1+x2+x3+x4+x5+x6+x7+x8+x9+x10; ave:=sum/10; write(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10); write(sum,ave); End. 那么，这样行吗？ Var I,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10:real; sum,ave:real; Begin for I:=1 to 10 do begin read(xi); sum:=sum+xi; End; ave:=sum/10; write(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10); write(sum,ave); End. 3、数组的定义 为了减小使用多个变量带给我们的麻烦，为了处理上的方便,我们引入了数组来成批的处理数据 。 数组是一种常用的构造数据类型，又叫下标变量，它由下标变量名和由中括号括起来的下标构成，形如A[n]。其中A 为下标变量名，即数组名， n为下标必须放在括号里。 由此可以看出，数组可以存放一组相互关联的数据，能反映这些数据存放的顺序。 4、数组元素的读入与赋值： 　数组名代表的并不是一个变量，而是一批变量，因而，不能直接将整个数组读入，而是要逐个数组元素读入，通常用循环结构来完成这一功能。 for i:=1 to 10 do read(s[i]); for i:=1 to 10 do s[i]:=i; for i:=‘a’ to ‘z’ do s[i]:=0; 如果有下列定义： Type score=array[1..10] of integer; Var a,b:score; 则可以有 a:=b; 5、数组元素的输出： 和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能： for i:=1 to 10 do write(s[i], ); 练习： 输入10个人的成绩，计算平均成绩，然后输出每个人的成绩和平均成绩的差（每个成绩差占一行）。 分析： Type score=array[1..10] of real; Var s:score； 样程 Program ex(input,outpu); Type score=array[1..10] of real; var s:score; i:integer; ave:real; Begin ave:=0; for I:=1 to 10 do begin readln(s[i]); ave:=ave+s[i]; end; ave:=ave/10; for I:=1 to 10 do writeln(s[i]-ave:0:2); End. 算法求精： Temp:=s[I]-ave; if temp=0 then begin if temp10 then writeln(s[i]:0:2, A) else writeln(s[i]:0:2, B) end else if temp-10 then writeln(s[i]:0:2, C) else writeln(s[i]:0:2, D) 样程1 var x,