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