types.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 31 行

with text_io; use text_io;

procedure types is

   type A is new integer range 1..10; -- Derived type [A - 1..10]
	--TYPE DISTANCE IS RANGE 1..250;
   type B is new A;   -- [B - 1..10]

   subtype sub_A is A range 1..A'last;

   var_A :A := 4;

   var_B :B := 5;

   var_sub_A : sub_A :=4;

   var_INT : integer := 4;

   x :integer :=49;
   y :float;

	begin
x := integer(y);
     var_A := A(var_B); -- type casting
   --var_A := var_sub_A;

   --var_A := var_INT;
   --var_A := var_b;

 	 end types;