ctest.tny

来自「SIP软件开发记录 由于通信网的封闭性」· TNY 代码 · 共 22 行

{ 演示程序
  TINY 语言
  计算乘阶
  Compiler Construction: Principles and Practice
  Kenneth C. Louden
  编译原理及实践
  (美) Kenneth C. Louden 著
  冯博琴 冯岚 等译
  机械工业出版社 IBSN 7-111-07703-2
  源代码：李峰编辑并修订
  Code Modify: Larry Li 2001.11
}
读取 变量; { 读取一个变量值 }
如果 变量 > 0 那么 { 只有变量为正数时才计算 }
  结果 := 1;
  循环
    结果 := 结果 * 变量;
    变量 := 变量 - 1
  直到 变量 = 0;
  输出 结果 { 输出输入变量的乘阶 }
结束