e01.pl0

来自「PL0功能的扩充编译原理课程设计：扩充赋值运算：+= 和-=」· PL0 代码 · 共 18 行

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.