easy.txt

来自「自己做的小编译程序,大家看看好不好用哦,是词法分析器」· 文本 代码 · 共 24 行

{简单的过程调用，测试变参的传递}
program pp
var   integer  v1;
char  c;

procedure f();
begin
    v1 :=2
end

procedure t1();
var  integer v1;
begin
    v1 :=1
end

begin
  read(v1);
  t1();
  write(v1);
  f();
  write(v1)
end.