test1.pl0

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

PROGRAM TEST1;
 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.