sort.cod

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

=== COMPILE PL0 ===
  0 PROGRAM SORT3; 
  0 VAR 
  1 A:ARRAY[1..10] OF REAL; 
  1 TEMP:REAL; 
  1 I,J:INTEGER; 
  1 BEGIN 
  2    
  2   FOR I:=1 TO 10 DO 
  8     READ(A[I]); 
 15   FOR I:=1 TO 10 DO 
 21     FOR J:=1 TO 10-I DO 
 29      IF A[J]<A[J+1] THEN  
 36       BEGIN 
 37         TEMP:=A[J]; 
 40         A[J]:=A[J+1]; 
 46         A[J+1]:=TEMP; 
 51       END; 
 59   FOR I:=1 TO 10 DO 
 65    WRITE(A[I]); 
 72 END. 
  0  JMP   0   1
  1  INI   0  18
  2  LIT   0   1
  3  STO   0  16
  4  LOD   0  16
  5  LIT   0  10
  6  OPR   0  13
  7  JPC   0  15
  8  LOD   0  16
  9  OPR   0  15
 10STOARR   0   4
 11  LOD   0  16
 12  LIT   0   1
 13  OPR   0   2
 14  JMP   0   3
 15  LIT   0   1
 16  STO   0  16
 17  LOD   0  16
 18  LIT   0  10
 19  OPR   0  13
 20  JPC   0  59
 21  LIT   0   1
 22  STO   0  17
 23  LOD   0  17
 24  LIT   0  10
 25  LOD   0  16
 26  OPR   0   3
 27  OPR   0  13
 28  JPC   0  55
 29  LOD   0  17
 30LODARR   0   4
 31  LOD   0  17
 32  LIT   0   1
 33  OPR   0   2
 34LODARR   0   4
 35  OPR   0  10
 36  JPC   0  51
 37  LOD   0  17
 38LODARR   0   4
 39  STO   0  15
 40  LOD   0  17
 41  LOD   0  17
 42  LIT   0   1
 43  OPR   0   2
 44LODARR   0   4
 45STOARR   0   4
 46  LOD   0  17
 47  LIT   0   1
 48  OPR   0   2
 49  LOD   0  15
 50STOARR   0   4
 51  LOD   0  17
 52  LIT   0   1
 53  OPR   0   2
 54  JMP   0  22
 55  LOD   0  16
 56  LIT   0   1
 57  OPR   0   2
 58  JMP   0  16
 59  LIT   0   1
 60  STO   0  16
 61  LOD   0  16
 62  LIT   0  10
 63  OPR   0  13
 64  JPC   0  72
 65  LOD   0  16
 66LODARR   0   4
 67  OPR   0  14
 68  LOD   0  16
 69  LIT   0   1
 70  OPR   0   2
 71  JMP   0  60
 72  OPR   0   0
~~~ RUN PL0 ~~~
? 123.000000
? 2432.000000
? 1223.000000
? 4123.000000
? 34.000000
? 3.000000
? 3.000000
? 214.000000
? 124.000000
? 123.000000
4123.000000
2432.000000
1223.000000
214.000000
124.000000
123.000000
123.000000
34.000000
3.000000
3.000000
~~~ END PL0 ~~~