数组类型(一维数组).pptVIP

PASCAL程序设计 　数组类型—一维数组 数组的引入 例1：输入30个同学的数学成绩，打印出低于平均分的同学的学号与成绩。用已学知识编程： var a1,a2,a3,...,a30,s,p:real; {成绩,总分,平均分} x1,x2,x3,…,x30:integer; {学号} begin read(a1,a2,a3,...,a30)； read(x1,x2,x3,...,x30)； s:=a1+a2+a3+...+a30; p:=s/30 if a1p then write (x1 , , a1); . . . 　　 数组的引入 例1：输入30个同学的数学成绩，打印出低于平均分的同学的学号与成绩。 引入下标变量a[i]能使该程序简单 s:=0;{s表示总分}for i:=1 to 30 do 　begin　 　read(a[i]); 　　s:=s+a[i]; end; p:=s/30;｛计算平均分｝　for i:=1 to 30 do　　if a[i]p then writeln(i, ,a[i]); 　 引入数组的优越性 1、把一大批相同性质的数据组合成一个新类型的变量－数组（如上例中的a[i] ， a为数组变量，i为下标），彼此以下标区分。 2、通过修改下标变量的下标值，依次处理数组的各个下标变量，增强了程序中重复性语句的功能。 如： for i:=1 to 30 do 　　　begin　 　　　read(a[i]); 　　　　s:=s+a[i]; 　　end; 定义一维数组 一维数组类型定义的格式：　数组类型名＝array [下标类型] of 元素类型; 定义一维数组常量 一维数组常量定义的格式：　数组常量名:数组类型名＝（初值1,初值2,…, 初值n） 一维数组应用 　例2：输入一段以句号结尾的英文，统计并输出句中各字母出现的次数。假设句中没有大写字母。 　　var ch : char; n : array [a..z] of integer; k:0..4; 　const n=10; k=3; var a:array[1..n] of integer; i,j,t:integer; begin writeln(input:); for i:=1 to n do read(a[i]); for i:=1 to k do begin t:=a[1]; for j:=2 to n do a[j-1]:=a[j]; a[n]:=t end; writeln(k); for j:=1 to n do write(a[j]:4) end. const n=10; var a:array[1..n]of integer; i,j,k,t:integer; begin writeln (‘input n:’); for i:=1 to n do read(a[i]); for i:=1 to n-1 do begin k:=i; for j:=i+1 to n do if a[j]a[k]then k:=j; if ki then begin t:=a[k]; a[k]:=a[i]; a[i]:=t end end; writeln(‘bxjg:’); for i:=1 to n do write(a[i]:2) end. (a+b)0=1 1 (a+b)1=1