Comment présenter des données

Bonjour à tous !

Question d'un débutant en Pascal :

Quel est l'équivalent du "data" employé en Basic ? S'il n'y en a pas (comme je crois le comprendre), quelle est la bonne façon de faire la même chose en Pascal ?

Mettons que je veuille "stocker" dans mon programme les valeurs initiales d'un échiquier avec ses pièces pour pouvoir au moment voulu attribuer ces valeurs aux variables d'un tableau. En Basic, je fais ça :

Code:

---

1 2 3 4 5 6 7 8 9

data 8, 4, 6, 10, 12, 6, 4, 8 data 2, 2, 2, 2, 2, 2, 2, 2 data 0, 0, 0, 0, 0, 0, 0, 0 data 0, 0, 0, 0, 0, 0, 0, 0 data 0, 0, 0, 0, 0, 0, 0, 0 data 0, 0, 0, 0, 0, 0, 0, 0 data 1, 1, 1, 1, 1, 1, 1, 1 data 7, 3, 5, 9, 11, 5, 3, 7

---

Comment dois-je faire en Pascal ? Pourriez-vous me mettre sur la voie ?

Merci d'avance !

Vie,

Comme il s'agit de valeurs du même type, tu crées un tableau du bon type, de bonne taille, et tu l'initialises comme constante.

Ex:

Code:

---

1 2 3 4 5 6 7 8

const maxDonnees = 3;   type monTableauDonnees = array [0..maxDonnees] of integer;   const monTableau : monTableauDonnees = (45,12,6);

---

Et tu y accèdes comme comme pour n'importe quel tableau, avec des indices de 0 à 2 dans le cas cité. :)

Merci bien pour ta réponse, et pour l'exemple qui est très clair. Je vais m'en servir tout de suite. ;)

Bie,

Oui, sauf qu'avec le code que j'ai donné, le tableau pourra contenir 4 données, indices 0 à 3.

Ça commence à faire plus de 10 ans que je ne fais plus de Pascal, et j'ai vraiment pris le plis des tableaux en C, C++ ..., en mélangeant quand même un peu avec la syntaxe Pascal, sans trop réfléchir.

Aïe, pas taper. :)

Je me suis posé la question et, après vérification dans le manuel, j'ai compris que c'était une faute de frappe. Merci quand même d'avoir rectifié.

Voici donc mon premier petit bout de programme en Pascal :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

program tablier; {Tableaux de constantes} uses crt; var i: shortint; type occupant=array [1..64] of integer; symboles=array [0..6] of char; const occupantINI : occupant=( -4,-2,-3,-5,-6,-3,-2,-4, -1,-1,-1,-1,-1,-1,-1,-1, -0,-0,-0,-0,-0,-0,-0,-0, -0,-0,-0,-0,-0,-0,-0,-0, -0,-0,-0,-0,-0,-0,-0,-0, -0,-0,-0,-0,-0,-0,-0,-0, +1,+1,+1,+1,+1,+1,+1,+1, +4,+2,+3,+5,+6,+3,+2,+4); symbolFR : symboles=(chr(176),'P','C','F','T','D','R'); symbolEN : symboles=(chr(176),'P','N','B','R','Q','K'); BEGIN TextBackground(Blue); TextColor(White); clrscr; for i:=1 to 64 do begin write (symbolFR[Abs(occupantINI[i])]); if i/8=trunc(i/8) then writeln; end; readln; END.

---

Il y a quelques jours que je me suis mis sérieusement au Pascal, après avoir écrit un programme d'échecs en Basic. Le C, je ne connais pas. Je le regrette d'ailleurs, car beaucoup de programmes que j'aimerais étudier sont écrits dans ce langage. Il faudra que je m'y mette.

J'ai déjà posté dans une autre rubrique du forum un lien vers mon précédent programme (sur lequel je travaille toujours). Je me permets de le reproduire ici, au cas où cela intéresserait quelqu'un :

http://www.eschecs.fr