bsr les experte encore bloquer avec la programmation ada 
et maintenant avec le nombre aléatoire ou bien le random
j'ai cree la procedure suivante mais le problem c que a chaque foi elle prend la meme nombre aléatoire
sachant que je souhaite que se nombre doit se changé au moin une foi comme je le ponse alors c comme l'intialisation du generateur randome ne marche pas pourriez
vous m'aidé s'il vous plais
Code :
- procedure deplacement(ordonner : in out integer;
- absusse : in out integer ;
- trajet : out integer ) is
-
- begin
-
- loop
- Reset(Gen);
- hasard := Random(Gen);
- put(hasard);
- new_line;
- --------------- position selon le random ------------
- case hasard is
-
- when 1 => absusse := absusse + 1;
- when 2 => absusse := absusse - 1;
- when 3 => ordonner := ordonner + 1;
- when 4 => ordonner := ordonner - 1;
-
- end case;
- trajet := trajet + 1;
-
- ------------- rebonder------------
- if ordonner = 0 then
- hasard := 4;
- elsif ordonner = 6 then
- hasard := 3;
- elsif absusse = 0 then
- hasard := 1;
- elsif absusse = 6 then
- hasard := 2;
- end if;
- -----------------------------------------
- exit when (ordonner = 0 or ordonner = 6) or (absusse = 0 or absusse = 6);
- end loop;
- end deplacement;
|
