数组类型(一维数组).ppt

《数组类型(一维数组).ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PASCAL程序设计数组类型—一维数组数组的引入例1：输入30个同学的数学成绩，打印出低于平均分的同学的学号与成绩。用已学知识编程：vara1,a2,a3,...,a30,s,p:real;{成绩,总分,平均分}x1,x2,x3,…,x30:integer;{学号}beginread(a1,a2,a3,...,a30)；read(x1,x2,x3,...,x30)；s:=a1+a2+a3+...+a30;p:=s/30ifa1

2、的学号与成绩。引入下标变量a[i]能使该程序简单s:=0;{s表示总分}fori:=1to30dobeginread(a[i]);s:=s+a[i];end;p:=s/30;｛计算平均分｝fori:=1to30doifa[i]

3、性语句的功能。如：fori:=1to30dobeginread(a[i]);s:=s+a[i];end;｛修改下标变量的下标值｝｛处理数组的各个下标变量｝定义一维数组一维数组类型定义的格式：数组类型名＝array[下标类型]of元素类型;arraytype=array[1..10]ofinteger;{定义数组类型｝P140程序中使用数组必须遵守“先定义，后使用”的原则type数组类型名下标类型元素类型下界上界vars:arraytype;{说明数组变量｝数组变量名变量的数据类型或者写成：vars:array[1..10]ofintege

4、r;12345678910s数组变量s的分量取值范围：s[1],s[2],s[3],…,s[9],s[10]定义一维数组常量一维数组常量定义的格式：数组常量名:数组类型名＝（初值1,初值2,…,初值n）例：constp:array[1..10]ofinteger=(3,6,2,9,0,4,1,7,23,43);P14012345678910s‘3’‘6’‘2’‘9’‘0’‘4’‘1’‘7’‘a’‘f’12345678910p362904172343等价于：p[1]:=3,p[2]:=6,…,p[10]:=43若数组元素是字符型，则有：co

5、nsts:array[1..10]ofchar=(‘3’,’6’,’2’,’9’,’0’,’4’,’1’,’7’,’a’,’f’)=‘36290417af’计数平移3.排序杨辉三角形阶乘(高精度乘法)一维数组应用例2：输入一段以句号结尾的英文，统计并输出句中各字母出现的次数。假设句中没有大写字母。思路：1.需要设置一个下标类型为子界型‘a’..‘z’的一维数组n,存放各字母出现次数。n:array['a'..'z']ofinteger;nabcd…xyz数组型元素n[c]数组变量n的下标数组变量名2.初始化数组：fillchar(n,si

6、zeof(n),0)3.输入：xdbaxcdb.4.输出数组：000000000011chcxdbaxd.11b1222计数设置输出格式控制变量初值按规定列数换行输出该字母出现次数某字母出现过输出各字母出现次数该字母计数是字母读入字符直到读到‘.’为止初始化n数组，清0TFFTvarch:char;n:array['a'..'z']ofinteger;k:0..4;计数beginfillchar(n,sizeof(n),0);{给count的每个元素赋初值0｝repeatread(ch);if(ch>='a')and(ch<='z')th

7、enn[ch]:=n[ch]+1untilch='.';k:=0;forch:='a'to'z'doifn[ch]>0thenbeginwrite(ch:3,’:’,n[ch]);k:=(k+1)mod4;ifk=0thenwritelnend；end.{如果句子中出现过与下标相同的字母}{输出该字母以及出现的次数}{给计数器赋初值}{每行只输出4列}{读入字符}k←04列就　换行Write(ch:3,’:’,n[ch]n[ch]>0Ch←‘a’~’z’n[ch]←n[ch]+1ch>=‘a’&ch<=‘z’read(ch)nutilch

8、=‘.’Fillchar(n,sizeof(n),0)TFFT例3：从键盘输入n个整数a1,a2,…,ak,ak+1,…an对其进行平移处理，按ak+1,…,an,a1,a2,…,ak,ak+