gcd.txt

来自「编译原理课程设计,语法分析.学校的课程设计,好象还有点用吧」· 文本 代码 · 共 27 行

program example(input,output);
var x,y,p,q:integer;
function gcd(a,b:integer):integer;
var temp:integer;
begin
  if a<b then
  begin
     temp:=a;
     a:=b;
     b:=temp;
  end
  else
  begin
  end
  while b<>0 do
  begin
    temp:=a mod b;
    a:=b;
    b:=temp;
  end
  gcd:=a;
end;
begin
  read(x,y);
  p:=gcd(x,y);
  write(x,y,p);
end