e011.pl0

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

PROGRAM EX01;
VAR A,B,C:INT;
FUCTION SHI(F:INT):INT;
BEGIN
   READ(B);
   F:=B+1;
SHI:=F;
END.
BEGIN
 A:=1;
 B:=9;
C:=SHI(B);
 IF A=0 THEN
   A:=88;
ELSE B:=11;
 WRITE(C);
END.