out4.txt

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

input file name(PL/0 program file)?   test4.pl0
list object code  ?
   0 const a=9;
   1 var
   1 b,c;
   1 procedure p;
   1 const
   2  d=2;
   2 var e;
   2 begin
   3 e:=2*a+d+b; write(e+1); c:=3*e
  18 end;
  21 begin
  22 read(b);
  24 while b#0 do
  28 begin call p; write(c); read(b) end;
  35 if b=0 then write(b)
  41 end.
start pl0
?8
      29

      84

?4
      25

      72

?0
       0