极语言5-3 判断字符

小程序 初始启动13
写格式("请输入键盘上多个字符,然后输入反斜杠\符号,再按回车查看结果\r\n")
整数 数字类=0,运算符号类=0,其它类=0
字符 输入字符=0
循环(输入字符 != \)
{

输入字符=读字符
    判断(输入字符)
        为 \0,\1,\2,\3,\4,\5,\6,\7,\8,\9 
            数字类++
        为 \+,\-,\*,\/,\%,\=,\&,\|,\!
            运算符号类++
        否则
            其它类++

}
写格式("数字类有 %d 个\r\n",数字类)
写格式("运算符号类有 %d 个\r\n",运算符号类)
写格式("其它类有 %d 个\r\n",其它类)
命令行("pause")
结束

小程序 初始启动14
整数 数,百位数,十位数,个位数,水仙花数
写格式("100到1000之间的水仙花数为: \r\n")
循环于(数=100;数<1000;数++)
{

百位数=数 / 100
十位数=数 / 10 % 10
个位数=数 % 10
水仙花数=百位数*百位数*百位数+十位数*十位数*十位数+个位数*个位数*个位数
如果(数=水仙花数)
    {
        写格式("%d \r\n",数)
    }

}
命令行("pause")
结束

小程序 初始启动15
写格式("请输入大于 1 并且小于等于 2147 483 647 的正整数进行素数判断: \r\n")
循环
{

整数 输入数,计数,判断数=1,开始时间=0,结束时间=0,需要时间=0
读格式("%d",&输入数)
开始时间=开机毫秒
循环于(计数=2;计数<输入数;计数++)
    {
        如果(输入数 % 计数=0)
            判断数=0
    }
结束时间=开机毫秒
需要时间=结束时间-开始时间
如果(判断数)
    {
        写格式("%d 是素数 \r\n",输入数)
        写格式("耗时: %d 毫秒 \r\n",需要时间)    
    }
否则
    {
        写格式("%d 不是素数 \r\n",输入数)
        写格式("耗时: %d 毫秒 \r\n",需要时间)
    }
写格式("\r\n")

}
命令行("pause")
结束

小程序 初始启动16
写格式("请只输入大于 1 并且小于等于 2147 483 647 的正整数进行质因数分解: \r\n")
循环
{

整数 输入数,计数,序号=1,开始时间=0,结束时间=0,需要时间=0
读格式("%d",&输入数)
开始时间=开机毫秒
循环于(计数=2;输入数 != 1;)
    {
        如果(输入数 % 计数=0)
        {
            输入数=输入数 / 计数
            写格式("第 %d 个质因数: %d \r\n",序号,计数)
            序号++
        }
        否则
            计数++
    }
结束时间=开机毫秒
需要时间=结束时间-开始时间
写格式("耗时: %d 毫秒 \r\n\r\n",需要时间)

}
结束