ENSEEIHT/projet-programmation-imperative
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

2/3 fixs + création de l'archive pour le rendu

Browse source 
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:
lfainsin 2020-12-21 20:17:50 +00:00
parent 53b44c597f
commit a88dff28eb
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
livrables/sources_naive.zip Normal file
View file

Binary file not shown.

3
src/vector.adb
View file

@ -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;

3
src/vector.ads
View file

@ -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;