|
发表于 2011-4-16 02:56:27
|
显示全部楼层
四川省绵阳市
晕啦,这么小个文件.贴出来好了..顺便拿点分..- .版本 2
- .程序集 窗口程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- .局部变量 姓名, 文本型
- .局部变量 月, 文本型
- .局部变量 日, 文本型
- .局部变量 月日, 双精度小数型
- .局部变量 星座, 文本型
- .局部变量 性格, 文本型
- 标准输出 (, “姓名:”)
- 姓名 = 标准输入 ()
- 标准输出 (, #换行符)
- 标准输出 (, “月日:”)
- 月日 = 到数值 (标准输入 ())
- 标准输出 (, #换行符)
- 标准输出 (, “系统正在核实” + #换行符)
- .如果 (月日 ≥ 3.21 且 月日 ≤ 4.2)
- 星座 = “白羊座”
- 性格 = “勇气”
- .否则
- .如果 (月日 ≥ 4.21 且 月日 ≤ 5.2)
- 星座 = “金牛座”
- 性格 = “谨慎”
- .否则
- .如果 (月日 ≥ 5.21 且 月日 ≤ 6.21)
- 星座 = “双子座”
- 性格 = “机智善变”
- .否则
- .如果 (月日 ≥ 6.22 且 月日 ≤ 7.22)
- 星座 = “巨蟹座”
- 性格 = “敏感”
- .否则
- .如果 (月日 ≥ 7.23 且 月日 ≤ 8.22)
- 星座 = “狮子座”
- 性格 = “慷慨”
- .否则
- .如果 (月日 ≥ 8.23 且 月日 ≤ 9.22)
- 星座 = “处女座”
- 性格 = “镇静”
- .否则
- .如果 (月日 ≥ 9.23 且 月日 ≤ 10.23)
- 星座 = “天秤座”
- 性格 = “自恋”
- .否则
- .如果 (月日 ≥ 10.24 且 月日 ≤ 11.21)
- 星座 = “天蝎座”
- 性格 = “神秘”
- .否则
- .如果 (月日 ≥ 11.22 且 月日 ≤ 12.21)
- 星座 = “射手座”
- 性格 = “乐观”
- .否则
- .如果 (月日 ≥ 12.22 且 月日 ≤ 1.19)
- 星座 = “摩羯座”
- 性格 = “意志坚强”
- .否则
- .如果 (月日 ≥ 1.2 且 月日 ≤ 2.18)
- 星座 = “水瓶座”
- 性格 = “睿智”
- .否则
- .如果 (月日 ≥ 2.19 且 月日 ≤ 3.2)
- 星座 = “双鱼座”
- 性格 = “浪漫”
- .否则
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- .如果结束
- 标准输出 (, “星座:” + 星座 + #换行符 + #换行符 + “性格:” + 性格)
- 标准输入 ()
- 返回 (1)
复制代码 |
|