Delphi教学 第02章 面向对象的Pascal(第二部分)

标准类型 简单类型 自定义类型 数据类型 构造类型 集合类型 数组类型 记录类型 文件类型
字符串类型 实型 整型 字符型 布尔型 枚举类型 子界类型
序数类型
可变类型
2.6 集合类型
集合是指具有相同性质且可以相互区分的对象的全体。例如， 集合是指具有相同性质且可以相互区分的对象的全体。例如，所 有的英文字母可以组成一个集合，全体自然数组成一个集合， 有的英文字母可以组成一个集合 ， 全体自然数组成一个集合 ， 某个 学 校 的 全 体 学 生 组 成 一 个 集 合 ， 等 等 。 为 了 表 示 集 合 ， Object Pascal 引入了集合类型。 引入了集合类型。
2.6. 1-2 集合类型的运算
2. 集合的关系运算 集合的关系运算包括类型相同集合之间所进行的相等“ 、 集合的关系运算包括类型相同集合之间所进行的相等“=”、不等 等运算， “<>”、包含“>=”、被包含“<=”等运算，以及数据是否属于集合的 、包含“ 、被包含“ 等运算 以及数据是否属于集合的IN 运算。这些运算的结果均为布尔类型值。 运算。这些运算的结果均为布尔类型值。 集合相等运算：如果相同类型集合A和 的元素完全相同 的元素完全相同， 集合相等运算：如果相同类型集合 和B的元素完全相同，则运算 A=B或B=A的值为 的值为True，否则为 或 的值为 ，否则为Flase。 。 [2,3]=[3,2]的值为 的值为True。 的值为 。 集合的不等运算：如果相同类型集合A和 的元素不完全相同 的元素不完全相同， 集合的不等运算：如果相同类型集合 和B的元素不完全相同，则 运算A<>B或B<>A的值为 的值为True，否则为 运算 或 的值为 ，否则为Flase。 。 [2,3]<>[1,3,2]的值为 的值为True。 的值为 。 集合的包含运算：如果集合B中的元素都是集合 中的元素， 中的元素都是集合A中的元素 集合的包含运算：如果集合 中的元素都是集合 中的元素，则运 A>=B（称为 包含 ）的值为 包含B）的值为True，否则为 算 （称为A包含 ，否则为Flase。 。 [1,3,2]>=[2,3] 的值为 的值为True。 。 集合的被包含运算：如果集合B中的元素都是集合 中的元素， 中的元素都是集合A中的元素 集合的被包含运算：如果集合 中的元素都是集合 中的元素，则 运算B<=A （称为 被包含在 中）的值为 称为B被包含在 被包含在A中 的值为True，否则为 运算 ，否则为Flase。 。 [RED,BLUE]<=[RED,GREEN,BLUE]的值为 的值为True。 的值为 。 属于运算：如果数据X与集合 的基类型相同，且被包含在A中 则运算X 与集合A的基类型相同 属于运算：如果数据 与集合 的基类型相同，且被包含在 中，则运算
2.6.1 -1 集合类型的定义
使用集合类型和集合变量之前必须首先进行类型定义和变量声明。 使用集合类型和集合变量之前必须首先进行类型定义和变量声明。 1. 集合与集合类型 集合的特点是所包括的各个对象具有某种相同的性质， 集合的特点是所包括的各个对象具有某种相同的性质，构成集合的 各个对象称为集合的元素，集合的元素是某种简单数据类型的值， 各个对象称为集合的元素，集合的元素是某种简单数据类型的值，这种 数据类型称为集合的“基类型” 基类型只能是顺序类型。 数据类型称为集合的“基类型”，基类型只能是顺序类型。对于集合有 以下几个特点： 以下几个特点： （1）集合中的元素是互异的，即相同的元素视为同一个元素，集合 ， ）集合中的元素是互异的，即相同的元素视为同一个元素，集合{1， {1，2，2}与集合 ，2}是相同的； 与集合{1， 是相同的 是相同的； ， ， 与集合 是同一个集合； （2）集合中的元素是无序的，{1，2}与{2，1}是同一个集合； ）集合中的元素是无序的， ， 与 ， 是同一个集合
2.6.1-2 集合类型的运算
集合类型数据的运算包括两大类，一类是集合的并、 差运算， 集合类型数据的运算包括两大类，一类是集合的并、交、差运算， 其运算结果仍为集合类型值；一类是集合的关系运算， 其运算结果仍为集合类型值；一类是集合的关系运算，其运算结果是布 尔类型值。 尔类型值。 1. 集合的并、交、差运算 集合的并、 相同类型的集合可以进行并、 差运算， 相同类型的集合可以进行并、交、差运算，其值仍是一个该类型的集 合。 并运算：集合A、 类型相同 类型相同， 的并运算记作A+B或B+A，计 并运算：集合 、B类型相同，则A和B的并运算记作 和 的并运算记作 或 ， 算结果是由A和 中所有不重复元素组成的集合 中所有不重复元素组成的集合。 算结果是由 和B中所有不重复元素组成的集合。 交运算：集合A、 类型相同 类型相同， 的交运算记作A＊ 或 ＊ ， 交运算：集合 、B类型相同，则A和B的交运算记作 ＊B或B＊A， 和 的交运算记作 计算结果是由A和 中所有公共元素组成的集合 中所有公共元素组成的集合。 计算结果是由 和B中所有公共元素组成的集合。 差运算：集合A、 类型相同 类型相同， 的差运算记作A-B，计算结果 差运算：集合 、B类型相同，则A和B的差运算记作 和 的差运算记作 ， 是由所有属于集合A而不属于集合 的元素组成的集合。 而不属于集合B的元素组成的集合 是由所有属于集合 而不属于集合 的元素组成的集合。利用差运算可 以删除集合中的一些元素。 以删除集合中的一些元素。 例如， 例如，A=[1,2,3]，B=[2,3,4]，则： ， ， A+B=[1,2,3,4]； ； A*B=[2,3]； ； A-B=[1]； ； B-A=[4]； ；
Delphi 7 程序设计
福州大学至诚学院
面向对象的Pascal 第二章 面向对象的
Delphi的编程语言即 的编程语言即Object Pascal是在 是在Pascal的基 的编程语言即 是在 的基 础上发展起来的，它继承了Pascal语言语法结构严谨 础上发展起来的，它继承了 语言语法结构严谨 和编译代码高效优化等优点。 和编译代码高效优化等优点。 2.1 基本概念 2.2 简单数据类型 2.3 常量、变量 常量、 2.4 运算符和表达式 2.5 语句 2.6 构造 结构）数据类型 构造(结构 结构） 2.7 函数和过程
2. 集合定义 集合的声明格式如下： 集合的声明格式如下： Type <集合类型名称 集合类型名称>=Set of <基类型 ； 基类型>； 集合类型名称 基类型 <集合类型名称 是用户定义的集合类型名称。<基类型 集合类型名称>是用户定义的集合类型名称 集合类型名称 是用户定义的集合类型名称。 基类型 >表示集合中各元素的类型，可以是字符型、布尔型、 表示集合中各元素的类型， 表示集合中各元素的类型 可以是字符型、布尔型、 枚举型和子界型等顺序类型，但不能是整型、 枚举型和子界型等顺序类型，但不能是整型、实型和 其他的构造类型。 其他的构造类型。
Hale Waihona Puke 2.6.1-1 集合类型的定义 若基类型为枚举或子界类型，则必须先定义该类型， 若基类型为枚举或子界类型，则必须先定义该类型， 再定义集合类型。例如： 再定义集合类型。例如： type Colors=(Red,Blue,Yellow,White,Black); color=set of Colors; numbers=set of 1..10;
2.6.1-1 集合类型的定义
（3）集合中的元素按顺序出现时可以写为子界的形式，如[6，7，8， ）集合中的元素按顺序出现时可以写为子界的形式， ， ， ， 9，11，13]可写为 可写为[6…9，11，13]； ， ， 可写为 ， ， ； 不属于”关系。（ 。（in） （4） 元素与集合的关系是“属于”或“不属于”关系。（ ） ） 元素与集合的关系是“属于” （5） 集合类型属于构造类型，是由其他的数据类型按照一定的规则构 ） 集合类型属于构造类型， 造而成的。 规定集合的基类型可能的值不能超过256个， 造而成的。Object Pascal规定集合的基类型可能的值不能超过 规定集合的基类型可能的值不能超过 个 且序号必须在0到 之间， 且序号必须在 到255之间，这同时也表明，集合中元素的个数最多是 之间 这同时也表明， 256个。例如，以下定义会显示编译错误： 个 例如，以下定义会显示编译错误： type intset = set of 1..300; //集合元素超过 集合元素超过256个 集合元素超过 个
当一个表达式中含有多个集合运算符时，将按优先级由高到低的顺序求值。 当一个表达式中含有多个集合运算符时，将按优先级由高到低的顺序求值。
2.6. 1-3 集合类型的使用
之间的所有素数。 【例】用集合数据类型求1～100之间的所有素数。 用集合数据类型求 ～ 之间的所有素数 分析：素数是大于1且除了 和它本身外， 且除了1 分析：素数是大于 且除了 和它本身外，不能被其他任何整数所整 除的整数。对于求解1～ 之间的素数可以从1到 除的整数。对于求解 ～100之间的素数可以从 到100一一判断是否是 之间的素数可以从 一一判断是否是 素数，然后输出素数。也可以采用筛选法， 素数，然后输出素数。也可以采用筛选法，将2～100之间的数看成一个 ～ 之间的数看成一个 集合，从中选出最小数，从中筛选去掉其所有倍数， 集合，从中选出最小数，从中筛选去掉其所有倍数，再找出第二个数将 其所有倍数从集合中筛选出去， 其所有倍数从集合中筛选出去，……，一直增加到该数为集合中最大数 ， 的一半为止，则将集合中所有是其他数的倍数的数全部选出， 的一半为止，则将集合中所有是其他数的倍数的数全部选出，剩下的即 为素数。 为素数。 启动Delphi 7.0，新建一个工程，在窗体中添加一个标签。 启动 ，新建一个工程，在窗体中添加一个标签。 添加Form1的FormCreate事件代码如下： 事件代码如下： 添加 的 事件代码如下 procedure TForm1.FormCreate(Sender: TObject); type int100=2..100; all=set of int100;