1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| subtype T_Mes_Entiers is Integer range -42..42;
type T_Bornes is new Natural;
Borne_Inf : T_Bornes := 0;
Borne_Sup : T_Bornes := 4;
type T_Vecteurs_Mes_entiers is array (T_bornes range <>) of T_Mes_Entiers;
V_Data_1 : T_Vecteurs_Mes_Entiers(1..4) := (others => T_Mes_Entiers'First);
-- Tout les entier sont initialisé à T_Mes_Entiers'First.
V_Data_2 : T_Vecteurs_Mes_Entiers(1..4) := (1,
others => T_Mes_Entiers'First);
-- Le premier élément du tablea est initialisé à 1, les autres à T_Mes_Entiers'First
V_Data_3 : T_Vecteurs_Mes_Entiers(1..4) := (1 => -42,
2 => 42,
3 => 0,
4 => 1);
-- chaque élément du tableau est initialisé séparément. |
Partager