tableaux non-contraints problème

[revy7]

Bonjour,

Je dois concevoir un programme qui crée des tableaux de tailles différentes : c'est-à-dire qu'on entrera la taille d'un tableau, puis on l'initialisera à chaque fois. J'ai pensé aux tableaux non-contraints, mais je n'arrive pas à les implanter, voici mon code :

Code :

1
2
3
4
5
6
7
8
tab is array(integer range <>) of integer;
N:integer;

composition is
record
numero:integer;
contenu:tab(1..N);
end record;

->à chaque fois le compilateur me retourne "N may be referenced before it has a value".

Merci d'avance.

[Blackknight]

Code :

N may be referenced before it has a value

Le message est clair, tu spécifies une variable de type tableau dont les bornes ne sont pas connues à la création, ça ne peut pas fonctionner.
Au moment où tu écris

Code :

contenu : tab(1..N)

N doit être initialisé.
Ici, comme tu veux l'utiliser dans un enregistrement, regardes du côté des enregistrements avec discriminant dans cette page ou directement dans l'ARM dans la section traitant des discriminants.
Normalement, tu y trouveras ton bonheur... D'ailleurs, c'est sûr

Mais je n'en dirai pas plus, j'ai l'ipmpression que c'est pour un devoir

[kirua99]

oui le tableau doit être initialiser

[jovalise]

Envoyé par revy7

Bonjour,

Je dois concevoir un programme qui crée des tableaux de tailles différentes : c'est-à-dire qu'on entrera la taille d'un tableau, puis on l'initialisera à chaque fois. J'ai pensé aux tableaux non-contraints, mais je n'arrive pas à les implanter, voici mon code :

Code :

->à chaque fois le compilateur me retourne "N may be referenced before it has a value".

Merci d'avance.

C'est pas écrit avec Ada !
pseudo-techniquement tu as bien déclaré N.

[Blackknight]

C'est pas écrit avec Ada !

Il manque effectivement quelques type, j'étais complètement passé à côté

[Sigurd9]

Et si tu paramétrais ton type composition ?

Code :

1
2
3
4
5
6
type tab is array(integer range <>) of integer;

type composition(N : integer) is record
   numero:integer;
   contenu:tab(1..N);
end record;