program set_esempio; uses crt; type c=set of char; var f:c; begin f:=['a','b']; if 'b' in f then write('ciao'); readln end.
c č dichiarata come set di char, perciņ puņ contenere un elenco di valori char: in questo caso, la variabile f di tipo c contiene i valori 'a' e 'b'.
Nella struttura if viene considerato se 'b' si trova nell'elenco dei valori di f. In effetti 'b' č un elemento di f e perciņ viene eseguita l'istruzione write.
In genere, per dichiarare i set si usa:
type <nome>:set of <tipo>;
Include ed exclude
Per aggiungere un valore ad un set o escluderlo, si usano le procedure include ed exclude. La sintassi č la seguente:
procedure Include(s:set of T;i:T); procedure Exclude(s:set of T;i:T);
Dove T č un tipo qualunque ed i l'elemento da includere/escludere. Ad esempio:
type a:set of integer; b:set of char; var v1:a; v2:b; begin clrscr; a:=[1,5];; b:=['1','5']; if not (2 in a) then include(a,2); end.
A cura di: Il Totem