out6.txt

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

input file name(PL/0 program file)?   test6.pl0
list object code  ?y
   0 var  m,n;
   1 procedure p;
   1 var i;
   2 begin
   3  i:=n;
   5  if n>1 then 
   8   begin n:=n-1;  call p end;
  14   m:=m*i
  16  end;
   2  int    0    4
   3  lod    1    4
   4  sto    0    3
   5  lod    1    4
   6  lit    0    1
   7  opr    0   12
   8  jpc    0   14
   9  lod    1    4
  10  lit    0    1
  11  opr    0    3
  12  sto    1    4
  13  cal    1    2
  14  lod    1    3
  15  lod    0    3
  16  opr    0    4
  17  sto    1    3
  18  opr    0    0
  19 begin
  20  m:=1;  read(n); call p; write(m)
  27 end.
  19  int    0    5
  20  lit    0    1
  21  sto    0    3
  22  opr    0   16
  23  sto    0    4
  24  cal    0    2
  25  lod    0    3
  26  opr    0   14
  27  opr    0   15
  28  opr    0    0
start pl0
?3
       6