第九课：一维数组.pptVIP

一维数组 QQ群号码：110237149 网 址：/xinxi/ 在编程时用到一批类型相同的数据，为了处理上的方便，通常以数组的形式来定义这一批数据。 　　 1、数组的定义格式：var　　 a:array [1..10] of integer; 　　 其中：a是这一批数据的名称，称为数组名；array、of是定义数组的保留字； 中括号中的数字是数据编号的下限和上限，也说明了数据的个数（上限-下限）； 最后一个是数据的基类型，如integer，char，real，boolean。 3、数组元素的输出：　　 和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。 通常也用循环结构来完成这一功能： for i:=1 to 10 do write(a[i], ); {数组元素之间用空格分隔} writeln;  例1：从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。 program p1;var　　 a:array [1..10] of integer;　　 i,s:integer;begin　　 for i:=1 to 10 do read(a[i]);　　 for i:=10 downto 1 do write(a[i], );　　 writeln;　　 s:=0; 　　 for i:=1 to 10 do s:=s+a[i];　　 writeln(s=,s);end. program p2; Var n:array[1..10] of integer; I,j,t:integer; Begin For I:=1 to 10 do Readln(n[I]); For I:=1 to 9 do begin 　 For j:=I+1 to 10 do begin 　 If n[I]n[j] then begin 　 T:=n[I]; 　 N[I]:=n[j]; 　 N[j]:=t; 　 End; 　 End; End; For I:=1 to 10 do begin 　 Write(n[I]:5); End; End. 例3：用筛法求100以内的素数（质数）。 　　 分析： 素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始， 把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到 的素数后再也找不到一个非0数。把所有非0数输出。 * * 2、数组元素的输入： 数组名代表的并不是一个变量，而是一批变量，因而，不能直接整个数组读入，而是要逐个数组元素读入，通常用循环结构来完成这一功能。 下面是几个常用输入数组元素的例子：for i:=1 to 10 do read(a[i]);　　 {——从键盘读入数组元素的值；最常用的方法} for i:=1 to 10 do a[i]:=i;　　 {——数组元素a[1]到a[10]的值分别为1到10；数据赋初值} for i:=1 to 10 do a[i]:=0;　　 {———数组元素清0；最常用的数据初始化的方法}for i:=1 to 10 do a[i]:=random(100);　　 {————随机产生10个100以内的数，赋给各数组元素}  例2：从键盘输入10个数，将这10个数从大到小的顺序输出。 *