[第13课]一维数组.pptVIP

1、输入100个数，然后再按输入的相反顺序打印出来。 来看看用数组怎么解决这个问题： FOR I：=1 TO 100 DO READ（A[ I ]）； FOR I：=100 DOWNTO 1 DO WRITE（A[ I ]）； 在编程时用到一批类型相同的数据，为了处理上的方便，通常以数组的形式来定义这一批数据。 2.输入50个学生的成绩，然后算出平均成绩，把低于平均分的成绩打印出来。 一.格式： type chengji= array [1..50] of integer; var cj:chengji; 二.内存分配 定义了数组，计算机就会在内存中划分出一段连续的存储单元用来存放数组元素的值。 例如： Var a:array[3..8] of integer; Begin a[3]:=8; a[4]:=2; a[5]:=0; a[6]:=0; a[7]:=7; a[8]:=9; End. 三.数组元素的写入和输出 写入——赋值：数组名代表的并不是一个变量，而是一批变量，因而，不能直接整个数组读入，而是要逐个数组元素读入，通常用循环结构来完成这一功能。 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以内的数，赋给各数组元素} 若事先知道数组元素的值，在常量说明区也可以给这些变量性质的数组元素赋值。 1.CONST A：ARRAY [1..5] OF INTEGER=（1，2，3，4，5）； B：ARRAY [‘C’..’E’] OF INTEGER=（100，200，1000）； 2.TYPE ARR=ARRAY[1..5] OF INTEGER； CONST A：ARR=（1，2，3，4，5）； 数组元素的输出： 和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能： for i:=1 to 10 do write(a[i], ); {————数组元素之间用空格分隔}writeln; 例题1：借助一维数组，生成斐波那契数列的前20项。 分析：斐波那契数列为：1 1 2 3 5 8 13 21 34 55 89 144 233 377 …6765 该数列的特点是： 后一项为前两项之和 若将该数列存入名为a的数组内，则：a1=1 a2=1 a3=a1+a2 … an=a(n-1)+a(n-2) Program feibo Var a:array[1..20] of integer; i:integer; Begin a[1]:=1; a[2]:=1; for i:=3 to 2o do a[i]:=a[i-1]+a[i-2]; for i:=1 to 2o do write(a[i],’ ‘); End. 解：表中有两组数据，设表示物品件数的一组为a，表示物品单价的一组为b。 a，b两组数据以序号为关联，具有相应的顺序关系。按如下方法处理： ①定义s，a，b三个数组，按相应顺序关系，给a，b赋值（件数和对应单价） ； ②每读入一对数据（件数和对应单价），以同一序号的件数和对应单价计算出同一物品的计价： ? s