1. 首页
  2. 数据库
  3. 其它
  4. 021.枚举类型

021.枚举类型

上传者: 2021-01-16 17:53:01上传 PDF文件 25.42KB 热度 20次
with Ada.Text_IO; use Ada.Text_IO; procedure Enum is type DAY is (MON,TUE,WED,THU,FRI,SAT,SUN); subtype WORK_DAY is DAY range MON..FRI; subtype PLAY_DAY is DAY range SAT..SUN; type HEAVENLY_BODY is (MOON,SUN,EARTH,MARS); Big_Sphere : HEAVENLY_BODY; package DAY_IO is new Ada.Text_IO
下载地址
用户评论