e012.cod

PL0功能的扩充编译原理课程设计：扩充赋值运算：+= 和-=

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0   VAR A,B; 
  1       C:CHAR; 
  1       D:INT; 
  1       E:REAL; 
  1       F:ARRAY[1..2] OF INT ; 
  1 BEGIN 
  2  F[2]:=2; 
  4  D:=F[2]+2; 
  8  A:='a'; 
 10  B:='b'; 
 12  WRITE(A); 
 15 WRITE(B); 
 18  WRITE(D); 
 21 END. 
~~~ RUN PL0 ~~~
97
98
4
~~~ END PL0 ~~~