PASCAL语言数组1

明这些下标变量的整体― 数组，即数组是若干个同名（如上面的下标变量的名字都为a）下 标变量的集合，这些变量的类型全部一致。
一维数组
当数组中每个元素只带有一个下标时，我们称这样的数组为 一维数组。
一维数组的定义
（1）类型定义 类型定义一般格式为： type <标识符>=<类型>; 其中type是Pascal保留字,表示开始一个类型定义段。在其后可以定 义若干个自定义的数据类型。<标识符>是为定义的类型取的名字, 称它为 类型标识符。 类型定义后，也就确定了该类型数据取值的范围，以及数据所能执 行的运算。和Pascal提供的标准类型如integer、real等没什么区别。 （2）一维数组类型的定义 一维数组类型的一般格式： var 数组名：array[下标1..下标2] of <基类型>; 对于上例： a : array [1..50] of integer;
说明：其中array和of是Pascal保留字。下标1和下标2 是同一顺序类型,可以整 型、字符型、布尔型、子界型一般采用子界型，且下标2的序号大于下标1的 序号。它给出了数组中每个元素(下标变量) 允许使用的下标类型，也决定了 数组中元素的个数。基类型是指数组元素的类型，它可以是任何类型，同一 个数组中的元素全部具有相同类型。因此我们可以说，数组是由固定数量的 相同类型的元素组成的。 子界类型其中下标范围1..10的类型为子界类型（所谓子界类型，是指取一 种数据类型的一部分作为新的数据类型），表明数组元素的个数为10个。其 中1称为子界类型的“下界”，10称为子界类型的“上界”，上界和下界必须 是同一个顺序类型，即同为整型、字符型或布尔型等，但不能是实型。也就 是说，子界类型决定了该类型变量可以取值的范围（介于下界与上界之间）。 在这里，下界和上界必须是属于同一个有序类型的常量，且下界的序号必须 小于上界的序号（即前面的必须小于后面的）。 再次提醒注意：类型和变量是两个不同概念，不能混淆。就数组而言， 程序的执行部分使用的不是数组类型而是数组变量。 数组的另一种定义形式，先定义数组的类型标识符，再定义数组，如： type array1 = array[1..8]of integer; var a1,a2 : array1; 其中array1为一个类型标识符,表示一个下标值从1到 8,数组元素类型为整 型的一维数组；而a1,a2则是这种类型的数组变量，代表二个数组。 我们平时更多的是将二者全并起来，直接定义： var a1,a2 : array[1..8]of integer;
a数组共有10个元素组成，在内存中10个数组 元素共占10个连续的存储单元。a数组最小下标为 1，最大下标10。按定义a数组所有元素都是整型 变量。
一维数组元素的赋值操作
数组元素的引用形式为：数组名[下标表达式]。 数组一经定义后, 数组元素就具有简单变量一样的性质,使用时必须写出 下标。 对于一维数组变量的赋值有两种形式：一是对各数组元素赋值，二是对 数组所有元素整体赋值。 例如：设有下列变量定义 var a1, a2 : array[1..20] of integer; i : integer; 执行下列语句： for i := 1 to 20 do a1[i] := 1; //数组元素赋值 a2 := a1; //两个数组只要结构 (元素个数和类型) 相 同，就可以整体赋值 这个程序片段的功能是将一维整型数组变量a1、a2的所有数组元素都初 始化赋值为1，前面的循环语句是逐个赋值，最后一个赋值语句是两个一维 数组间的整体赋值，其作用相当于把数组a1中每一个数组元素的值分别赋给 数组a2中相应的元素，这要求两个数组具有相同类型和一样的下标范围。
例 输入10个数,要求程序按输入时的逆序把这10个数 打印出来。也就是说，按输入相反顺序打印这10个数。
【分析】我们可定义一个数组a用以存放输入的50个数, 然后将 数组a中的内容逆序输出。 program ex5_1; type arr=array[1..10]of integer; //说明一数组类型arr var a:arr;i:integer; begin writeln('Enter 10 integer:'); for i:=1 to 10 do read(a[i])； //从键盘上输入10个整数 readln; //读入时起换行作用 for i:=10 downto 1 do //逆序输出这10个数 write(a[i]:10); end.
运行结果 : read 10 datas: 1 2 3 4 5 6 7 8 9 10 Result: 2 3 4 5 6 7 8 9 10 1
Program ex2; const n=10; var a:array[1..n] of integer; i:integer; temp:integer; begin writeln(‘read',n,'datas'); 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; writeln(‘Result:'); for i:=1 to n do write(a[i]:3); end.
运行结果 cabc*&^8796abcaa? a 4 b 2 c 3
2、 将a数组中第一个元素移到最后数组末尾,其余数据依 次往前平移一个位置。 【分析】 为完成题目所要求的操作，其算法应该包括以下几个主要 步骤： ①把第一个元素的值取出放在一个临时单元 temp中； ②通过 a[2]→a[1], a[3]→a[2], a[4]→a[3]，……， a[n]→a[n-1],实现其余元素前移 ③将 temp值送入a[n].
在这里引用了带下标的变量（分量变量称为数组元素）a[i]来 代替a1,a2…,a50,方括号中的i称为下标，当循环变量i=1时a[i]就是 a[1]；当i=2时a[i]就是a[2]……；当i=50时a[i]就是a[50]。输入的时 候，让i从1变化到50，循环体内输入语句中的a[i]也就分别代表了 a1,a2…,a50这50个带下标的变量。这样上述问题的程序可写为：
tot := 0; // tot存储50个学生的总分 for i := 1 to 50 do // 循环读入每一个学生的成绩，并把它累加到总分中 begin read(a[i]); tot := tot+a[i]; end; ave := tot/50; //计算平均分 for i := 1 to 50 do if a[i]<ave then writeln('No.',i,' ',a[i]); //如果第i个同学成绩小于平均分，则将输出这个学生的序号和成绩。
PASCAL语言
为什么要使用数组
通过前面几天的学习，我们已经可以编写程序来解决各种相当复杂的 问题了，但是当需要处理的数据比较多时，仅依靠前面的知识是不够的，即 使简单的问题也可能需要比较复杂的程序来处理。请看下面的例子： 例题 输入50个学生的某门课程的成绩，打印出低于平均分的学生序号 与成绩。 【分析】 在解决这个问题时，虽然可以通过一个变量来累加读入的50 个成绩求出学生的总分，进而求出平均分。但因为只有读入最后一个学生的 分数后才能求得平均分，并且要求打印出低于平均分的学生序号和成绩，故 必须把50个学生的成绩都保留起来， 然后逐个和平均分比较，把低于平均 分的成绩打印出来。如果，用简单变量a1，a2,…，a50存储这些数据，要用 50个变量保存输入的数据，程序片断如下： readln(a1,a2…,a10); … readln(a41,a42,…,a50) 注意，如果真正要像上面这样编写程序，则上面的所有省略号必须用 完整的语句写出来。可以看出，这样的程序是多么繁琐。如果说处理的数据 规模达到成千上万，上面的例子单单读入就会异常复杂，电脑的特点没有得 到体现。
一维数组的引用
一维数组元素的输入 不能整个数组输入，只能逐个元素赋值 a[i] ：= x ； 一般用FOR循环做。如： For i := 1 to 7 do read(a [ i ]); 一维数组元素的输出 不能整个数组一起输出，只能逐个元素输出 Write(a [i])； 一般用FOR循环做。如： For i := 1 to 7 do write(a[i])；
1、 输入一串字符，以'?'结束，统计其中每个字母 出现的次数。
【分析】 为了简单起见，只考虑每个小写字母出现的次数。为记 录每个字母出现的次数，定义一个由26个元素组成的数组， 下标类型是字符，元素类型为整型。 如：num : array['a'..'z'] of integer; 用num['a']记录字母a出现的次数，用num['b']记录字母b 出现的次数，…… 开始应将num的每个元素置成0，其实所有变量的初始 值都为0。 当读入的字符不是'?'时，应判断它是否为字母，若是则 应将相应字母计数加1。此时需判断哪个字母，只要将读入 的字母作为下标，就可以找出相应的数组元素，将它加1即 可。若读入的字符是'?'则结束循环，最后输出统计结果。
程序如下： Program ex5_2; var num : array['a'..'z'] of integer; ch : char; begin for ch := 'a' to 'z' do //等价于 fillchar(num,sizeof(num),0); num[ch] := 0; read(ch); while ch<>'?' do begin if (ch>='a') and (ch<='z') then //判断是否为小写字母 num[ch] := num[ch]+1; read(ch); end; readln; //换行和暂停 for ch := 'a' to 'z' do if num[ch]<>0 then wrtieln(ch,' ',num[ch]); end.