sc.txt

来自「tiny 编译器程序的设计 修改了原作者的程序 现在能生成中间代码」· 文本 代码 · 共 12 行

{ Sample program in TINY lanuage---computes facotrial}
	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