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

Pascal中子界类型数组类型讲解第1页/共25页目录

读入、输出...........................10

定位.........................................16

习题2——数字方阵..........18单击此处浏览目录第一页。第2页/共25页子界类型之描述

子界类型属于一种自定义类型，在FreePascal中可以对变量值得范围进行控制，从而更大可能增加程序的可靠性，不必对输入范围超出可认定范围而枉费心血去加判断语句。同时，在定义数组类型的变量中，也需要用到这种子界类型。01第3页/共25页子界类型之定义02

子界类型有两种定义方法分别如下。第一种：

type名称=下界..上界;

变量名:你之前给type后面写的名字;

例如：

typeapple=1..100;varscore:apple;第4页/共25页子界类型之定义03

第二种：变量名：下界..上界;

例如：

varscore:1..100;注意点：变量范围必须是字符型或整数类型。和case语句相同。第5页/共25页习题1——年级人数04【题目描述】

已知一年级有400人，二年级有500人，三年级501人，四年级450人，五年级510人，六年级600人。输入年级数，之后输出年纪人数。年级数必须是1到6,否则报错。【输入要求】【输入样例1】

一个1到6的整数。6【输出要求】【输出样例1】

整数类型，场宽5。600【输入样例2】【输出样例2】7（报错）查看答案第6页/共25页习题1答案04A第7页/共25页数组类型之描述05

数组可以被看做同一类型的多个数据的一个集合。用数组下标（编号）来区分或指定每一个数组元素。FreePascal能开数组空间数量比TubboPascal多很多。因此，在需要特别多空间进行数据存储时，建议使用FreePascal进行程序的编写。第8页/共25页一维数组之定义

一维数组有两种定义方式，分别如下：第一种:type自定义名称=array[下界..上界]of数据类型;var变量名:自定义名称;

例如:typedress=array[1..100]ofinteger;vara:dress;

注：刚才我们定义的一维数组相当于一张1行，100列的表格。06第9页/共25页一维数组之定义

一维数组有两种定义方式，分别如下：第二种:var变量名:array[下界..上界]of数据类型;

例如:vara:array[1..100]oflongint;

07第10页/共25页二维数组之定义08

二维数组有两种定义方式，分别如下：第一种:type自定义名称=array[行下标值，列下标值]of数据类型;var变量名:自定义名称;

例如:typedress=array[1..50,1..100]ofinteger;vara:dress;

注：刚才我们定义的二维数组相当于一张50行，100列的表格。第11页/共25页二维数组之定义

二维数组有两种定义方式，分别如下：第二种:var变量名:array[行下标值，列下标值]of数据类型;

例如:vara:array[1..50,1..100]oflongint;

注：行下标值、列下标值可以不从1开始。09第12页/共25页一维数组之读入、输出

一维数组的全部读入需要一个循环变量，下面是读入所有元素的程序：vara:array[1..100]ofinteger;i:integer;beginfori:=1to100doread(a[i]);end.10第13页/共25页一维数组之读入、输出

一维数组的全部输出需要一个循环变量，下面是输出所有元素的程序（末尾有空格）：vara:array[1..100]ofinteger;i:integer;beginfori:=1to100dowrite(a[i],’

‘);end.11第14页/共25页一维数组之读入、输出

如果末尾不能有空格，那么程序就是这样的：vara:array[1..100]ofinteger;i:integer;beginwrite(a[1]);fori:=2to100dowrite(‘

‘,a[i]);end.12第15页/共25页二维数组之读入、输出

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

13第16页/共25页二维数组之读入、输出

二维数组的全部输出需要两个循环变量，下面是输出所有元素的程序（末尾有空格）：vara:array[1..100,1..100]ofinteger;i,j:integer;beginfori:=1to100doforj:=1to100dowrite(a[i,j],’

‘);end.14第17页/共25页二维数组之读入、输出

如果末尾不能有空格，那么程序就是这样的：vara:array[1..100,1..100]ofinteger;i,j:integer;beginfori:=1to100dowrite(i,1);forj:=2to100dowrite(‘

‘,a[i,j]);end.15第18页/共25页一维数组之定位16100999810099.5a[1]a[2]a[3]a[4]a[5]这是一个有5个元素的一维数组，假如说输出其中一个元素，那么程序解释如下：

write(a[下标]);假如要读入第五个元素，那么程序是这样的，其他操作以此类推：

read(a[5]);第19页/共25页二维数组之定位1710099.599100100979910099.5969810088959796.5第20页/共25页二维数组之定位

之前呈现的是一个四行四列的二维数组，一般输出某个内容的程序是这样的：

write（行号，列号）；例如输出第三行第四列的程序是：

write(3,4);剩下的以此类推。18第21页/共25页习题2——数字方阵【题目描述】

读入一个数字，利用二维数组根据要求和样例输出数字方阵。【输入要求】【输出要求】

一个整数。每个数字场宽为三。【输入样例】4【输出样例】1234567891011121314451619查看答案第22页/共25页习题2答案vara:array[1..100,1..100]ofinteger;n,i,j,k:longint;beginread(n);k:=1for