易语言星座查询源码
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 姓名, 文本型
.局部变量 月份, 整数型
.局部变量 日期, 整数型
.局部变量 星座, 文本型
.局部变量 性格, 文本型
.局部变量 a, 文本型
输出 (, “ 欢迎使用星座查询器”) .循环判断首 ()
标准输出 (, #换行符 , #换行符 , #换行符 , “请输入您的姓名:”)
姓名 , 标准输入 ()
标准输出 (, “出生月是:”)
月份 , 到数值 (标准输入 ())
标准输出 (, “出生日是:”)
日期 , 到数值 (标准输入 ())
.如果 (月份 , 12 或 月份 , 1 或 日期 , 0 或 日期 , 31)
.循环判断首 ()
标准输出 (, #换行符 , #换行符 , “请输入正确的月份、日期” , #换行符)
标准输出 (, “出生月是:”)
月份 , 到数值 (标准输入 ())
标准输出 (, “出生日是:”)
日期 , 到数值 (标准输入 ())
.循环判断尾 (月份 , 12 或 月份 , 1 或 日期 , 0 或 日期 , 31)
.否则
标准输出 (, “计算机正在处理数据中可能需要几秒钟......”)
延时 (1000)
.如果 (月份 , 1 且 日期 ? 20 或 月份 , 2 且 日期 ? 18)
星座 , “水瓶座”
性格 , “多变”
.否则
.如果 (月份 , 2 且 日期 ? 19 或 月份 , 3 且 日期 ? 20)
星座 , “双鱼座”
性格 , “善良”
.否则
.如果 (月份 , 3 且 日期 ? 21 或 月份 , 4 且 日期 ? 20)
星座 , “白羊座”
性格 , “勇敢”
.否则
.如果 (月份 , 4 且 日期 ? 21 或 月份 , 5 且 日期 ? 20)
星座 , “金牛座”
性格 , “古典”
.否则
.如果 (月份 , 5 且 日期 ? 21 或 月份 , 6 且 日期 ? 21)
星座 , “双子座”
性格 , “敏捷”
.否则
.如果 (月份 , 6 且 日期 ? 22 或 月份 , 7 且 日期 ? 22)
星座 , “巨蟹座”
性格 , “家庭”
.否则
.如果 (月份 , 7 且 日期 ? 23 或 月份 , 8 且 日期 ? 22)
星座 , “狮子座”
性格 , “阳光”
.否则
.如果 (月份 , 8 且 日期 ? 23 或 月份 , 9 且 日期 ? 22)
星座 , “处女座”
性格 , “干净”
.否则
.如果 (月份 , 9 且 日期 ? 23 或 月份 , 10 且 日期 ? 22)
星座 , “天秤座”
性格 , “公平”
.否则
.如果 (月份 , 10 且 日期 ? 23 或 月份 , 11 且 日期 ? 21)
星座 , “天蝎座”
性格 , “占有”
.否则
.如果 (月份 , 11 且 日期 ? 22
或 月份 , 12 且 日期 ? 21)
星座 , “射手座”
性格 , “乐观”
.否则
.如果 (月份 , 12 且 日期 ? 22 或 月份 , 1 且 日期 ? 19)
星座 , “摩羯座”
性格 , “多变”
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
标准输出 (, #换行符 , #换行符 , “姓名:” , 姓名 , #换行符 , “星座:” , 星座 , #换行符 , “性格:” , 性格)
.如果结束
标准输出 (, #换行符 , #换行符 , “退出请按q键”)
a , 标准输入 ()
.循环判断尾 (a ? “q” 且 a ? “Q”)
标准输出 (, #换行符 , #换行符 , #换行符 , “ 感谢您
对本产品的支持,欢迎再次使用!”)
延时 (2500)
返回 (0) ' 可以根据您的需要返回任意数值