projet-programmation-imperative/src/vector.ads

with Ada.Text_IO; use Ada.Text_IO;

generic

    type T_Element is digits <>;
    N: Positive;
    N_links: Positive;

package Vector is

    type T_Vecteur_Element is array (0..N-1) of T_Element;
    type T_Vecteur_Natural is array (0..N-1) of Natural;
    type T_Vecteur_Links is array (0..N_links-1) of Natural;

    -- on permet l'affichage direct des T_Element
    package Text_T_Element is
        new Ada.Text_IO.Float_IO(Num => T_Element);

    procedure initialize(vec: in out T_Vecteur_Element; value: in T_Element);
    procedure initialize(vec: in out T_Vecteur_Natural);

    function sum(vec: in T_Vecteur_Element) return T_Element;

    procedure put(vec: in T_Vecteur_Element);
    procedure put(vec: in T_Vecteur_Links);
    procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Element);
    procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Natural);

    procedure sort_insert(vec: in out T_Vecteur_Links);
    procedure sort_insert_desc(vec: in out T_Vecteur_Element; vec_index: in out T_Vecteur_Natural);

    procedure quicksort(vec: in out T_Vecteur_Element; low, high: Natural);
    procedure quicksort(vec: in out T_Vecteur_Links; low, high: Natural);

end Vector;