帕斯卡数组和字符串.docVIP

第六章 数组与字符串 HYPERLINK file:///C:\\Documents%20and%20Settings\\Administrator\\Local%20Settings\\Temp\\14.htm \l p22#p22 6.1 一维数组 HYPERLINK file:///C:\\Documents%20and%20Settings\\Administrator\\Local%20Settings\\Temp\\14.htm \l p23#p23 6.2 HYPERLINK file:///C:\\Documents%20and%20Settings\\Administrator\\Local%20Settings\\Temp\\14.htm \l p23#p23 二维数组 HYPERLINK file:///C:\\Documents%20and%20Settings\\Administrator\\Local%20Settings\\Temp\\14.htm \l p24#p24 6.3 字符串 HYPERLINK file:///C:\\Documents%20and%20Settings\\Administrator\\Local%20Settings\\Temp\\14.htm \l zy#zy 练习与作业 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. ?例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[1]:=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;??????