fa1.tmp

来自「c++编写的pl0编译器」· TMP 代码 · 共 49 行

Iput pl/0 file ?y
0 var x,y;

1 procedure p;

1 var a;

2 procedure q;

2 var b;

3 begin (*q*)

4 b:=10;

4 end (*q*);

5 procedure s;

5 var c,d;

6 procedure r;

6 var e,f;

7 begin (*r*);

8 call q;

9 end (*r*);

10 begin (*s*);

11 call r;

12 end (*s*);

13 begin (*p*);

14 call s;

15 end (*p*);

16 begin (*main*)

17 call p;

18 end (*main*).