17-1-e.txt

来自「编译原理课程设计大作业PL0文法简易编译器」· 文本 代码 · 共 37 行

var x,y,g,m:integer;
    i:integer;
    a,b:integer;
procedure swap;
  var temp:integer;
  begin
    temp:=x;
    x:=y;
    y:=temp
  end;
function mod(var fArg1,fArg2:integer):integer;
  begin
    fArg1:=fArg1-fArg1/fArg2*fArg2;
    mod:=fArg1
  end;
begin
  for i:=3 down 1 do
  begin
   write("input x: ");
   read(x);
   write("input y: ");
   read(y);  
   a:=x;
   b:=y;
   x:=mod(x,y);
   while x<>0 do
   begin
     swap;
     x:=mod(x,y)
   end;
   g:=y;
   m:=a*b/g;
   write("The greatest common divisor is ",g);
   write("The lease common multiple is ",m)
  end
end.