test_case.pl

实现pl0编译 能够实现简单的编译 满足编译原理的要求

const x2=13,d=56.3; 
procedure catest(x :integer;y:real);
var temp:real;
    begin
      case x of
        1 : temp:=d read(y)
        2 : temp:=45.9 ;
        3 : temp:=789.030 ;
       4 : temp:=0.0
      end.