bit: type variant_record = record case rec_type : longint of 1: ( I : array [1..2] of integer ); 2: ( L : longint ); 3: ( R : real ); 4: ( C : array [1
同样的功能用Ada表示: type Vals_Type is array (Positive range <>) of Float; function Read_And_Process (N : Integer) return Float is Vals : Vals_Type (1 .. N); begin