test_tri
git-svn-id: http://cregut.svn.enseeiht.fr/2020/1sn/pim/projets/GH-05@210322 e13453a9-b01f-0410-a051-f404c4f0c485
This commit is contained in:
parent
553a31bf39
commit
5e0f9cc8a9
39
src/test_tri.adb
Normal file
39
src/test_tri.adb
Normal file
|
@ -0,0 +1,39 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
with Vector;
|
||||
|
||||
procedure pageRank is
|
||||
|
||||
Type T_Double is digits 3;
|
||||
|
||||
N: Natural := 10;
|
||||
|
||||
package Vector_Double is
|
||||
new Vector(T_Element => T_Double,
|
||||
N => N);
|
||||
use Vector_Double;
|
||||
|
||||
vec: T_Vecteur_Element;
|
||||
vec_index: T_Vecteur_Natural;
|
||||
|
||||
begin
|
||||
|
||||
vec(0) := 10.0;
|
||||
vec(1) := 1.0;
|
||||
vec(2) := 21.0;
|
||||
vec(3) := 3.0;
|
||||
vec(4) := 13.0;
|
||||
vec(5) := 56.0;
|
||||
vec(6) := 3.0;
|
||||
vec(7) := 5.0;
|
||||
vec(8) := 6.0;
|
||||
vec(9) := 6.0;
|
||||
|
||||
put_line("avant:");
|
||||
put(vec);
|
||||
new_line;
|
||||
Quick_Sort(vec);
|
||||
put_line("après:");
|
||||
put(vec);
|
||||
|
||||
end pageRank;
|
Loading…
Reference in a new issue