yuese.cod

扩展PL0语言 对其扩展++,--,+=,-=运算等

=== COMPILE PL0 ===
  0 PROGRAM JON; 
  0 CONST 
  1 M=10; 
  1 VAR 
  1 PERSON:ARRAY[1..11] OF INTEGER; 
  1 I,N,J,P:INTEGER; 
  1 BEGIN 
  2  
  2 FOR I:=1 TO M-1 DO 
 10 PERSON[I]:=I+1; 
 19 PERSON[M]:=1; 
 22 READ(N); 
 24 WRITE(M,N); 
 28 P:=1; 
 30 FOR I:=1 TO M DO 
 36 BEGIN 
 36  FOR J:=1 TO N-1 DO 
 44  P:=PERSON[P]; 
 51  WRITE(PERSON[P]); 
 54  PERSON[P]:=PERSON[PERSON[P]]; 
 59 END; 
 63 END. 
  0  JMP   0   1
  1  INI   0  20
  2  LIT   0   1
  3  STO   0  16
  4  LOD   0  16
  5  LIT   0  10
  6  LIT   0   1
  7  OPR   0   3
  8  OPR   0  13
  9  JPC   0  19
 10  LOD   0  16
 11  LOD   0  16
 12  LIT   0   1
 13  OPR   0   2
 14STOARR   0   4
 15  LOD   0  16
 16  LIT   0   1
 17  OPR   0   2
 18  JMP   0   3
 19  LIT   0  10
 20  LIT   0   1
 21STOARR   0   4
 22  OPR   0  16
 23  STO   0  17
 24  LIT   0  10
 25  OPR   0  14
 26  LOD   0  17
 27  OPR   0  14
 28  LIT   0   1
 29  STO   0  19
 30  LIT   0   1
 31  STO   0  16
 32  LOD   0  16
 33  LIT   0  10
 34  OPR   0  13
 35  JPC   0  63
 36  LIT   0   1
 37  STO   0  18
 38  LOD   0  18
 39  LOD   0  17
 40  LIT   0   1
 41  OPR   0   3
 42  OPR   0  13
 43  JPC   0  51
 44  LOD   0  19
 45LODARR   0   4
 46  STO   0  19
 47  LOD   0  18
 48  LIT   0   1
 49  OPR   0   2
 50  JMP   0  37
 51  LOD   0  19
 52LODARR   0   4
 53  OPR   0  14
 54  LOD   0  19
 55  LOD   0  19
 56LODARR   0   4
 57LODARR   0   4
 58STOARR   0   4
 59  LOD   0  16
 60  LIT   0   1
 61  OPR   0   2
 62  JMP   0  31
 63  OPR   0   0
~~~ RUN PL0 ~~~
? 3.000000
10.000000
3.000000
4.000000
7.000000
10.000000
3.000000
8.000000
2.000000
9.000000
6.000000
1.000000
5.000000
~~~ END PL0 ~~~