|
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.
|
|
Feeds
Sondaggio
Condividi
Numeri
