2/3 fixs + création de l'archive pour le rendu
git-svn-id: http://cregut.svn.enseeiht.fr/2020/1sn/pim/projets/GH-05@210126 e13453a9-b01f-0410-a051-f404c4f0c485
This commit is contained in:
parent
53b44c597f
commit
a88dff28eb
BIN
livrables/sources_naive.zip
Normal file
BIN
livrables/sources_naive.zip
Normal file
Binary file not shown.
|
@ -1,3 +1,4 @@
|
||||||
|
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
||||||
|
|
||||||
package body vector is
|
package body vector is
|
||||||
|
|
||||||
|
@ -38,7 +39,7 @@ package body vector is
|
||||||
end loop;
|
end loop;
|
||||||
end put;
|
end put;
|
||||||
|
|
||||||
procedure sort_with_index_desc(vec: in out T_Vecteur; vec_index: out T_Vecteur_Index) is
|
procedure sort_with_index_desc(vec: in out T_Vecteur; vec_index: in out T_Vecteur_Index) is
|
||||||
tmp_Element: T_Element;
|
tmp_Element: T_Element;
|
||||||
tmp_Natural: Natural;
|
tmp_Natural: Natural;
|
||||||
max: Natural;
|
max: Natural;
|
||||||
|
|
|
@ -1,5 +1,4 @@
|
||||||
with Ada.Text_IO; use Ada.Text_IO;
|
with Ada.Text_IO; use Ada.Text_IO;
|
||||||
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
|
||||||
|
|
||||||
generic
|
generic
|
||||||
|
|
||||||
|
@ -23,6 +22,6 @@ package Vector is
|
||||||
procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur);
|
procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur);
|
||||||
procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Index);
|
procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Index);
|
||||||
|
|
||||||
procedure sort_with_index_desc(vec: in out T_Vecteur; vec_index: out T_Vecteur_Index);
|
procedure sort_with_index_desc(vec: in out T_Vecteur; vec_index: in out T_Vecteur_Index);
|
||||||
|
|
||||||
end Vector;
|
end Vector;
|
||||||
|
|
Loading…
Reference in a new issue