幕墙气密性等级:用递归法,利用辗转相除法求两个非负整数的最大公约数
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/13 15:56:34
var
x,y,i,j:integer;
begin
readln(x,y);
if x>=y then i:=x-y else i:=y-x;
if x>=y then
begin
if i>=y then j:=i-y
else j:=y-i;
end
else
begin
if i>=x then j:=i-x
else j:=x-i;
end;
repeat
if (i=0) or (j=0) then break;
if i>=j then i:=i-j
else j:=j-i;
until (i=0) or( j=0);
if i=0 then writeln(j)
else writeln(i);
end.