[LG]declaration ensemble et test d'inclusion

bonjour

j'ai un petit problème avec des ensembles que je n'arrive pas à résoudre seul. c'est pourquoi je fais appel à votre aide après avoir essayé tout un tas de choses...

je dois faire un test d'inclusion sur un ensemble de 7 valeurs tirées aléatoirement dans l'intervalle 1..500, ce qui me pose un problème de déclaration pour l'ensemble, le tout dans une boucle, ce qui m'empeche avec le peu de connaissances que j'ai en pascal de rentrer les valeurs avec des variables du type : val1..val7.

si quelqu'un peut me dépanner, merci d'avance

Pour déclarer et définir un ensemble, on utilise des crochets [], avec les valeurs de l'ensemble entre les crochets et séparés par des virgules.
Pour déclarer des types ensemble, on utilise le mot réservé Set :

Code:

---

1 2 3

type minuscules=set of 'a'..'z'; type majuscules=set of 'A'..'Z';

---

Pour plus d'informations sur le mot Set, regarde l'aide de ton compilateur !
Sinon pour ajouter une valeur à un ensemble, désolé je sais pas faire :oops:...

a+

Voilà, j'ai trouvé :D Pour ajouter une valeur unique, à un ensemble il faut faire :

Code:

---

1 2 3 4 5 6 7 8 9

type digits=set of 0..9; var nombres:digits; begin nombres:=[1,3,5]; nombres:=nombres+[7]; nombres:=nombres+[9,11]; readln; end.

---

Donc on ne peut faire des opérations qu'entre ensembles... Si tu as une valeur unique, il faudra la convertir en ensemble en l'entourant de crochets !
Pour tester l'inclusion d'une valeur dans l'ensemble, on utilise in :

Code:

---

1 2 3

nombres:=[1,4,9]; if 5 in nombres then writeln('5 est dans l'ensemble') else writeln('5 n''est pas dans l'ensemble');

---

Voilà !
a+

merci pour la rapidité de la réponse !
mais en fait je retombe sur mon problème...

ce sera sans doute un peu plus clair avec du concret...
en gros un individu doit en connaître strictement cinq autres parmi les 500
possibles (ensuite ça sert à simuler des propriétés de diffusion dans un réseau social...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

const dim=500; relmax=5; type valinterloc = set of 1..relmax; var val : valinterloc; interloc,nbrel : integer; test : boolean;   begin randomize; val:=[]; nbrel:=0; repeat repeat interloc:=random(dim)+1; test:=not([interloc]<=val); until test=true; val:=val+[interloc]; inc(nbrel); until nbrel=relmax; end.

---

si j'utilise ce que tu m'as envoyé, toutes les valeurs d'interloc supérieures à 5 ne sont pas prises en compte par le test. or je ne peux pas déclarer mon ensemble comme un intervalle 1..500.
j'imagine bien qu'on peut se contenter d'un double test if mais vu que je me creuse la tête depuis hier avec cette histoire d'ensemble, j'aimerais bien y arriver !!

merci d'avance

Euh en réalité, le nombre d'élément dans l'ensemble doit être de 5 au plus... Pourquoi ne pas essayer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

const dimension=500; const relationMax=5; type Relations=set of 1..dimension; var relation:Relations; nombre,nRelation:integer;   begin randomize; relation:=[]; nRelations:=0; repeat repeat nombre:=random(dimension)+1; until not nombre in relation; relation:=relation+[nombre]; inc(nRelation); until nRelation=relationMax; end.

---

Je pense que ca devrait faire à peu près ce qu'il faut...

a+

ben oui j'ai essayé mais le problème c'est qu'un ensemble ne peut pas prendre plus de 256 combinaisons...
donc il refuse cette déclaration...

Ahhh...
Donc je crois qu'il faut que tu oublies le système des ensembles...
Pourquoi ne pas utiliser un tableau plutôt qu'un ensemble ??

a+

effectivement ça marche mieux comme ça
en tous cas merci !

+