all.pl0

来自「此源码是编译器原理代码」· PL0 代码 · 共 20 行

PROGRAM ALLPRO;
VAR A,B,C,D,E,F,G;
BEGIN
  A:=88;
  READ(B);
  IF B>0 THEN
   C:=A+B
  ELSE
   C:=1;
  A-=1;
  B+=5*5;
  WRITE(A,B,C);
  FOR D:=1 TO 6 DO
  WRITE(D);
  FOR E:=5 DOWNTO 0 DO
  WRITE(E);
  F:=A++ + B--;
  G:=++C + ++D;
  WRITE(F,G);
END.