procedure.txt

来自「pl/0我想大家都很清楚这个把 编译原理的人 都会知道这个 很不错的算法程序 」· 文本 代码 · 共 27 行

const a=45,b=27;
var x,y,g,m :integer;
procedure swap;
var temp:integer;
begin
	temp:=x;
	x:=y;
	y:=temp;
end
procedure mod;
	x=x-x/y*y;
begin
x:=a;
y:=b;
while x <>0
do
begin
	swap;
	mod;
end;
g:=y;
m:=a*b/g;
write("x=",x);
write("g=",g);
write("m=",m);
end
.