out5.txt

pl0的几个小程序 老师给的 很简单 共享下

input file name(PL/0 program file)?   test5.pl0
list object code  ?
   0 var a;
   1 procedure p;
   1  var a;
   2  begin
   3   read(a); 
   5   if a#0 then call p;
  10   write(a)
  12  end;
  14 begin
  15  read(a); write(a); call p; write(a)
  23 end.
start pl0
?9
       9

?8
?7
?6
?0
       0

       6

       7

       8

       9