在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
参考:http://blog.csdn.net/qustdong/article/details/9230743 参考:http://www.cnblogs.com/xumenger/p/4402227.html
1.根据枚举定义集合 type TMyColor = (mcBlue, mcRed); //定义了一个枚举类型TMyColor TMyColorSet = set of TMyColor; //定义了一个基于枚举类型的集合TMyColorSet 2.根据枚举定义数组 type TMyEnum = (red, green, blue); //定义枚举 procedure TForm1.ButtonClick(Sender : TObject); const ColorArr : array[TMyEnum] of string = ('红', '绿', '蓝'); //定义数据 var myEnum : TMyEnum; //定义枚举类型 begin for myEnum := Low(ColorArr) to High(ColorArr) do begin ShowMessage(ColorArr[myEnum]); end; end. 注意其中根据枚举定义相关的数组的语法 注意其中使用枚举进行循环控制的方法 3.枚举类型的相关知识,参考http://www.cnblogs.com/xumenger/p/4402227.html 4.子界类型 如果我们定义一个变量为Integer型,那么它的取值范围一般为-32768~32767.而事实上,每个程序所用到的变量的值都有一个确定的范围。例如,人的年龄一般为1~120岁,一年中的月数为1~12,一个月中的天数为1~31天等等 如果能在程序中对所用的变量的值域做具体规定,就便于检查出那些不合法的数据,这样就能更好的保证程序运行的正确性且在一定程度上节省了内存空间 子界类型就能很好的解决上面的问题。此外,在数组的定义中,常用到子界类型,以规定数组下标的范围 1)定义格式: type 子界类型标识符 = 常量1..常量2 //其中常量1称为子界的下界,常量2称为子界的上界 上界和下界必须是同一顺序类型(该类型称为子界类型的基类型),且上界的序号必须大于下界序号,例如 type age = 1..100; letter = 'a'..'z'; 可以直接在变量说明中定义子界类型,如 type letter = 'a'..'z'; var ch1, ch2 : letter; 可以合并成 var ch1, ch2 : 'a'...'z'; 2)子界类型数据的运算规则 凡是可以使用基类型的运算规则同样适用于该类型的子界类型 例如,可以使用整型变量的地方,也可以使用以整型为基类型的子界类型数据 对基类型的运算规则同样适用于该类型的子界类型 例如,div,mod要求参数运算的数据为整型,因而也可以为整型的任何子界类型数据 基类型相同的不同子界类型可以进行混个运算,比如有以下说明 var x : 1..100; y : 1..500; z : 1..1000; a : integer; 则下面的语句是合法的 a:=Sqr(x) + y + z; z := x + y; 下面的语句: y := x + z + a; 当x+z+a的值在1~500范围内也就是(y所属的子界类型的范围)就是合法的,否则就会出错 3)子界类型的应用举例 例1,使用子界类型情况语句,当输入月、日、年(10 30 1986),输出30 oct 1986 var month : 1..12; day : 1..31; year : 1900..2003; begin write('Enter date(mm dd yyyy):'); readln(month, day, year); write(day); case month of 1:write('Jan' :5); 2:write('Feb' :5); 3:write('Mar':5); 4:write('Apr':5); 5:write('May':5); 6:write('Jun':5); 7:write('Jul':5); 8:write('Aug':5); 9:write('Sep':5); 10:write('Oct':5); 11:write('Nov':5); 12:write('Dec':5); end; writeln(year:7); end. 例2,将一个四位的十六进制数转换成十进制 var ch : char; n : 1..4; d1, d2, d3, d4, t : 0..15; s : real; begin write('The hex number is'); for n:=1 to 4 do begin {将四位的十六进制数分四次作为字符读入} read(ch); write(ch); {分别转换为十进制的数d1, d2, d3, d4} if (ch >= '0') and (ch <= '9') then t := ord(ch) - 48; if (ch >= 'a') and (ch <= 'z') then t:=ord(ch)-87; if (ch >= 'A') and (ch <= 'Z') then t:=ord(ch)-55; case n of 1 : d1 := t; 2 : d2 := t; 3 : d3 := t; 4 : d4 := t; end; end; s := d1*16*16*16 + d2*16*16 + d3*16 + d4; writeln('dec:', s); end.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论