数组与字符串(2个课时)

《数组与字符串(2个课时)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六讲　数组与字符串主讲人：张志刚定义一个一维数组：vara:array[1..10]ofinteger;说明：一、a是这一批数据的名称，称为数组名；二、array、of是定义数组的保留字；三、中括号中的数字是数据编号的下限和上限，说明了数据的个数（上限-下限＋１）；四、最后一个是数组数据的类型，如integer，char，real，boolean。6.1一维数组数组元素的输入：数组名代表的并不是一个变量，而是一批变量，因而，不能直接给整个数组读入数据，而是要逐个数组元素读入，通常用循环结构来完成这一功能。下面是

2、几个常用输入数组元素的例子：fori:=1to10doread(a[i]);{————从键盘读入数组元素的值；最常用的方法}fori:=1to10doa[i]:=i;{————数组元素a[1]到a[10]的值分别为1到10；数据赋初值}fori:=1to10doa[i]:=0;{————数组元素清0；最常用的数据初始化的方法}fori:=1to10doa[i]:=random(100);{————随机产生10个100以内的数，赋给各数组元素}补充语法：fillchar(a,sizeof(a),0){————数组

3、元素清0；数据初始化的一种方法}数组元素的输出：和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能：fori:=1to10dowrite(a[i],'');{————数组元素之间用空格分隔}writeln;数组的应用：例1：从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。vara:array[1..10]ofinteger;i,s:integer;begin    fori:=1to10doread(a[i]

4、);    fori:=10downto1dowrite(a[i],'');writeln;    s:=0;    fori:=1to10dos:=s+a[i];writeln('s=',s);end.例2：用筛法求100以内的素数（质数）。算法描述：素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。v

5、ara:array[1..100]ofinteger;i,j,k:integer;begin    fori:=1to100doa[i]:=i;{建立１－１００数字筛}a[1]:=0;i:=2;｛赋值｝whilei<=100do    begin        k:=i;        whilek<=100do        begin            k:=k+i;a[k]:=0;        end;        {————上面将所有a[i]的倍数清0}        i:=i

6、+1;        whilea[i]=0doi:=i+1;        {————查找接下来的第一个非0数}    end;    fori:=1to100doifa[i]<>0thenwrite(a[i],'');end.一维数组在编程中多用于描述线性的关系：如一组数；一组成绩；一组解答等。数组元素只有一个下标，表明该元素在数组中的位置。二维数组在编程中多数用于描述二维的关系：如地图、棋盘、城市街道、迷宫等等。而二维数组元素有两个下标：第一个下标表示该元素在第几行，第二个下标表示在第几列。6.２

7、二维数组7-17二维数组的定义：vara：array[1..10,1..5]ofinteger；一、其中：a是数组名，由程序员自定；二、array和of是定义数组的保留字；（这两点和一维数组定义的格式一样）三、中括号中的两个范围表示二维数组共有多少行、多少列（第一个范围表示行数，第二个范围表示列数）；四、最后一个表示数组元素的类型，规定和一维数组一样。如上例，定义了一个二维数组a，共有10行5列。二维数组的输入输出要用双重循环来控制：fori:=1to10do{————控制行数}begin    forj:=

8、1to5doread(a[i,j]){————第一行读入5个元素}readln;{————读入一个换行符}end;{————最常用的方法：从键盘读入数据初始化二维数组}fori:=1to10do    forj:=1to5doa[i,j]:=0;{————最常用的方法：将二维数组清0}fori:=1to10dobegin    forj:=1to5dowrite(