1.cod

PLO模板程序设计

=== COMPILE PL0 ===
  0 PROGRAM P1; 
  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    IF Y>MAX 
 19     THEN MAX:=Y; 
 23   WRITE(MAX); 
 25 END. 
  0  JMP   01.000000
  1  INI   07.000000
  2  OPR   016.000000
  3  STO   03.000000
  4  OPR   016.000000
  5  STO   05.000000
  6  OPR   016.000000
  7  STO   06.000000
  8  LOD   03.000000
  9  LOD   05.000000
 10  OPR   012.000000
 11  JPC   015.000000
 12  LOD   03.000000
 13  STO   04.000000
 14  JMP   017.000000
 15  LOD   05.000000
 16  STO   04.000000
 17  LOD   06.000000
 18  LOD   04.000000
 19  OPR   012.000000
 20  JPC   023.000000
 21  LOD   06.000000
 22  STO   04.000000
 23  LOD   04.000000
 24  OPR   014.000000
 25  OPR   00.000000
~~~ RUN PL0 ~~~
? 0.000000
? 0.000000
? 0.000000
0.000000
~~~ END PL0 ~~~