复件 sourcefile.txt

来自「实现了此法分析器和语法分析器 有详细的代码和文档」· 文本 代码 · 共 28 行

  # program jcd; \n
 var x,y,g,m,a,b;
 procedure swap;
 var temp;
 begin
	  temp := x;
      x := y;
      y := temp;
 end; 
 procedure mod;
  begin
 x := x - x/y*y
 end;
 begin
	read (x,y);
    a:=x;
    b:=y;
 call mod;
 while x <> 0 do
	  begin
        call swap;
        call mod;
     end;
     g :=y;
     m :=a*b/g;
     write(g,m);
 end.
  *