复习Pascal-数组1.pptVIP

* JSOI2009年大丰冬令营（B层） 程序设计 P ascal 数 组(一) 1、一维数组 Type 类型标识符号=array [下标类型] of 元素类型； Var 数组名：类型标识符； or Var 数组名：array[下标类型] of 元素类型； 定义： 例6-1定义如下数组： （1）表示20种商品的价格； （2）表示30件邮件 的安全邮递情况； （3）统计50个学生在一次考试（满分为100，最低分为0分）中各分数 的分布情况； （4）统计一篇文章中各字母的出现频率（所有字母均小写）。 Var price:array[1..20] of real; mail:array[1..30] of boolean; score:array[0..100] of integer; number:array[‘a’..’z’] of integer; 共有20个实型数，price[1]-price[20] 共有50个布尔型数，mail[1]-mail[30] 共有101个整型数，score[0]-score[100] 共有26个整型数，number[‘a’]-number[‘z’] 想一想：下列数组这定义对不对，如不对，为什么？ Var a:array[1..n] of char; b:array[10..1] of integer; c:array[integer] of boolean; d:array[1.0..3.0] of real; e:array[1..50000] of real; 说明：a数组中n为变量； b数组中，下标的上下界应从小到大； c、e数组元素个数太多，空间分配不够； d数组下标为实型，不是有序类型。 一维数组的基本操作： 1、数组的赋值、输入、输出 例6-1 按顺序读入10个数，再以逆序的方式输出。 分析：可以定义一个10个元素的数组，用循环读入、输出。 Program ex10-1(input,output); var x: array[1..10] of integer; I: integer; begin for I:=1 to 10 do read(x[I]); writeln(‘fanxushuchu:’); for I:=10 downto 1 do write(x[I]:3); end. 本例将数组下标作为循环变量，便于数组的输入、输出 运行结果： 10 31 0 -27 78 90 9 1 –4 8 21 21 8 –4 1 9 90 78 –27 0 31 10 fanxushuchu: 数组元素的赋值可以用赋值语句。 2、数组元素的移动 例6-2 将a数组中第一个元素移动到最后数组末尾，其余数据依次往前平移一个位置。P85 分析：（1）先将第一个元素取出放在临时单元中； （2）将a[2]?a[1]、a[3]?a[2]…a[n]?a[n-1] （3）再将临时单元temp?a[n] Program ex6-2(input,output); const n=10; var a:array[1..n] of integer; I:integer; temp:integer; begin for I:=1 to n do read(a[I]); temp:=a[1]; for I:=1 to n-1 do a[I]:=a[I+1]; a[n]:=temp; for I:=1 to n do write(a[I]:3); End. 思考：如果将最后一个元素移到第一个位置，其余数据依次向后平移一个位置，如何修改？如果将数组实现逆序交换，又该如何修改程序？ … 1 2 3 4 n-1 n 2 3 4 n-1 n 1 … 例6-3 对于数组a，输入一个测试数据x，如果x存于数组a，则把x元素删除；否则将x插在相应的位置，要求数组仍然有序（假设数组递增) 分析：本题是一个查找问题。查找的最常用方法是顺序查找和二分查找。我们先采用顺序查找，二分查找以后再讲。 顺序查找的过程是：从头