FORUM MP | ADA : utiliser un nombre generé

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

utiliser un nombre generé
	Forum : ADA Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ADA
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM ADA
	Page précedente	Page suivante

Pucca_Chan
Membre MP

Inscrit : 07/04/2005
Messages : 203

#152645 Posté le 01/05/08 à 19:00

bon suite au poste suivant j'ai avancé. Voila la procédure dont je me suis servie :

procedure NombreAleatoire(p_val : out integer) is type valeur is range 0 .. 3; package NombreAleatoire is new Ada.Numerics.Discrete_Random (Valeur); use NombreAleatoire; A : valeur; G : Generator; begin Reset (G); A := Random (G); p_val := integer(A); end Nombrealeatoire;

Maintenant le nombre que j'ai généré, j'aimerai m'en servir dans une autre procédure :

procedure Remplir_Aleatoirement(nb_aleatoir : in Integer;M: in out Grille) is begin for I in M'Range (1) loop for J in M'range (2) loop M(I,J):=New_Boule(nb_aleatoir,I,J); -- nb aleatoir est le nombre que je genere auparavant et c'est la que ça plante. end loop; end loop; end Remplir_Aleatoirement;

Cependant, j'obtiens des erreurs de compilations :
- excepted type "valeur" defined at boules.ads (un autre package)
- found type "standard.integer"

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

jovalise
Nouveau membre

Inscrit : 21/12/2005
Messages : 21

#152939 Posté le 11/05/08 à 13:28

Bonjour ou re,

Ici, dans Remplir_Nb_Aleatoire devrais prendre un paramètre de type valeur à la place de integer.

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.