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
|
||||
|
||||
|
@ -38,7 +39,7 @@ package body vector is
|
|||
end loop;
|
||||
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_Natural: Natural;
|
||||
max: Natural;
|
||||
|
|
|
@ -1,5 +1,4 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
||||
|
||||
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_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;
|
||||
|
|
Loading…
Reference in a new issue