ling.pl0

来自「编译原理的详细修改和实验报告。。修改了ＰＬ０语言的一些功能。。增加了一部分功能。」· PL0 代码 · 共 26 行

PROGRAM P1;
VAR A,B,C;
BEGIN
 A:=2;
 B:=1;
 READ(C);
 IF C<>3
  THEN 
    BEGIN
     C:=A+B;
     WRITE(C);
    END;
 ELSE
  BEGIN
    C:=A-B;
    WRITE(C);
  END
END.