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[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以内的数，赋给各数组元素}

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.