《Pascal中子界类型、数组类型讲解.ppt》由会员分享，可在线阅读，更多相关《Pascal中子界类型、数组类型讲解.ppt（25页珍藏版）》请在三一文库上搜索。
1、Pascal变量类型,子界类型、数组类型,目录,子界类型1 描述.1 定义.2 习题 1 年级人数.4 数组类型5 描述.5 定义.6,单击此处浏览目录第二页。,目录,读入、输出.10 定位.16 习题 2数字方阵18,单击此处浏览目录第一页。,子界类型之描述,子界类型属于一种自定义类型，在FreePascal中可以对变量值得范围进行控制，从而更大可能增加程序的可靠性，不必对输入范围超出可认定范围而枉费心血去加判断语句。同时，在定义数组类型的变量中，也需要用到这种子界类型。,01,子界类型之定义,02,子界类型有两种定义方法分别如下。 第一种： type 名称 =下界上界; 变量名:你之前给t
2、ype后面写的名字; 例如： type apple=1100; var score:apple;,子界类型之定义,03,第二种： 变量名：下界上界; 例如： var score:1100;,注意点： 变量范围必须是字符型或整数类型。和case语句相同。,习题 1 年级人数,04,【题目描述】 已知一年级有400人，二年级有500人，三年级501人，四年级450人，五年级510人，六年级600人。输入年级数，之后输出年纪人数。年级数必须是1到6,否则报错。 【输入要求】 【输入样例1】 一个1到6的整数。 6 【输出要求】 【输出样例1】 整数类型，场宽5。 600 【输入样例2】 【输出样例2
3、】 7 （报错）,查 看 答 案,习题 1 答案,04A,数组类型之描述,05,数组可以被看做同一类型的多个数据的一个集合。用数组下标（编号）来区分或指定每一个数组元素。FreePascal能开数组空间数量比Tubbo Pascal多很多。因此，在需要特别多空间进行数据存储时，建议使用FreePascal进行程序的编写。,一维数组之定义,一维数组有两种定义方式，分别如下： 第一种:type 自定义名称=array下界上界 of 数据类型; var 变量名:自定义名称; 例如:type dress=array1100 of integer; var a:dress; 注：刚才我们定义的一维数组相
4、当于一张1行，100列的表格。,06,一维数组之定义,一维数组有两种定义方式，分别如下： 第二种:var 变量名:array下界上界 of 数据类型; 例如:var a:array1100 of longint;,07,二维数组之定义,08,二维数组有两种定义方式，分别如下： 第一种:type 自定义名称=array行下标值，列下标值 of 数据类型; var 变量名:自定义名称; 例如:type dress=array150,1100 of integer; var a:dress; 注：刚才我们定义的二维数组相当于一张50行，100列的表格。,二维数组之定义,二维数组有两种定义方式，分别如
5、下： 第二种:var 变量名:array行下标值，列下标值 of 数据类型; 例如:var a:array150,1100 of longint; 注：行下标值、列下标值可以不从1开始。,09,一维数组之读入、输出,一维数组的全部读入需要一个循环变量，下面是读入所有元素的程序： var a:array1100 of integer; i:integer; begin for i:=1 to 100 do read(ai); end.,10,一维数组之读入、输出,一维数组的全部输出需要一个循环变量，下面是输出所有元素的程序（末尾有空格）： var a:array1100 of integer;
6、i:integer; begin for i:=1 to 100 do write(ai, ); end.,11,一维数组之读入、输出,如果末尾不能有空格，那么程序就是这样的： var a:array1100 of integer; i:integer; begin write(a1); for i:=2 to 100 do write( ,ai); end.,12,二维数组之读入、输出,二维数组的全部读入需要两个循环变量，靠外的一层控制行，另一层循环控制列，下面是读入所有元素的程序： var a:array1100,1100 of integer; i,j:integer; begin fo
7、r i:=1 to 100 do for j:=1 to 100 do read(ai,j); end.,13,二维数组之读入、输出,二维数组的全部输出需要两个循环变量，下面是输出所有元素的程序（末尾有空格）： var a:array1100,1100 of integer; i,j:integer; begin for i:=1 to 100 do for j:=1 to 100 do write(ai,j, ); end.,14,二维数组之读入、输出,如果末尾不能有空格，那么程序就是这样的： var a:array1100,1100 of integer; i,j:integer; beg
8、in for i:=1 to 100 do write(i,1); for j:=2 to 100 do write( ,ai,j); end.,15,一维数组之定位,16,a1 a2 a3 a4 a5,这是一个有5个元素的一维数组，假如说输出其中一个元素，那么程序解释如下： write(a下标); 假如要读入第五个元素，那么程序是这样的，其他操作以此类推： read(a5);,二维数组之定位,17,二维数组之定位,之前呈现的是一个四行四列的二维数组，一般输出某个内容的程序是这样的： write（行号，列号）； 例如输出第三行第四列的程序是： write(3,4); 剩下的以此类推。,18,习
9、题2数字方阵,【题目描述】 读入一个数字，利用二维数组根据要求和样例输出数字方阵。 【输入要求】 【输出要求】 一个整数。 每个数字场宽为三。 【输入样例】 4 【输出样例】 1 2 3 4 5 6 7 8 9 10 11 12 13 14 45 16,19,查 看 答 案,习题 2 答案,var a:array1100,1100 of integer; n,i,j,k:longint; begin read(n); k:=1 for i:=1 to n do begin for j:=1 to n do begin write(k:3); k:=k+1; end; writeln; end; end.,The end.,