in.pas

自己做的编译原理课程的词法分析器

program jcd ;
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 .