2020-12-19 15:12:22 +00:00
|
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
|
|
|
|
generic
|
|
|
|
|
|
|
|
type T_Element is digits <>;
|
|
|
|
N: Positive;
|
2020-12-23 19:55:16 +00:00
|
|
|
N_links: Positive;
|
2020-12-19 15:12:22 +00:00
|
|
|
|
|
|
|
package Vector is
|
|
|
|
|
2020-12-22 13:26:25 +00:00
|
|
|
type T_Vecteur_Element is array (0..N-1) of T_Element;
|
|
|
|
type T_Vecteur_Natural is array (0..N-1) of Natural;
|
2020-12-23 19:55:16 +00:00
|
|
|
type T_Vecteur_Links is array (0..N_links-1) of Natural;
|
|
|
|
|
2020-12-19 15:12:22 +00:00
|
|
|
-- on permet l'affichage direct des T_Element
|
|
|
|
package Text_T_Element is
|
|
|
|
new Ada.Text_IO.Float_IO(Num => T_Element);
|
|
|
|
|
2020-12-22 13:26:25 +00:00
|
|
|
procedure initialize(vec: in out T_Vecteur_Element; value: in T_Element);
|
|
|
|
procedure initialize(vec: in out T_Vecteur_Natural);
|
2020-12-19 15:12:22 +00:00
|
|
|
|
2020-12-22 13:26:25 +00:00
|
|
|
function sum(vec: in T_Vecteur_Element) return T_Element;
|
2020-12-19 15:12:22 +00:00
|
|
|
|
2020-12-22 13:26:25 +00:00
|
|
|
procedure put(vec: in T_Vecteur_Element);
|
2020-12-23 19:55:16 +00:00
|
|
|
procedure put(vec: in T_Vecteur_Links);
|
2020-12-22 13:26:25 +00:00
|
|
|
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);
|
|
|
|
|
2020-12-23 19:55:16 +00:00
|
|
|
procedure sort_insert(vec: in out T_Vecteur_Links);
|
2020-12-23 14:40:04 +00:00
|
|
|
procedure sort_insert_desc(vec: in out T_Vecteur_Element; vec_index: in out T_Vecteur_Natural);
|
2020-12-19 15:12:22 +00:00
|
|
|
|
2020-12-23 15:16:37 +00:00
|
|
|
procedure quicksort(vec: in out T_Vecteur_Element; low, high: Natural);
|
2020-12-23 19:55:16 +00:00
|
|
|
procedure quicksort(vec: in out T_Vecteur_Links; low, high: Natural);
|
|
|
|
|
2020-12-19 15:12:22 +00:00
|
|
|
end Vector;
|