array.cod

我在三做的课程

=== COMPILE PL0 ===
  0 PROGRAM EX; 
  0 VAR A[1~4],I1,I2,I3,I4; 
  1 BEGIN 
  2  I1:=1; 
  4  I2:=2; 
  6  I3:=3; 
  8  I4:=4; 
 10  A[I1]:=1000; 
 12  A[2]:=2000; 
 14  WRITE(A[1],A[I2]); 
 18  READ(A[I1],A[2],A[I3]); 
 24  IF A[1]>A[2] THEN A[I4]:=A[1] ELSE A[4]:=A[I2]; 
 33  IF A[I3]>A[I4] THEN A[3]:=A[I2]; 
 40  WRITE(A[I4]); 
 42 END. 
  0  JMP   0   0
  1  INI   0   0
  2  LIT   0   0
  3  STO   0   0
  4  LIT   0   0
  5  STO   0   0
  6  LIT   0   0
  7  STO   0   0
  8  LIT   0   0
  9  STO   0   0
 10  LIT   0   0
 11  STO   0   0
 12  LIT   0   0
 13  STO-1000   0
 14  LOD-2000   0
 15  OPR   0   0
 16  LOD-2000   0
 17  OPR   0   0
 18  OPR   0   0
 19  STO-2000   0
 20  OPR   0   0
 21  STO-2000   0
 22  OPR   0   0
 23  STO-2000   0
 24  LOD-2000   0
 25  LOD-2000   0
 26  OPR   0   0
 27  JPC   0   0
 28  LOD-2000   0
 29  STO-2000   0
 30  JMP   0   0
 31  LOD  -1   0
 32  STO  -1   0
 33  LOD  -4   0
 34  LOD  -4   0
 35  OPR   0   0
 36  JPC   0   0
 37  LOD  -4   0
 38  STO  -4   0
 39  JMP   0   0
 40  LOD  -3   0
 41  OPR   0   0
 42  OPR   0   0
~~~ RUN PL0 ~~~
1000.000000
2000.000000
? 0
? 0
? 0
655.000000
~~~ END PL0 ~~~