pascal数组与字符串

pascal数组与字符串
数组与字符串
6.1 一维数组
6.2 二维数组
6.3 字符串练习与作业
6.1 一维数组
1、定义：
var
a:array [1..10] of integer;
其中：a是这一批数据的名称，称为数组名；array、of是定义数组的保留字；中括号中的数字是数据编号的下限和上限，财时也说明了数据的个数（上限-下限）；最后一个是数据的基类型，如integer，char，real，boolean。

2、数组元素的输入：
数组名代表的并不是一个变量，而是一批变量，因而，不能直接整个数组读入，而是要逐个数组元素读入，通常用循环结构来完成这一功能。

下面是几个常用输入数组元素的例子：for i:=1 to 10 do read(a[i]);
{――――从键盘读入数组元素的值；最常用的方法}
for i:=1 to 10 do a[i]:=i;
{――――数组元素a到a的值分别为1到10；数据赋初值}
for i:=1 to 10 do a[i]:=0;
{――――数组元素清0；最常用的数据初始化的方法}
for i:=1 to 10 do a[i]:=random(100);
{――――随机产生10个100以内的数，赋给各数组元素}
3、数组元素的输出：
和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。

同样要逐个数组元素输出。

通常也用循环结构来完成这一功能：for i:=1 to 10 do write(a[i],' ');{――――数组元素之间用空格分隔}
writeln;
4、数组的应用：
例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.
例2：用筛法求100以内的素数（质数）。

分析：素数是除了1和它本身以外没有其它约数的数。

用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。

把所有非0数输出。

program p2;
var
a:array [1..100] of integer;
i,j,k:integer;
begin
for i:=1 to 100 do a[i]:=i;
a:=0;i:=2;
while i=100 do
begin
k:=i;
while k=100 do
begin
k:=k+i;
a[k]:=0;
end;
{――――上面将所有a[i]的倍数清0}
i:=i+1;
while a[i]=0 do i:=i+1;
{――――查找接下来的第一个非0数}
end;
for i:=1 to 100 do if a[i]0 then write(a[i],' ');
end.
6.2 二维数组
一维数组在编程中多用于描述线性的关系：如一组数；一组成绩；一组解答等。

数组元素只有一个下标，表明该元素在数组中的位置。

二维数组在编程中多数用于描述二维的关系：如地图、棋盘、城市街道、迷宫等等。

而二维数组元素有两个下标：第一个下标表示该元素在第几行，第二个下标表示在第几列。

1.二维数组的定义：
var
a：array[1..10,1..5] of integer；
其中：a是数组名，由程序员自定；array和of是定义数组的保留字；（这两点和一维数组定义的格式一样）中括号中的两个范围表示二维数组共有多少行、多少列（第一个范围表示行数，第二个范围表示列数）；最后一个表示数组元素的类型，规定和一维数组一样。

如上例，定义了一个二维数组a，共有10行5列。

2.使用二维数组：
1、数组元素的指称：数组名[行号，列号]。

如第三行第四个元素：
a[3,4]。

对某一行进行处理。

如累加第4行的数据。

则固定行号为4。

如：for i:=1 to 5 do
s:=s+a[4,i];
对某一列进行处理。

如累加第4列的数据。

则固定列号为4。

如：for i:=1 to 10 do s:=s+a[i,4];
2、二维数组的输入输出要用双重循环来控制：
for i:=1 to 10 do{――――控制行数}
begin
for j:=1 to 5 do read(a[i,j]){――――第一行读入5个元素}
readln;{――――读入一个换行符}
end;
{――――最常用的方法：从键盘读入数据初始化二维数组}
for i:=1 to 10 do
for j:=1 to 5 do a[i,j]:=0;
{――――最常用的方法：将二维数组清0}
for i:=1 to 10 do
begin
for j:=1 to 5 do write(a[i,j]:4);
writeln;
end;
{――――最常用的输出方法：按矩阵形式输出二维数组的值}
例1：竞赛小组共有20位同学，这学期每位同学共参与了三项比赛，请统计每位同学的平均分。

分析：定义一个20行3列的二维数组来存放这些成绩。

定义一个20个元素的一维数组来存放平均分。

program p1;
var
a:array [1..20,1..3] of integer;
b:array [1..20] of real;
i,j:integer;
begin
for i:=1 to 20 do
begin
for j:=1 to 3 do read(a[i,j]);
readln;
end;
{――――从键盘上读入20个同学的三次竞赛成绩}
for i:=1 to 20 do b[i]:=0;
{――――先将平均分数组清0}
for i:=1 to 20 do
begin
for j:=1 to 3 do b[i]:=b[i]+a[i,j];{――――计算总分}
b[i]:=b[i]/3;{――――计算平均分}
end;
for i:=1 to 20 do write(b[i]:5:1);
{――――输出平均分}
writeln;
end.
6.3 字符串
1. 字符串用于存放整批的字符数据。

通常编程中使用字符串存放字符化了的数字数据。

如高精度运算时存放操作数和运算结果。

字符串可以看作是特殊的字符串数组来处理。

当然，它也有自已的特点。

下面是字符串定义的格式：
var
s:string; s1:string;
字符串定义时，如不指定长度，则按该类型的最大长度（255个字符）分配空间，使用时最大可用长度为255个；如果在中括号中给出一个具体的值（1―255之间），则按这个值的大小分配空间。

使用时，最大的可用长度即为该值。

2.字符串的输入、输出：
字符串类型既可按数组方式输入、输出，也可直接输入、输出：readln(s)；writeln(s)；多个字符串输入时以回车作为数据间的分隔符；每个readln语句只能读入一个字符串。

3.有关字符串的操作：
思考与练习：
1、随机产生20个100以内的数，输出；按从小到大的顺序排序，输出。

2、求一个5 X 5数阵中的马鞍数，输出它的位置。

所谓马鞍数，是指在行上最小而在列上最大的数。

如下：
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数。

3、做一个加法器。

完成*****以内的加法，两个加数间用“+”连接，可以连加，回车表示式子输入完成；“#”表示结束运算，退出加法器。