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

=== COMPILE PL0 === 
  0 PROGRAM P1;  
  0   
  0 VAR I,MAX:INTEGER; X,Y:INTEGER;  
  1 BEGIN  
  2     READ(I,X,Y);  
  8     IF I>X THEN   
 11         MAX:=I   
 13     ELSE MAX:=X;  
 17   
 17    IF Y>MAX  
 19     THEN MAX:=Y;  
 23   WRITE(MAX);  
 25 END.  
  0  JMP   0   1 
  1  INI   0   7 
  2  OPR   0  16 
  3  STO   0   3 
  4  OPR   0  16 
  5  STO   0   5 
  6  OPR   0  16 
  7  STO   0   6 
  8  LOD   0   3 
  9  LOD   0   5 
 10  OPR   0  12 
 11  JPC   0  15 
 12  LOD   0   3 
 13  STO   0   4 
 14  JMP   0  17 
 15  LOD   0   5 
 16  STO   0   4 
 17  LOD   0   6 
 18  LOD   0   4 
 19  OPR   0  12 
 20  JPC   0  23 
 21  LOD   0   6 
 22  STO   0   4 
 23  LOD   0   4 
 24  OPR   0  14 
 25  OPR   0   0 
~~~ RUN PL0 ~~~ 
? 0.000000 
? 0.000000 
? 0.000000 
0.000000 
~~~ END PL0 ~~~