s.txt

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

read u;
	read v; { input two integers }
	if v=0 then v:=0 { do nothing }
	else
		repeat
			temp := v;
			v := u - u / v * v;
			u := temp
		until v=0.1
	end ;
	write u {output gcd of original u & v}