types.adb

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

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;