0024 打印由ASCII码中字符组成的空心菱形-控制台程序-极语言教程

小程序 初始启动
字符 字母=\Z+1
整数 行数,列数,输入数
循环
{
    写格式("请输入行数: ")
    读格式("%d",&输入数)
    循环于(行数=1;行数<=输入数;行数++)
    {
        循环于(列数=1;列数<=输入数+行数-2;列数++)
        {
            如果(列数=输入数-行数+1)
            {
                字母--
                写字符(字母)
            }
            否则
                写格式(" ")
        }
    字母--
    写字符(字母)
    写格式("\r\n")
    }
    循环于(行数=1;行数<输入数;行数++)
    {
        循环于(列数=1;列数<=(2*(输入数-1)-行数);列数++)
        {
            如果(列数=行数+1)
            {
                字母--
                写字符(字母)
            }
            否则
                写格式(" ")
        }
    字母--
    写字符(字母)
    写格式("\r\n")
    }
    写格式("\r\n")
}
结束