test_declare.pl

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

const x2=13,d=56.3; 
procedure catest(x ,integer;y:rea);
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.