e01.pl0

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

PROGRAM EX01;
  VAR 
      A,B,C:INT;
BEGIN 
  A:=0;
  B:=3;
  C:=2;
  IF B<>1 THEN
    B:=1;
  IF A<>0 THEN
    A:=1;
  ELSE
    A:=12;

 WRITE(A);

END.