极语言5-4 写格式、读格式、循环于、如果、取余数、跳到、命令行

小程序 初始启动17
整数 输入行数,行数,总行数,外空格数,星号数,内空格数,底部星号数
循环
{

写格式("请输入行数: ")
读格式("%d",&输入行数)
总行数 = 输入行数 * 2
循环于(行数=0;行数<总行数-2;行数++)
{
    如果(行数 % 2 = 0)
    {
        循环于(外空格数=0;外空格数<(总行数 - 行数)/2 - 1;外空格数++)
        {
            写格式("  ")
        }
        循环于(星号数=0;星号数<行数+1;跳来此处:星号数++)
        {
            循环于(内空格数=1;内空格数<=行数-1;内空格数++)
            {
                如果(星号数=内空格数)
                {
                    写格式("  ")
                    跳到 跳来此处
                }
            }
            写格式("★")
        }
        写格式("\r\n")
    }
}
循环于(底部星号数=0;底部星号数<总行数 - 1;底部星号数++)
{
    写格式("★")
}
写格式("\r\n\r\n")

}
结束

小程序 初始启动18
写格式("请输入大于 1 并且小于等于 2147 483 647 的正整数来寻找其最大素数: \r\n")
循环(真)
{

整数  输入数,最大数,计数,判断数=0
读格式("%d",&输入数)
循环于(最大数=输入数-1;最大数>=2;最大数--)
{
    循环于(计数=2;计数<最大数;计数++)
    {
        如果(最大数 % 计数 = 0)
        {
            跳出
        }
        如果(计数=最大数-1)
        {
            判断数=1
            跳出
        }
    }
    如果(判断数=1)
    {
        写格式("其包含的最大素数是: %d \r\n",最大数)
        跳出
    }
}
写格式("\r\n")

}
结束

小程序 初始启动19
写格式("从1到9中取4个互不相同的数使和为12的排列组合共有多少组: \r\n")
整数 一数,二数,三数,四数,序数=1,计数器=1,开始时间=0,结束时间=0,需要时间=0
开始时间=开机毫秒
循环于(一数=1;一数<=9;一数++)
{

循环于(二数=1;二数<=9;二数++)
{
    循环于(三数=1;三数<=9;三数++)
    {
        循环于(四数=1;四数<=9;四数++)    
        {
            计数器++
            如果(一数!=二数 && 一数!=三数 && 一数!=四数 && 二数!=三数 && 二数!=四数 && 三数!=四数 && 一数+二数+三数+四数=12)
            {
                写格式("最内层循环了 %-4d 次 出第 %-3d组: %d,%d,%d,%d \r\n",计数器,序数,一数,二数,三数,四数)
                序数++
            }
        }
    }
}

}
结束时间=开机毫秒
需要时间=结束时间-开始时间
写格式("\r\n耗时: %d 毫秒 \r\n\r\n",需要时间)
命令行("pause")
结束

//因为4个数当中,最大的数不会超过6,所以代码的循环最大为6,这只是优化算法的一小部分.举这个例子,是想说明算法是可以优化的
小程序 初始启动20
写格式("从1到9中取4个互不相同的数使和为12的排列组合共有多少组: \r\n")
整数 一数,二数,三数,四数,序数=1,计数器=1,开始时间=0,结束时间=0,需要时间=0
开始时间=开机毫秒
循环于(一数=1;一数<=6;一数++)
{

循环于(二数=1;二数<=6;二数++)
{
    循环于(三数=1;三数<=6;三数++)
    {
        循环于(四数=1;四数<=6;四数++)    
        {
            计数器++
            如果(一数!=二数 && 一数!=三数 && 一数!=四数 && 二数!=三数 && 二数!=四数 && 三数!=四数 && 一数+二数+三数+四数=12)
            {
                写格式("最内层循环了 %-4d 次 出第 %-3d组: %d,%d,%d,%d \r\n",计数器,序数,一数,二数,三数,四数)
                序数++
            }
        }
    }
}

}
结束时间=开机毫秒
需要时间=结束时间-开始时间
写格式("\r\n耗时: %d 毫秒 \r\n\r\n",需要时间)
命令行("pause")
结束