else.cod

来自「刚开始设计时对PL/0了解并不多,随着设计的开展,对PL/0也有了一定的认识,了」· COD 代码 · 共 48 行

=== 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 ~~~