数组(pascal程序语言基础)课件.ppt

数组(pascal程序语言基础)课件.ppt

ID:57016733

大小:324.50 KB

页数:16页

时间:2020-07-26

数组(pascal程序语言基础)课件.ppt_第1页
数组(pascal程序语言基础)课件.ppt_第2页
数组(pascal程序语言基础)课件.ppt_第3页
数组(pascal程序语言基础)课件.ppt_第4页
数组(pascal程序语言基础)课件.ppt_第5页
资源描述:

《数组(pascal程序语言基础)课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、数组类型——一维数组主要内容:一维数组及其应用2006/9/1一、数组的引入例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、(a[i]);s:=s+a[i];end;定义一维数组一维数组类型定义的格式:  数组类型名=array[下标类型]of元素类型;arraytype=array[1..10]ofinteger;{定义数组类型}P140程序中使用数组必须遵守“先定义,后使用”的原则type数组类型名下标类型元素类型下界上界vars:arraytype;{说明数组变量}数组变量名变量的数据类型或者写成:vars:array[1..10]ofinteger;12345678910s数组变量s的分量取值范围:s[1],s[2],s[3],…,s[9],s[10]方括号中的“下标类型”可以是任何的顺序类型

4、,即可以是整型,布尔型,字符类型,枚举类型,子界类型typecolor=(red,yellow,blue,white,black);rowtype=array[1..10]ofreal;inttype=array[‘A’..’E’]ofinteger;colortype=array[color]ofchar;vara:rowtype;b:inttype;c:colortype;a[1]a[2]a[3]a[4]a[5]a[6]a[7]a[8]a[9]a[10]b[‘A’]b[‘B’]b[‘C’]b[‘D’]b[‘E’]a数组的存储结构c[red]c[yellow]c[blue]c[

5、white]c[black]b数组的存储结构c数组的存储结构确定了数组中访问数组元素下标的类型。规定了数组元素可用下标的上,下界。规定了该数组中元素的个数。数组定义中下标类型的作用定义一维数组常量一维数组常量定义的格式:  数组常量名:数组类型名=(初值1,初值2,…,初值n)例:constp:array[1..10]ofinteger=(3,6,2,9,0,4,1,7,23,43);12345678910s‘3’‘6’‘2’‘9’‘0’‘4’‘1’‘7’‘a’‘f’12345678910p362904172343等价于:p[1]:=3,p[2]:=6,…,p[10]:=43若数

6、组元素是字符型,则有:consts: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,sizeof(n),0)3.输入:xd

7、baxcdb.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')a

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。