test.txt

来自「编译原理课程设计,用C写的PL/0编译器,有详细的文档和代码」· 文本 代码 · 共 13 行

const a=10;
var b,c;
procedure p;
begin 
     c:=b+a;
end;
begin
    read(b);
    while b#0 do
    begin
       call p;write(2*c);read(b)
    end
end.