Discussion :

[lindner]

Bonjour,

J'ai un problème je ne comprends pas pourquoi mon code ne marche pas, ou plutot pourquoi ma procedure du tri et ma fonction de la recherche ne s'appliquent pas, lors de la compilation on me dit :
"M is never assigned a value" (et pour "N", "X" et "Trouve" également)
Le probleme vient certainement des variables, mais je n'arrive pas a comprendre pourquoi.
C'est pourquoi je fais appel a vous, merci d'avance



Voici mon code :

____________________________
WITH Gnat.IO;
USE Gnat.IO;

WITH Ada.Numerics.Discrete_Random;


PROCEDURE A1 IS
TYPE Type_Vecteur IS ARRAY (1 .. 10) OF Integer;
T : Type_Vecteur;
M : Integer;
N : Integer;
Tmp : Integer;
I : Integer;
Y : Integer;
X : Integer;
Trouve : Boolean;

-- TRI A BULLES
PROCEDURE Trib (
T : IN OUT Type_Vecteur;
M,
N : IN Integer) IS
Tri : Boolean;
BEGIN
I := N;
Tri := False;
WHILE (I > M AND NOT Tri) LOOP
Tri := True;
FOR J IN M .. I-1 LOOP
IF (T(J) > T(J+1)) THEN
Tmp := T(J);
T(J) := T(J+1);
T(J+1) := Tmp;
Tri := False;
END IF;
END LOOP;
I := I-1;
END LOOP;
END Trib;


-- RECHERCHE SEQUENTIELLE
FUNCTION Rechercher (
T : IN Type_Vecteur;
N,
X : IN Integer)
RETURN Integer IS


Position : Integer;
Trouve : Boolean;

BEGIN
I := 1;
Position := -1;
Trouve := False;
WHILE (I = N AND NOT Trouve) LOOP
IF (T(I) = X) THEN
Trouve := True;
Position := I;
ELSE
I := I+1;
END IF;
END LOOP;
RETURN Position;
END Rechercher;




-- TIRAGE ALEATOIRE
PROCEDURE Note_Aleatoire (
Nbalea : OUT Integer) IS
TYPE Numero IS RANGE 0 .. 20;
PACKAGE Aleatoire IS NEW Ada.Numerics.Discrete_Random(Numero);
USE Aleatoire;
Num : Numero;
Generateur : Generator;
BEGIN
Reset(Generateur);
Num:=Random(Generateur);
Put("Note Aleatoire = ");
Nbalea:=Integer(Num);
Put(Nbalea);
END Note_Aleatoire;


BEGIN

FOR Z IN 1..5 LOOP
Note_Aleatoire(T(Z));
New_Line;
END LOOP;
New_Line;


Y := Rechercher(T,N,X);
Put ("Recherche sequentielle");
Trib(T,M,N);
Put ("Tri a Bulles");

FOR W IN 1..5 LOOP
New_Line;
Put("-->");
New_Line;
Put(T(W));
New_Line;
END LOOP;

END A1;
________________________________

[Blackknight]

Premier point : tes noms de variable ne sont pas très explicites, cela rend le code un peu difficile à comprendre de prime abord... Surtout qu'au niveau des commentaires, c'est pas trop ça.
Bon, ça, c'est mon côté chiant sur la présentation.

Ensuite dans Rechercher, que valent N et X ?
Comme en C, la valeur initiale des variables n'est pas définie.
Après, je pense qu'il y a une erreur dans la condition de ton while. En effet, si d'emblée, I est différent de N la boucle n'est même pas faite.

Finalement, évites les déclarations de variables inutiles surtout quand elles possèdent le même nom que d'autres dont la portée est différente.

[lindner]

J'ai simplifié mon code pour ne laisser que la procedure, si j'arrive a comprendre le probleme sur ce cas de figure je pense que je pourrais m'en sortir par la suite.

Voila j'ai mis en gras mon probleme je pense que celui-ci est dû au fait que je déclare 2 fois les 2 mêmes variables, mais lorsque que je retire l'un ou l'autre "paquet" le programme ne marche plus, ca doit etre bête mais je ne vois pas la solution

Je suppose que les variables inutiles dont tu faisais reference blacknight sont en gras.

Excusez moi pour les longs messages imbuvables

Merci de votre aide.



_____________________________
WITH Gnat.IO;
USE Gnat.IO;

WITH Ada.Numerics.Discrete_Random;



PROCEDURE A1 IS
TYPE Type_Vecteur IS ARRAY (1 .. 10) OF Integer;
T : Type_Vecteur;
M : Integer;
N : Integer;


-- TRI A BULLES
PROCEDURE Trib (
T : IN OUT Type_Vecteur;
M,
N : IN Integer) IS
Tri : Boolean;
Tmp : Integer;
I : Integer;

BEGIN
I := N;
Tri := False;
WHILE (I > M AND NOT Tri) LOOP
Tri := True;
FOR J IN M .. I-1 LOOP
IF (T(J) > T(J+1)) THEN
Tmp := T(J);
T(J) := T(J+1);
T(J+1) := Tmp;
Tri := False;
END IF;
END LOOP;
I := I-1;
END LOOP;
END Trib;


-- TIRAGE ALEATOIRE
PROCEDURE Note_Aleatoire (
Nbalea : OUT Integer) IS
TYPE Numero IS RANGE 0 .. 20;
PACKAGE Aleatoire IS NEW Ada.Numerics.Discrete_Random(Numero);
USE Aleatoire;
Num : Numero;
Generateur : Generator;
BEGIN
Reset(Generateur);
Num:=Random(Generateur);
Put("Note Aleatoire = ");
Nbalea:=Integer(Num);
Put(Nbalea);
END Note_Aleatoire;


BEGIN

FOR Z IN 1..5 LOOP
Note_Aleatoire(T(Z));
New_Line;
END LOOP;
New_Line;

Trib(T,M,N);
Put ("Tri a Bulles");

FOR W IN 1..5 LOOP
New_Line;
Put("-->");
New_Line;
Put(T(W));
New_Line;
END LOOP;

END A1;
_________________________

[Blackknight]

En fait, tout est dit par le programme au plantage :
Tu dépasses les bornes
En fait, dans certains cas, tu arrives sur la ligne contenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (T (J) > T (J + 1)) then

ce qui pose problème car tu ne vérifies pas ce que vaut J + 1. Là, clairement, le compilateur te dit que tu dépasses Type_Vecteur'Last.
En clair, tu cherches à comparer le dernier élément avec celui qui suit... Et justement, comme c'est le dernier... Tu imagines bien que ça marche pas.

[lindner]

Ok, donc mon probleme vient de ma boucle, pas de mes variables, je vais travailler dessus merci

[Blackknight]

Alors ? Tu as trouvé ?
Si c'est le cas, n'oublies pas de fermer le topic en le marquant comme résolu.