[LG]declaration ensemble et test d'inclusion

**regar** · 09/12/2003, 17h24

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

**M.Dlb** · 09/12/2003, 17h57

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

...

a+

**M.Dlb** · 09/12/2003, 18h07

Voilà, j'ai trouvé

Pour ajouter une valeur unique, à un ensemble il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

**regar** · 09/12/2003, 19h38

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**M.Dlb** · 09/12/2003, 20h44

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.