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
|