Construction d'un tableau 1 à 600

[Résolu]
Signaler
Messages postés
4
Date d'inscription
mercredi 30 novembre 2005
Statut
Membre
Dernière intervention
10 mai 2006
-
Messages postés
4
Date d'inscription
mercredi 30 novembre 2005
Statut
Membre
Dernière intervention
10 mai 2006
-
Hello,

Je désire construire un tableau numéroté de 1 à 600 [30 par 20].

Comme ceci:
1 2 3 4 5 . . . 19 20
21 22 23 .... 39 40
...
581 ... ...600

quelle fonction dois-je utiliser et comment former mon code??

Merci.

4 réponses

Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
Perso je crois comprendre qu'il veut un tableau d'entier de 1 a 600, auquel cas c'est

var MyArray : array[1..20,1..30] of integer;
i,j :integer;


...

for j:=1 to 30 do
for i:=1 to 20 do
MyArray[i,j]:=i+(j-1)*20;

et hop.
Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
2
Ta question est floue mais alors, incroyablement floue. (ou c'est moi qui suis dans les vapes ...)
Déjà, un tableau comme tu le demandes (30 par 20) se déclare comme ceci :
var MyTab: array[1..30, 1..20] of TMonType.

En plus tu ne nous dis même pas ce qu'il doit stocker ni ce que tu veux en faire et tu n'as pas du chercher bien loin pour en arriver là.
Bref, un peu limite tout ça.

Si tu ne te plantes pas ......
tu ne pousseras jamais
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
comme le dit florenth, plusieurs solutions :

1 a 600 :

array [1..600] of type

30x20

array [1..30, 1..20] of type

dynamique

array of array of type
...
setlength(Tableau,30);
for N := 0 to High(Tableau) do setlength(Tableau[N],20);
Messages postés
4
Date d'inscription
mercredi 30 novembre 2005
Statut
Membre
Dernière intervention
10 mai 2006

Merci!