ric.cod

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

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