极语言5-2 循环写格式如果、命令行、调到、循环在、开机毫秒

小程序 初始启动9
整数 甲,乙,丙,丁=9
循环于(甲=丁;甲>= 1;甲--)
{

循环于(乙=甲;乙<=丁;乙++)
{
丙=甲 * 乙
    如果(丙 <= 9)
    {
    写格式("%d x %d =  %d  ",甲,乙,丙)
    }
    否则
    {
    写格式("%d x %d = %d  ",甲,乙,丙)
    }
}

写格式("\r\n")
}
命令行("pause")
结束

小程序 初始启动10
写格式("请输入两个数相加或相除的形式: \r\n")
浮点 甲,乙,加,减,乘,除
字符 丙=0
读格式("%lf %c %lf",&甲,&丙,&乙)
加=甲+乙
减=甲-乙
乘=甲*乙
除=甲/乙
判断(丙)

为 \+
写格式("%f + %f = %f \r\n",甲,乙,加)
为 \-
写格式("%f - %f = %f \r\n",甲,乙,减)
为 \*
写格式("%f * %f = %f \r\n",甲,乙,乘)
为 \/
写格式("%f / %f = %f \r\n",甲,乙,除)

命令行("pause")
结束

小程序 初始启动11
浮点 甲,乙,加,减,乘,除
字符 丙=0
重新开始计算:
读格式("%lf %c %lf",&甲,&丙,&乙)
加=甲+乙
减=甲-乙
乘=甲*乙
除=甲/乙
判断(丙)

为 \+
写格式("%f + %f = %f \r\n",甲,乙,加)
为 \-
写格式("%f - %f = %f \r\n",甲,乙,减)
为 \*
写格式("%f * %f = %f \r\n",甲,乙,乘)
为 \/
    {
    如果(乙=0)
        写格式("除数不能为0,请输入正确格式 \r\n")
    否则
        写格式("%f / %f = %f \r\n",甲,乙,除)
    }

写格式("\r\n")
跳到 重新开始计算
命令行("pause")
结束

小程序 初始启动12
写格式("请输入键盘上多个字符,然后输入#符号,再按回车查看结果\r\n")
字符 甲=0
整数 乙=0,开始时间,结束时间
浮点 需要时间
开始时间=开机毫秒
//取时间(&开始时间)
循环在(甲 != \#)
{
甲=读字符
乙++
}
结束时间=开机毫秒
//取时间(&结束时间)
需要时间=1000.0*乙/(结束时间-开始时间)
写格式("\r\n总的字符数是 %d \r\n",乙)
写格式("\r\n字符平均录入速度是每秒 %.2f 个 \r\n",需要时间)
命令行("pause")
结束