fa1.txt

来自「pl0编译器,包括词法分析,语法语义分析,以及解释执行」· 文本 代码 · 共 14 行

Input pl0 file name:t.pl0
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.