Pascal中子界类型、数组类型讲解

《Pascal中子界类型、数组类型讲解》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Pascal变量类型子界类型、数组类型目录子界类型....................1描述.........................................1定义.........................................2习题1——年级人数.........4数组类型....................5描述.........................................5定义.............................

2、............6单击此处浏览目录第二页。目录读入、输出...........................10定位.........................................16习题2——数字方阵..........18单击此处浏览目录第一页。子界类型之描述子界类型属于一种自定义类型，在FreePascal中可以对变量值得范围进行控制，从而更大可能增加程序的可靠性，不必对输入范围超出可认定范围而枉费心血去加判断语句。同时，在定义数组类型的变量中，也需要用到这种子界类型

3、。01子界类型之定义02子界类型有两种定义方法分别如下。第一种：type名称=下界..上界;变量名:你之前给type后面写的名字;例如：typeapple=1..100;varscore:apple;子界类型之定义03第二种：变量名：下界..上界;例如：varscore:1..100;注意点：变量范围必须是字符型或整数类型。和case语句相同。习题1——年级人数04【题目描述】已知一年级有400人，二年级有500人，三年级501人，四年级450人，五年级510人，六年级600人。输入年级数，之后输出年

4、纪人数。年级数必须是1到6,否则报错。【输入要求】【输入样例1】一个1到6的整数。6【输出要求】【输出样例1】整数类型，场宽5。600【输入样例2】【输出样例2】7（报错）查看答案习题1答案04A数组类型之描述05数组可以被看做同一类型的多个数据的一个集合。用数组下标（编号）来区分或指定每一个数组元素。FreePascal能开数组空间数量比TubboPascal多很多。因此，在需要特别多空间进行数据存储时，建议使用FreePascal进行程序的编写。一维数组之定义一维数组有两种定义方式，分别如下：第一

5、种:type自定义名称=array[下界..上界]of数据类型;var变量名:自定义名称;例如:typedress=array[1..100]ofinteger;vara:dress;注：刚才我们定义的一维数组相当于一张1行，100列的表格。06一维数组之定义一维数组有两种定义方式，分别如下：第二种:var变量名:array[下界..上界]of数据类型;例如:vara:array[1..100]oflongint;07二维数组之定义08二维数组有两种定义方式，分别如下：第一种:type自定义名称=ar

6、ray[行下标值，列下标值]of数据类型;var变量名:自定义名称;例如:typedress=array[1..50,1..100]ofinteger;vara:dress;注：刚才我们定义的二维数组相当于一张50行，100列的表格。二维数组之定义二维数组有两种定义方式，分别如下：第二种:var变量名:array[行下标值，列下标值]of数据类型;例如:vara:array[1..50,1..100]oflongint;注：行下标值、列下标值可以不从1开始。09一维数组之读入、输出一维数组的全部读入需

7、要一个循环变量，下面是读入所有元素的程序：vara:array[1..100]ofinteger;i:integer;beginfori:=1to100doread(a[i]);end.10一维数组之读入、输出一维数组的全部输出需要一个循环变量，下面是输出所有元素的程序（末尾有空格）：vara:array[1..100]ofinteger;i:integer;beginfori:=1to100dowrite(a[i],’‘);end.11一维数组之读入、输出如果末尾不能有空格，那么程序就是这样的：va

8、ra:array[1..100]ofinteger;i:integer;beginwrite(a[1]);fori:=2to100dowrite(‘‘,a[i]);end.12二维数组之读入、输出二维数组的全部读入需要两个循环变量，靠外的一层控制行，另一层循环控制列，下面是读入所有元素的程序：vara:array[1..100,1..100]ofinteger;i,j:integer;beginfori:=1to100doforj:=1to100dore