判断循环首只执行一次怎么写

aqjyu

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 月日, 双精度小数型
.局部变量 星座, 文本型
.局部变量 性格, 文本型
.局部变量 姓名, 文本型
.局部变量 a, 文本型

标准输出 (, “姓名：”)
姓名 ＝ 标准输入 ()
标准输出 (, #换行符)
标准输出 (, “月日：”)
月日 ＝ 到数值 (标准输入 ())
标准输出 (, #换行符)
标准输出 (, “系统正在核实”)
标准输入 ()
标准输出 (, #换行符)
a ＝ “”
.判断循环首 (a ＝ “”)
    .判断开始 (月日 ≥ 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)
            星座 ＝ “双鱼座”
            性格 ＝ “浪漫”
        .默认


        .判断结束


    .判断结束
    标准输出 (, “星座：” ＋ 星座 ＋ #换行符 ＋ #换行符 ＋ “性格：” ＋ 性格)
    标准输入 ()


.判断循环尾 ()

标准输入 ()

返回 (0)
程序显示姓名：月日：星座：性格，后按回车，它还显示，星座：性格,按回车还是显示星座：性格，我想按回车后程序关闭！

fsjoe

想不循环,不直接把循环去掉就是了.....
另外
我来个简单点的子程序 .不用这么多判断.
你可以用 数值取星座(日期数值) 来取得对应星座了
至于性格嘛.你可以如此类推写一个...希望对你有启发

.子程序 数值取星座, 文本型
.参数 数值, 双精度小数型
.局部变量 数值组, 双精度小数型, , "0"
.局部变量 星座组, 文本型, , "0"
.局部变量 N, 整数型

数值组 ＝ { 1.2, 2.19, 3.21, 4.21, 5.21, 6.22, 7.23, 8.23, 9.23, 10.24, 11.22, 12.22, 12.32 }
星座组 ＝ { “摩羯座”, “水瓶座”, “双鱼座”, “白羊座”, “金牛座”, “双子座”, “巨蟹座”, “狮子座”, “处女座”, “天秤座”, “天蝎座”, “射手座”, “摩羯座” }
.计次循环首 (13, N)
    .如果真 (数值 ＜ 数值组 [N])
        返回 (星座组 [N])
    .如果真结束

.计次循环尾 ()
返回 (“”)

Antony

.判断循环首 (月日≠0)
    .判断开始 (月日 ≥ 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)
            星座 ＝ “双鱼座”
            性格 ＝ “浪漫”
        .默认


        .判断结束


    .判断结束
    标准输出 (, “星座：” ＋ 星座 ＋ #换行符 ＋ #换行符 ＋ “性格：” ＋ 性格)
    标准输入 ()


.判断循环尾 ()

标准输入 ()

返回 (0)

我觉得你的文本变量a就是多余的，随便什麽时候a都等于“”

aqjyu

回复 2# 小人物


    哦···  可还是不行，当程序执行完了，按回车还是出现星座：性格，而不是关闭。

丢了自己

回复 3# aqjyu


    这要循环判断干啥？？？如果 如果真 不让你用？

丢了自己

贴我 以前的代码（一部分，总体太长 怕审核）出来 证实

[e].版本 2
.支持库 spec

.局部变量 月份, 整数型
.局部变量 日期, 整数型

标准输出 (, “出生日期皆以阳历为准”)
标准输出 (, #换行符)
标准输出 (, #换行符)
标准输出 (, “请输入你的出生月：”)
月份 ＝ 到数值 (标准输入 ())
标准输出 (, “请输入你的出生日：”)
日期 ＝ 到数值 (标准输入 ())
.如果 (月份 ＝ 12 且 日期 ≥ 22 且 日期 ≤ 31 或 月份 ＝ 1 且 日期 ≥ 1 且 日期 ≤ 19)
    标准输出 (, “大概需要3秒的时间，请稍等......”)
    延迟 (3000)
    标准输出 (, #换行符)
    标准输出 (, #换行符)
    标准输出 (, “星座：摩羯座”)
.否则
    .如果 (月份 ＝ 1 且 日期 ≥ 20 且 日期 ≤ 31 或 月份 ＝ 2 且 日期 ≥ 1 且 日期 ≤ 18)
        标准输出 (, “大概需要3秒的时间，请稍等......”)
        延迟 (3000)
        标准输出 (, #换行符)
        标准输出 (, #换行符)[/e]

Antony

刚才看错了  你用循环的目的不就是为了让程序可以重复执行代码吗？ 如过你要按回车退出程序 把循环去掉试试

qq654894727

.判断循环首 (1,a ＝ “”)
判断循环尾 ()

aqjyu

回复 5# 丢了自己


    呵呵，谢谢你的回答，我的问题解决了。如果和如果真我都用过了，因为我用如果和如果真都能实现，所以想用判断循环首写一个试试看能不能和用如果和如果真一样的效果。

丢了自己

回复 8# aqjyu


    你可不可以把你代码 放到这上边让大家直接能复制 ，这样会有更多人来帮你