Ada

Lire et accédé a un tableau de valeur énuméré

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lire et accédé a un tableau de valeur énuméré

royJD

bonjours je suis un novice en ada et après des Heurs de recherche sur le net et ouvrage je commence a me posé de réel question a propos de ceci :

Comment j'accède au donné contenue dans le tableau "Tcard" si valeur il y a ? je ne sais même pas si je suis sur une bonne ou mauvaise piste .

Mon exercice est de créer un deck de carte avec des énumération puis de d'introduire les attribues des cartes dans un tableau en passant par un record puis de faire multiple opérations sur ce tableau mais voila je ne voie pas comment lire se tableau, que contient le tableau, que faire?

Code :

WITH aleatoire,Ada.Text_IO,Ada.Integer_Text_IO;
USE aleatoire,Ada.Text_IO,Ada.Integer_Text_IO;
PROCEDURE Shuffle IS
n:integer:=1;
TYPE Valeurs IS (Deux,Trois,Quatre,Cinq,Six,Sept,Huit,Neuf,Dix,Valet,Dame,Roi,AS);
TYPE Couleurs IS (Coeur,Carreau,Pique,Treffle);
SUBTYPE Nb_Card IS Integer RANGE 1..52;
TYPE Card IS RECORD
Valeur:Valeurs;
Couleur:Couleurs;
END RECORD;
TYPE Tcard IS ARRAY(Nb_Card) OF Card;
Tab_Card:Tcard;
BEGIN
--initialise
for i in valeurs loop
for y in couleurs loop
Tab_card(N) := (I, Y);
n := n+1;
end loop;
END LOOP;
--c'est ici que je bloque comme lire tab_card? il y a til des valeurs dans Tcard? si oui les quel?
--put(item=> c'image);
--put(Tab(valeur'image(valeur'val(n)));
-- put(tab(n).valeur'image(tcard(n).valeur'val(n)));
END Shuffle;

Message édité par royJD le 22-09-2012 à 22:20:52

Publicité

Profil supprimé

Bonjour,

Oui il y a des valeurs dans Tab_Card, par défaut aléatoire.
Pour avoir des valeur par défaut fixes, il suffi de rajouter des valeurs initiales dans un card.
Ton tableau comportera ainsi la même valeur dans toutes les cases.

Message édité par Profil supprimé le 22-09-2012 à 17:16:14

Profil supprimé

En fait il manque l'as. C'est pour ça que c'est pas init.

royJD

voila j'ai rajouté l'AS comment je fait pour accédé au valeur du tableau si il a été initialisé?
dsl je suis vraiment un débutant si la question parait stupide j'en suis navré.

Profil supprimé

Tu as le rang du tableau qui te permet d'accéder aux éléments, et apres le point les deux attributs d'une carte.

Code :

--
      for I in Nb_Card'Range loop
         Text_Io.Put_line(Item => "Image Nb : " & Integer'Image(I));
         Text_Io.Put_Line("valeur:" & Valeurs'Image(Tab_Card(I).Valeur));
         Text_Io.Put_Line("couleur:" & Couleurs'Image(Tab_Card(I).Couleur));
      end loop;

Message édité par Profil supprimé le 22-09-2012 à 23:29:07

royJD

Merci beaucoup c'est ce qu'il me fallais !

FORUM HardWare.fr

Programmation

Ada

Lire et accédé a un tableau de valeur énuméré

Sujets relatifs
fstream / Modifier une valeur spécifique dans un fichier C++	Le if sur une valeur Null me retourne une erreur
[C / C++] Lire informations disque dur	Tableau python vers array php ?
Éliminer les doublons dans un tableau word	Comment modifier le contenu de mon tableau ? :)
somme des éléments d'un tableau	récupérer la valeur d'une cellule dans plusieurs classeurs
[C]Extraire un chiffre d'un tableau de char dans un int	[PERL] Mixer un tableau
Plus de sujets relatifs à : Lire et accédé a un tableau de valeur énuméré

Page générée en 0.034 secondes