test_case.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.