2020-12-19 15:12:22 +00:00
|
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
|
|
|
|
generic
|
|
|
|
|
|
|
|
type T_Element is digits <>;
|
|
|
|
N: Positive;
|
|
|
|
|
|
|
|
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-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);
|
|
|
|
use Text_T_Element;
|
|
|
|
|
2020-12-22 13:26:25 +00:00
|
|
|
procedure initialize(vec: in out T_Vecteur_Element);
|
|
|
|
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);
|
|
|
|
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_with_index_desc(vec: in out T_Vecteur_Element; vec_index: in out T_Vecteur_Natural);
|
2020-12-19 15:12:22 +00:00
|
|
|
|
|
|
|
end Vector;
|