sample.tny

来自「包括文件操作、图形系统、并口串口编程、鼠标编程、小型cad系统、编译器、病毒防火」· TNY 代码 · 共 14 行

{ Sample program
  in TINY language -
  computes factorial
}
read x; { input an integer }
if 0 < x then { don't compute if x <= 0 }
  fact := 1;
  repeat
    fact := fact * x;
    x := x - 1
  until x = 0;
  write fact  { output factorial of x }
end