call.txt

来自「编译原理课程设计,清华大学版教材的pl0编译器的源码.」· 文本 代码 · 共 15 行

var a,b,c,d;
procedure p(var e,f);
  begin
    d:=e+f-2;
    write(d)
  end;
begin
      read(a);
      read(b);
      read(c);
      begin
      call p(a,b); write(2*c);
      write(d)
    end
end.