sort.cod

编译原理课程设计 编译原理课程设计

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