pascal中子界类型数组类型讲解

1、Pascal变量类型子界类型、数组类型1目录子界类型.1 描述.1 定义.2 习题 1 年级人数.4数组类型.5 描述.5 定义.6单击此处浏览目录第二页。2目录 读入、输出.10 定位.16 习题 2数字方阵.18单击此处浏览目录第一页。3子界类型之描述 子界类型属于一种自定义类型，在FreePascal中可以对变量值得范围进行控制，从而更大可能增加程序的可靠性，不必对输入范围超出可认定范围而枉费心血去加判断语句。同时，在定义数组类型的变量中，也需要用到这种子界类型。014子界类型之定义02 子界类型有两种定义方法分别如下。 第一种： type 名称 =下界.上界; 变量名:你之前给type

2、后面写的名字; 例如： type apple=1.100; var score:apple;5子界类型之定义03 第二种： 变量名：下界.上界; 例如： var score:1.100;注意点： 变量范围必须是字符型或整数类型。和case语句相同。6习题 1 年级人数04【题目描述】 已知一年级有400人，二年级有500人，三年级501人，四年级450人，五年级510人，六年级600人。输入年级数，之后输出年纪人数。年级数必须是1到6,否则报错。【输入要求】 【输入样例1】 一个1到6的整数。 6【输出要求】 【输出样例1】 整数类型，场宽5。 600【输入样例2】 【输出样例2】 7 （报错

3、）查看答案7习题 1 答案04A8数组类型之描述05 数组可以被看做同一类型的多个数据的一个集合。用数组下标（编号）来区分或指定每一个数组元素。FreePascal能开数组空间数量比Tubbo Pascal多很多。因此，在需要特别多空间进行数据存储时，建议使用FreePascal进行程序的编写。9一维数组之定义 一维数组有两种定义方式，分别如下： 第一种:type 自定义名称=array下界.上界 of 数据类型; var 变量名:自定义名称; 例如:type dress=array1.100 of integer; var a:dress; 注：刚才我们定义的一维数组相当于一张1行，100列

4、的表格。0610一维数组之定义 一维数组有两种定义方式，分别如下： 第二种:var 变量名:array下界.上界 of 数据类型; 例如:var a:array1.100 of longint; 0711二维数组之定义08 二维数组有两种定义方式，分别如下： 第一种:type 自定义名称=array行下标值，列下标值 of 数据类型; var 变量名:自定义名称; 例如:type dress=array1.50,1.100 of integer; var a:dress; 注：刚才我们定义的二维数组相当于一张50行，100列的表格。12二维数组之定义 二维数组有两种定义方式，分别如下： 第二种

5、:var 变量名:array行下标值，列下标值 of 数据类型; 例如:var a:array1.50,1.100 of longint; 注：行下标值、列下标值可以不从1开始。0913一维数组之读入、输出 一维数组的全部读入需要一个循环变量，下面是读入所有元素的程序：var a:array1.100 of integer; i:integer;begin for i:=1 to 100 do read(ai);end.1014一维数组之读入、输出 一维数组的全部输出需要一个循环变量，下面是输出所有元素的程序（末尾有空格）：var a:array1.100 of integer; i:inte

6、ger;begin for i:=1 to 100 do write(ai, );end.1115一维数组之读入、输出 如果末尾不能有空格，那么程序就是这样的：var a:array1.100 of integer; i:integer;begin write(a1); for i:=2 to 100 do write( ,ai);end.1216二维数组之读入、输出 二维数组的全部读入需要两个循环变量，靠外的一层控制行，另一层循环控制列，下面是读入所有元素的程序：var a:array1.100,1.100 of integer; i,j:integer;begin for i:=1 to

7、100 do for j:=1 to 100 do read(ai,j);end. 1317二维数组之读入、输出 二维数组的全部输出需要两个循环变量，下面是输出所有元素的程序（末尾有空格）：var a:array1.100,1.100 of integer; i,j:integer;begin for i:=1 to 100 do for j:=1 to 100 do write(ai,j, );end.1418二维数组之读入、输出 如果末尾不能有空格，那么程序就是这样的：var a:array1.100,1.100 of integer; i,j:integer;beginfor i:=1

8、to 100 do write(i,1); for j:=2 to 100 do write( ,ai,j);end.1519一维数组之定位16100999810099.5 a1 a2 a3 a4 a5这是一个有5个元素的一维数组，假如说输出其中一个元素，那么程序解释如下： write(a下标);假如要读入第五个元素，那么程序是这样的，其他操作以此类推： read(a5);20二维数组之定位1710099.599100100979910099.5969810088959796.521二维数组之定位 之前呈现的是一个四行四列的二维数组，一般输出某个内容的程序是这样的： write（行号，列号）；例如输出第三行第四列的程序是： write(3,4);剩下的以此类推。1822习题2数字方阵【题目描述】 读入一个数字，利用二维数组根据要求和样例输出数字方阵。【输入要求】 【输出要求】 一个整数。 每个数字场宽为三。【输入样例】 4【输出样例】 1 2 3 4 5 6 7 8 9 10 11 12 13 14 45 1619查看答案23习题 2 答案var a:array1.100,1.100 of integer;