Commit | Line | Data |
---|---|---|
7dbf621a C |
1 | program testset (output); |
2 | ||
3 | { try to figure out why sets don't work } | |
4 | ||
5 | const | |
6 | firstel = -1; lastel = 80; | |
7 | type | |
8 | eltype = firstel..lastel; | |
9 | settype = set of eltype; | |
10 | var | |
11 | tset: settype; | |
12 | ||
13 | procedure elements (someset: settype); | |
14 | { print the elements of a set} | |
15 | var i: eltype; | |
16 | ||
17 | begin | |
18 | writeln; | |
19 | writeln ('in elements'); | |
20 | for i := firstel to lastel do | |
21 | if i in someset then writeln ('member:',i) | |
22 | end; {elements} | |
23 | ||
24 | begin | |
25 | tset := []; elements (tset); | |
26 | tset := [23,45]; elements (tset); | |
27 | ||
28 | if 23 in tset then writeln ('ok'); {to eliminate the possibility that | |
29 | the problem arises from passing | |
30 | a set as a parameter} | |
31 | ||
32 | tset := tset + [firstel]; elements (tset); | |
33 | tset := tset + [lastel];elements (tset); | |
34 | tset := []; elements (tset) | |
35 | end. |