www.pudn.com > kechengsheji.rar > RIC.COD

=== COMPILE PL0 === 
  0 PROGRAM RIC;  
  0 VAR  
  1 R:REAL;  
  1 I:INTEGER;  
  1 C:CHAR;  
  1 BEGIN  
  2 READ(R,I,C);  
  8 R:=R/13+12*1;  
 16 I:=I DIV 3+12 MOD 3;  
 24 WRITE(C);  
 26 C:='A';  
 28 WRITE(R,I,C);  
 34 END.  
  0  JMP   0   1 
  1  INI   0   6 
  2  OPR   0  15 
  3  STO   0   3 
  4  OPR   0  16 
  5  STO   0   4 
  6  OPR   0  20 
  7  STO   0   5 
  8  LOD   0   3 
  9  LIT   0  13 
 10  OPR   0   5 
 11  LIT   0  12 
 12  LIT   0   1 
 13  OPR   0   4 
 14  OPR   0   2 
 15  STO   0   3 
 16  LOD   0   4 
 17  LIT   0   3 
 18  OPR   0  17 
 19  LIT   0  12 
 20  LIT   0   3 
 21  OPR   0  18 
 22  OPR   0   2 
 23  STO   0   4 
 24  LOD   0   5 
 25  OPR   0  19 
 26  LIT   0  65 
 27  STO   0   5 
 28  LOD   0   3 
 29  OPR   0  14 
 30  LOD   0   4 
 31  OPR   0  14 
 32  LOD   0   5 
 33  OPR   0  19 
 34  OPR   0   0 
~~~ RUN PL0 ~~~ 
? 0.000000 
? 0.000000 
? 0 
0 
12.000000 
0.000000 
A 
~~~ END PL0 ~~~