program3.txt

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

const a=45;b=27;
var x,y,g,m:integer; boo:boolean;
procedure swap;
var temp:integer;
begin
  temp:=x;
  x:=y;
  y:=temp
end;
function func(var a:integer; b:boolean):integer;
begin 
a := 100;
a := 100;
end;
procedure modd;
  x:=x-x / y*y;
begin
  x:=a;
  y:=b;
  modd;
  while x<>0 do
  begin
    swap;
    modd
  end;
  g:=y;
  m:=a*b / g;
  writeln(g,m);
  write(100 * 200);
end.