test_const.pl

来自「pl0的扩展编译器」· PL 代码 · 共 12 行

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.