Random réinitialisation

Random réinitialisation - Ada - Programmation

Marsh Posté le 27-11-2011 à 01:50:44    

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 :
  1. procedure deplacement(ordonner : in out integer;
  2.                            absusse  : in out integer ;
  3.                            trajet   :  out  integer  ) is
  4.  
  5.      begin
  6.    
  7.       loop
  8.       Reset(Gen);   
  9.       hasard := Random(Gen);     
  10.       put(hasard);
  11.       new_line;
  12.   --------------- position selon le random ------------
  13.          case hasard is
  14.        
  15.          when  1 => absusse := absusse + 1;
  16.          when  2 => absusse := absusse - 1;
  17.          when  3 => ordonner := ordonner + 1;
  18.          when  4 => ordonner := ordonner - 1;
  19.        
  20.          end case;
  21.          trajet := trajet + 1;
  22.        
  23.         ------------- rebonder------------
  24.          if ordonner = 0 then
  25.             hasard := 4;
  26.          elsif ordonner = 6 then
  27.             hasard := 3;
  28.          elsif absusse = 0 then 
  29.             hasard := 1;
  30.          elsif absusse = 6  then
  31.             hasard := 2;
  32.          end if;
  33. -----------------------------------------
  35.        exit when (ordonner = 0 or ordonner = 6)  or  (absusse = 0 or absusse = 6);
  36.        end loop;
  37.      end deplacement;


Reply

Marsh Posté le 27-11-2011 à 01:50:44   

Reply

Marsh Posté le 27-11-2011 à 08:55:17    

Essaie d'instancier Discrete_Random dans ta procedure deplacement. Mais je ne te garantie rien, je me souvient pas.

Reply

Marsh Posté le 27-11-2011 à 12:07:35    

c bon c regler hier merci pour ton aide c juste qu'il metre le   Reset(Gen)
avant la boucle loop :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed